自己写代码http://www.21code.com/codebase/?pos=list&type=search&key=透明参考以上代码
解决方案 »
- 急----VB 6.0 ComboBox控件禁用右键的复制和粘贴
- combo出问题了,快帮帮
- 文本框控件哪个功能强一点?
- 发布LTwebword控件(共享版)
- VB的临时文件放在哪里?我的程序文件坏了,想找回来!!!
- 我想给我的软件必须要登陆密码才能进入?如何存储密码好呢?
- DTPicker控件在KeyPress事件中,日期格式为 2004-08-14,回车后,焦点自动移到2004上,再回车,焦点就不移动了,我想让回车把焦点移到08,
- 如何使用sendmesssage向一个文本框发送按键消息?
- 请问VB中如何判断输入的字符是繁体还是简体
- 请playyuer(女㊣爱)及其它高手提供一些经典实用的ADO语法或SQL语句或(MSDN上有的就不要提供了)
- VB+SQL的程序在分发时用什么工具把SQL数据库也做成安装程序,请各位高手赐教!
- 能否在VB中定义一个接口(Interface)
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 = -2Private 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