au3 窗体透明及半透明

透明效果技术要点:

   A: _winapi_SetLayeredWindowAttributes ()这个函数+ $WS_EX_LAYERED +$LWA_COLORKEY 实现透明效果的效果 

   B:_winapi_SetLayeredWindowAttributes ();这个函数+ $WS_EX_LAYERED -$LWA_COLORKEY 实现半透明效果的效果

  A+B 实现控件窗体透明,控件不透明效果


实例代码: 


Func _showTask()
   $width=@DesktopWidth
   $hight=50
   $hTabA = GUICreate("tabA", $width, $hight, 0, @DesktopHeight-40, $WS_POPUP+$WS_DISABLED,$WS_EX_LAYERED)  ;+$WS_DISABLED 使得透明的窗体不触发按钮事件
   GUISetBkColor(0x333333)
   _winapi_SetLayeredWindowAttributes ($hTabA, 0x010101, 130);这个函数+ $WS_EX_LAYERED 实现透明度调节效果的效果
   $hTab = GUICreate("tab", $width, $hight, 0, @DesktopHeight-40, $WS_POPUP,$WS_EX_LAYERED)
   WinSetOnTop("tab","", 1)
   GUISetBkColor(0x333333)
   _winapi_SetLayeredWindowAttributes ($hTab, 0x333333, 255, $LWA_COLORKEY);这个函数+ $WS_EX_LAYERED +$LWA_COLORKEY 实现透明效果的效果


   $wimpath="ico\Windowssetup.ico"
  $wimKey=GUICtrlCreateIcon( $wimpath,-1,0, 0, 54, 40) ;GUICtrlCreatePic( "ico\Windowssetup.ico",0,0,$width,$hight)
   GUICtrlSetState(-1, $GUI_DISABLE)
GUISetState(@SW_SHOW,$hTabA)
GUISetState(@SW_SHOW,$hTab)
HotKeySet("{Esc}", _Hello)
EndFunc

  • 0
    点赞
  • 2
    收藏
    觉得还不错? 一键收藏
  • 0
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值