>_<
没人回答,结束..................
没人回答,结束..................
解决方案 »
- 在调用WORD时候出现 类不支持自动化错误 什么 430
- 请问有谁热心帮我调试一下我的程序啊.实在不会了!qq.251409037
- 推荐一个vb的代码编辑器嘛,好不好?
- 如何把一串字符加密.......................
- 过年版主在吗??
- 请问如何获得控件的相关信息,例如库名、类名?
- 5555555刚才发的问题没了还得从新写
- 我在退出按钮添加了db.close,为什么系统提示:对象变量或WITH块变量未设置
- 一个 Combobox问题--急啊--------在线等待
- acptvb,我有一个有关winsock的积压了很久的问题,请指教,谢谢!!!
- 用VB写完了程序,现在要上市啦!请问哪儿有好的虚拟空间?
- 在2000 advanced server下开发的程序,也在2000 advanced server下打包,有的客户能用,有的客户就是装不上?
---------------------------------------------
Private Sub Form_Load()
Dim rtn As Long
rtn = GetWindowLong(Me.hwnd, GWL_EXSTYLE) '取的窗口原先的样式
rtn = rtn Or WS_EX_LAYERED '使窗体添加上新的样式WS_EX_LAYERED
SetWindowLong Me.hwnd, GWL_EXSTYLE, rtn '把新的样式赋给窗体
SetLayeredWindowAttributes Me.hwnd, 100, 255, LWA_ALPHA
'把窗体设置成半透明样式,第二个参数表示透明程度
'取值范围0--255,为0时就是一个全透明的窗体了
End Sub
用SetWindowRgn设置显示区域就行了不是 半透明控件在现有的Windows操作系统中,只要是控件,就不可能半透明