VB
发布时间:2022-04-03 发布网站:大佬教程 code.js-code.com
大佬教程收集整理的这篇文章主要介绍了VB无所不能之四:制作透明和半透明窗体,大佬教程大佬觉得挺不错的,现在分享给大家,也给大家做个参考。
VB无所不能之四:制作透明和半透明窗体
——作者:钟声
同样,对Windows系统方面的编程似乎首先想到的绝对不是VB,而大部分程序员想到的一定是VC。
其实,VB对于这个实现非常方
便且简单,用到了“user32”中的SetLayeredWindowAttributes()函数。
SetLayeredWindowAttributes()函数介绍:
函数声明:
Declare
Function SetLayeredWindowAttributes Lib
"user32" () Declare
Function SetLayeredWindowAttributes Lib
"user32" (ByVal hwnd
As Long,ByVal crKey
As Long,ByVal bAlpha
As Byte,ByVal dwFlags
As Long)
As Long
hwnd是透明窗体的句柄,
crKey为颜色值,
bAlpha是透明度,取值范围是[0,255],
dwFlags是透明方式,可以取两个值:当取值为LWA_ALPHA时,crKey参数无效,bAlpha参数有效;
当取值为LWA_COLORKEY时,bAlpha参数有效而窗体中的所有颜色为crKey的地方将变为透明
。
下面我们做两个实验:
第一个:做一个半透明窗体
步骤一:打开VB建立一个窗体Form
步骤二:将窗体背景颜色设为
@H_
489_93@:&HFF0000
@H_
489_93@
步骤三:将下面代码粘贴到程序中:
Declare
Function GetWindowLong Lib
"user32" Alias
"GetWindowLongA" () Declare
Function GetWindowLong Lib
"user32" Alias
"GetWindowLongA" (ByVal hwnd
As Long,ByVal nIndex
As Long)
As Long
Declare
Function SetWindowLong Lib
"user32" Alias
"SetWindowLongA" () Declare
Function SetWindowLong Lib
"user32" Alias
"SetWindowLongA" (ByVal hwnd
As Long,ByVal nIndex
As Long,ByVal dwNewLong
As Long)
As Long
Declare
Function SetLayeredWindowAttributes Lib
"user32" () Declare
Function SetLayeredWindowAttributes Lib
"user32" (ByVal hwnd
As Long,ByVal crKey
As Long,ByVal bAlpha
As Byte,ByVal dwFlags
As Long)
As Long
Private
Const WS_EX_LAYERED = &H80000
Const GWL_EXSTYLE = ()
Const GWL_EXSTYLE = (-20)
Private
Const LWA_ALPHA = &H2
Private
Const LWA_COLORKEY = &H1
Sub Form_Load()
Sub Form_Load()
Dim rtn
As Long
rtn = GetWindowLong(hwnd,GWL_EXSTYL
E)
rtn = rtn
Or WS_EX_LAYERED
SetWindowLong hwnd,GWL_EXSTYLE,rtn
SetLayeredWindowAttributes hwnd,100,LWA_ALPHA
End
Sub
运行结果如下:
第一个:做一个异型窗体
在之前的窗体上放置一个图片如图所示:
GetWindowLong Lib
"user32" Alias
"GetWindowLongA" () GetWindowLong Lib
"user32" Alias
"GetWindowLongA" ( GetWindowLong Lib
"user32" Alias
"GetWindowLongA" () GetWindowLong Lib
"user32" Alias
"GetWindowLongA" (ByVal hwnd
As Long,ByVal nIndex
As Long)
As Long
SetWindowLong Lib
"user32" Alias
"SetWindowLongA" () SetWindowLong Lib
"user32" Alias
"SetWindowLongA" ( SetWindowLong Lib
"user32" Alias
"SetWindowLongA" () SetWindowLong Lib
"user32" Alias
"SetWindowLongA" (ByVal hwnd
As Long,ByVal nIndex
As Long,ByVal dwNewLong
As Long)
As Long
SetLayeredWindowAttributes Lib
"user32" () SetLayeredWindowAttributes Lib
"user32" ( SetLayeredWindowAttributes Lib
"user32" () SetLayeredWindowAttributes Lib
"user32" (ByVal hwnd
As Long,ByVal crKey
As Long,ByVal bAlpha
As Byte,ByVal dwFlags
As Long)
As Long
Private
Const WS_EX_LAYERED = &H80000
Const GWL_EXSTYLE = ()
Const GWL_EXSTYLE = (-20)
Private
Const LWA_ALPHA = &H2
Private
Const LWA_COLORKEY = &H1
Sub Form_Load()
Sub Form_Load()
Dim rtn
As Long
B
orderstyler = 0
rtn = GetWindowLong(hwnd,GWL_EXSTYL
E)
rtn = rtn
Or WS_EX_LAYERED
SetWindowLong hwnd,rtn
SetLayeredWindowAttributes hwnd,&HFF0000,LWA_COLORKEY
'将扣去窗口中的蓝色
End
Sub
运行结果如下所示:
大佬总结
以上是大佬教程为你收集整理的VB无所不能之四:制作透明和半透明窗体全部内容,希望文章能够帮你解决VB无所不能之四:制作透明和半透明窗体所遇到的程序开发问题。
如果觉得大佬教程网站内容还不错,欢迎将大佬教程推荐给程序员好友。
本图文内容来源于网友网络收集整理提供,作为学习参考使用,版权属于原作者。
如您有任何意见或建议可联系处理。小编QQ:384754419,请注明来意。