如何制作透明的表单 (Form)?
2005-12-19 13:34
211 查看
如何制作透明的表单 (Form)?
请在声明区中放入以下声明
Const GWL_EXSTYLE = (-20)
Const WS_EX_TRANSPARENT = &H20&
Const SWP_FRAMECHANGED = &H20
Const SWP_NOMOVE = &H2
Const SWP_NOSIZE = &H1
Const SWP_SHOWME = SWP_FRAMECHANGED Or SWP_NOMOVE Or SWP_NOSIZE
Const HWND_NOTOPMOST = -2
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 SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
在 Form_Load 使用的范例如下:
Private Sub Form_Load()
SetWindowLong Me.hwnd, GWL_EXSTYLE, WS_EX_TRANSPARENT
SetWindowPos Me.hwnd, HWND_NOTOPMOST, 0&, 0&, 0&, 0&, SWP_SHOWME
Me.Refresh
End Sub
请在声明区中放入以下声明
Const GWL_EXSTYLE = (-20)
Const WS_EX_TRANSPARENT = &H20&
Const SWP_FRAMECHANGED = &H20
Const SWP_NOMOVE = &H2
Const SWP_NOSIZE = &H1
Const SWP_SHOWME = SWP_FRAMECHANGED Or SWP_NOMOVE Or SWP_NOSIZE
Const HWND_NOTOPMOST = -2
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 SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
在 Form_Load 使用的范例如下:
Private Sub Form_Load()
SetWindowLong Me.hwnd, GWL_EXSTYLE, WS_EX_TRANSPARENT
SetWindowPos Me.hwnd, HWND_NOTOPMOST, 0&, 0&, 0&, 0&, SWP_SHOWME
Me.Refresh
End Sub
相关文章推荐
- 解析在zend Farmework下如何创立一个FORM表单
- ASP.NET WebForm Form表单如何实现MVC那种“自动装配”效果呢?
- 如何用图片实现表单(form)的重置(reset)按钮
- 如何让一个Form部分透明
- go语言form表单提交以及后台如何接收并返回做一个简单的解释
- 如何封装form表单中富文本编辑器bootstrap wysiwyg到jfinal传递参数
- 用photoshop如何制作背景透明的图片
- Spring MVC中Controller如何获取Form表单提交的数据
- springMVC表单标签 <form:select>如何禁用下拉列表
- [网摘]使用fieldset、label标签制作form表单
- ASP.NET 安全认证(一)-如何运用 Form 表单认证
- 表单 multipart/form-data 如何提交中文乱码
- 在同一个form表单里有2个按钮,如何各自提交到不同的action里面去。
- ASP.NET2.0中form表单里面的值如何传到其他页面
- 如何使用Jquery获取Form表单中被选中的radio值
- OpenGL教程8(Bang翻译Delphi版)-如何制作立体透明效果 .
- form下载文件,指向iframe ,如何判断iframe加载完成 form.submit之后的事件问题 监听form表单下载文件是否完成
- 如何利用Info Path自定义Form表单?
- ASP.NET WebForm Form表单如何实现MVC那种“自动装配”效果呢?
- ASP.NET 安全认证(一)—— 如何运用 Form 表单认证 .(转)