VB代码意思 在线等答案
发布网友
发布时间：2024-10-23 22:44
共1个回答
热心网友
时间：2024-11-09 15:58
Private Sub Form_Load()
Dim p As Long
p = GetWindowLong(Me.hwnd, GWL_EXSTYLE) '得到窗口的样式
Call SetWindowLong(Me.hwnd, GWL_EXSTYLE, p Or WS_EX_LAYERED)
'设置窗口样式
Call SetLayeredWindowAttributes(Me.hwnd, 0, 128, LWA_ALPHA)
'当取值为LWA_ALPHA时，crKey参数无效，bAlpha参数有效
'当取值为LWA_COLORKEY时，窗体中的所有颜色为crKey的地方将变为透明，bAlpha参数无效。
'LWA_ALPHA = 0x2 LWA_COLORKEY=0x1
End Sub
功能就是让你的窗体成为半透明
