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 SWP_NOMOVE = &H2 '不移动窗体 Public Const SWP_NOSIZE = &H1 '不改变窗体尺寸 Public Const Flag = SWP_NOMOVE Or SWP_NOSIZE Public Const HWND_TOPMOST = -1 '窗体总在最前面 Public Const HWND_NOTOPMOST = -2 '窗体不在最前面 Option Explicit '为窗体添加代码如下: Private Sub cmdNormal_Click() cmdTopMost.Enabled = True cmdNormal.Enabled = False Form1.Caption = "现在是普通窗口" SetWindowPos Form1.hwnd, HWND_NOTOPMOST, 0, 0, 0, 0, Flag End Sub Private Sub cmdTopMost_Click() cmdTopMost.Enabled = False cmdNormal.Enabled = True Form1.Caption = "现在是TopMost窗口" SetWindowPos Form1.hwnd, HWND_TOPMOST, 0, 0, 0, 0, Flag End SubPrivate Sub Command2_Click()End SubPrivate Sub Timer1_Timer() cmdTopMost.Enabled = False cmdNormal.Enabled = True Form1.Caption = "现在是TopMost窗口" SetWindowPos Form1.hwnd, HWND_TOPMOST, 0, 0, 0, 0, Flag End Sub这段代码能使你的窗体总在最前面.. 不知是不是你要的功能....:)
setforegroundwindow()
就ok了!
你的语句我没有见过呀~能解释一下吗?
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 SWP_NOMOVE = &H2 '不移动窗体
Public Const SWP_NOSIZE = &H1 '不改变窗体尺寸
Public Const Flag = SWP_NOMOVE Or SWP_NOSIZE
Public Const HWND_TOPMOST = -1 '窗体总在最前面
Public Const HWND_NOTOPMOST = -2 '窗体不在最前面
Option Explicit
'为窗体添加代码如下:
Private Sub cmdNormal_Click()
cmdTopMost.Enabled = True
cmdNormal.Enabled = False
Form1.Caption = "现在是普通窗口"
SetWindowPos Form1.hwnd, HWND_NOTOPMOST, 0, 0, 0, 0, Flag
End Sub
Private Sub cmdTopMost_Click()
cmdTopMost.Enabled = False
cmdNormal.Enabled = True
Form1.Caption = "现在是TopMost窗口"
SetWindowPos Form1.hwnd, HWND_TOPMOST, 0, 0, 0, 0, Flag
End SubPrivate Sub Command2_Click()End SubPrivate Sub Timer1_Timer()
cmdTopMost.Enabled = False
cmdNormal.Enabled = True
Form1.Caption = "现在是TopMost窗口"
SetWindowPos Form1.hwnd, HWND_TOPMOST, 0, 0, 0, 0, Flag
End Sub这段代码能使你的窗体总在最前面..
不知是不是你要的功能....:)
http://www.china-askpro.com/msg34/qa70.shtml上面有个ForceFore.zip 的强制窗口置为当前窗口的小程序试试看