我想让我的窗口总在最前面，象QQ一样

[运动健将]

我想让我的窗口总在最前面，象QQ一样

[shazifeng]

Public Sub SetOnTop(hWnd As Long, bSetting As Boolean) '设置总在前函数
If bSetting Then
SetWindowPos hWnd, HWND_TOPMOST, 0, 0, 0, 0, _
SWP_NOMOVE Or SWP_NOSIZE
Else
SetWindowPos hWnd, HWND_NOTOPMOST, 0, 0, 0, 0, _
SWP_NOMOVE Or SWP_NOSIZE
End If
End Sub

将想要操作的窗体句柄写入就行了

[踏平扶桑]

http://expert.csdn.net/Expert/topic/2029/2029573.xml?temp=.2415888


Static m_flag As Boolean
m_flag = Not m_flag
If m_flag = True Then '最前
SetWindowPos Me.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE
bfrmFlag = True
Else '普通
SetWindowPos Me.hwnd, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE
bfrmFlag = False
End If