API
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
……
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
……
解决方案 »
- 除了英文和数字全是乱码
- 一个转换的问题??
- 请问各位大侠:VB中如何突破文本框大小64K限制?
- 紧急求问?vb数据库编程(引用ado)打开(connection)连接的时候报告没有可安装的ISAM,是什么原因?
- 请问怎么在图片中插入时间?
- 怎么使用VB代码实现RichTextbox中文本的全选
- 为什么我这个Winsock程序老是出现 Run-time error '10054': The Connection is reset by remote side
- 我想做一个修改MTU值的小软件,请大家帮我一下
- 图像B是图像A中的一部分,如何判断图像B在图像A中的XY位置?在线等
- 头痛的颜色问题
- combo和ado绑定的问题~!!~~~!!!
- 急,请帮忙!
Public Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As LongPublic Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As LongPublic Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As LongPublic Const WS_EX_LAYERED = &H80000
Public Const GWL_EXSTYLE = (-20)
Public Const LWA_ALPHA = &H2
Public Const LWA_COLORKEY = &H1
Public Sub setAlphaWindow(frm As Object, Effect As Integer) Dim rtn As Long
rtn = GetWindowLong(frm.hwnd, GWL_EXSTYLE)
rtn = rtn Or WS_EX_LAYERED
SetWindowLong frm.hwnd, GWL_EXSTYLE, rtn
If Effect = 2 Then
'&H0:Color values(rgb(0,0,0))
SetLayeredWindowAttributes frm.hwnd, &H0, 0, LWA_COLORKEY
Else
'LWA_ALPHA:alpha mode
'192: alpha degree(0-255)
SetLayeredWindowAttributes frm.hwnd, 0, 192, LWA_ALPHA
End If End Sub