可以指定透明的颜色的那个!
解决方案 »
- 如何强制关闭Windows XP系统?
- ListView1是什么控件?
- 用WebBrowser自动在网页里上传文件后,网页弹出一个"上传成功"的对话框.怎样实现自动点击"OK "按钮
- 各位大哥 vb 中 怎么样实现 给日期加xx天或者是减xx天,或者加xx年,减xx年?? 在线等啊
- access作为网络数据库,一般可以支持多少人同时使用?另外两个程序在互联网上通讯,是否和局域网通讯一样原理?
- dde server windows程序没有响应?
- 输入问题?
- 求助:如何使用MAPI来发送邮件?
- sql anywhere 的oledb7.dll出错误,请问怎么回事(32分)
- hnlzh(吸海垂虹) 谢谢 请看看
- 请教各位高手,vb调用mapinfo的问题
- 如何通过HttpSendRequest上传二进制文件
http://www.xuevb.net/modules/news/article.php?storyid=771
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 = &H1Private 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, VbRed,0, LWA_COLORKEY '屏蔽红色
End Sub
'注意窗体不显示标题栏
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 = &H1Private 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, VbRed,0, LWA_COLORKEY '屏蔽红色
End Sub
'注意窗体不显示标题栏
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 = &H1Private 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, VbRed,0, LWA_COLORKEY '屏蔽红色
End Sub
'注意窗体不显示标题栏