在form2里使用API函数
form2里的代码:
Option Explicit
'窗口总在最前面的API函数
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
Const HWND_TOPMOST = -1
Const SWP_SHOWWINDOW = &H40
Private Sub Form_Load()
Dim retValue As Long
Rem 将窗体设置为处于所有窗口的顶层,注意在 VB 中运行时,
'可能不行,但编译成EXE后就可以了
retValue = SetWindowPos(Me.hwnd, HWND_TOPMOST, Me.CurrentX, Me.CurrentY, 400, 300, SWP_SHOWWINDOW)
End Sub
追问试过了,点击form1上面的按键,form2依然被form1覆盖
追答上面的代码是放在要始终处于上面的窗体里??????
我这个是在VB6里,通过测试的?
追问我这里form1是全屏显示的,按照你说的试了一下,点击form1上面的按键对form2操作时,form1就变成了上层。
追答我的版本 VB6 简体中文企业版 + SP6
我把通过测试的工程发给你,你再试。也许我没有理解你的要求?