20分 VB 使窗体位于所有程序的前面! 全屏时也要 谢谢

来源：百度知道 编辑：UC知道 时间：2024/06/15 07:21:52
所有程序的前面 谢谢 满意答案给分
怎么都不行啊? 我自己找到了 要的跟我拿 谢谢回答

声明：
private Declare Function SetWindowPos Lib "user32" Alias "SetWindowPos" (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

使用：
setwindowpos me.hwnd ,-1,0,0,0,0,3
不置顶：
setwindowpos me.hwnd ,-2,0,0,0,0,3

其中 最后一个参数3实质是2 Or 1 它的实质是SWP_NOMOVE Or SWP_NOSIZE，即不改变大小和位置，因为setwindowpos有改变大小位置功能，因此必须这样加否则位置、大小会变

第一个参数-1是常数topmost，-2是nottopmost……

你看一下窗体的句柄，以前研究过，现在忘记了

Private Sub Form_DblClick()
Unload Me
End Sub

Private Sub Timer1_Timer()
Me.SetFocus
End Sub

简单方法 嘿嘿
其实可以使用API了，具体你去搜索 窗体置顶