[快捷功能]：
|
|
|
下面的是模块代码
'窗体位于最上层代码开始
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
Public Const HWND_TOPMOST = -1
Public Const HWND_NOTOPMOST = -2
Public Const SWP_NOMOVE = &H2
Public Const SWP_NOSIZE = &H1
Public Const SWP_SHOWWINDOW = &H40
Public Const FLAGS = &H2 Or &H1
'窗体位于最上层代码结束
下面是使用代码,可以放在任意地方,注意的两个retvalue=同时只能使用一个
Dim retvalue As Long
retvalue = SetWindowPos(Me.hwnd, HWND_NOTOPMOST, 0, 0, 0, 0, FLAGS)'取消最上层
retvalue = SetWindowPos(Me.hwnd, HWND_TOPMOST, 0, 0, 0, 0, FLAGS)'设置为最上层
最后编辑： 九天狼 编辑于2007年2月5日星期二 22:11
百度终于收了我网站一页了
窗体透明源码
2007年1月25日星期四 14:34 | by 
'窗体位于最上层代码开始
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
Public Const HWND_TOPMOST = -1
Public Const HWND_NOTOPMOST = -2
Public Const SWP_NOMOVE = &H2
Public Const SWP_NOSIZE = &H1
Public Const SWP_SHOWWINDOW = &H40
Public Const FLAGS = &H2 Or &H1
'窗体位于最上层代码结束
下面是使用代码,可以放在任意地方,注意的两个retvalue=同时只能使用一个
Dim retvalue As Long
retvalue = SetWindowPos(Me.hwnd, HWND_NOTOPMOST, 0, 0, 0, 0, FLAGS)'取消最上层
retvalue = SetWindowPos(Me.hwnd, HWND_TOPMOST, 0, 0, 0, 0, FLAGS)'设置为最上层
最后编辑： 九天狼 编辑于2007年2月5日星期二 22:11
您也可用OpenID登入:
