|
改变150这个数字的大小可以改变透明度!范围为0到255之间。
- Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
- Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
- Private 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
- Private Const GWL_EXSTYLE = (-20)
- Private Const LWA_ALPHA = &H2
- Private Const LWA_COLORKEY = &H1
- Private Sub Form_Load()
- Dim rtn As Long
- rtn = GetWindowLong(hwnd, GWL_EXSTYLE)
- rtn = rtn Or WS_EX_LAYERED
- SetWindowLong hwnd, GWL_EXSTYLE, rtn
- SetLayeredWindowAttributes hwnd, 0, 150, LWA_ALPHA
- End Sub
复制代码
|
|