用API显示在上面,作用就是永远在上面,如果想让其它窗体在上面 就只能改变原窗体的状态 先将原窗体还原 AlwaysOnTop form1,false 然后再使用打开文件对话框吧Public Sub AlwaysOnTop(TheForm As Form, Toggle As Boolean) If Toggle = True Then SetWindowPos TheForm.HWND, -1, 0, 0, 0, 0, &H2 Or &H1 Else SetWindowPos TheForm.HWND, -2, 0, 0, 0, 0, &H2 Or &H1 End If End Sub主要还是不明确你为什么一定要那样实现
一个菜单打开另外一个窗体时,使用form1.show ,me
再调用打开文件对话框
就只能改变原窗体的状态
先将原窗体还原
AlwaysOnTop form1,false
然后再使用打开文件对话框吧Public Sub AlwaysOnTop(TheForm As Form, Toggle As Boolean)
If Toggle = True Then
SetWindowPos TheForm.HWND, -1, 0, 0, 0, 0, &H2 Or &H1
Else
SetWindowPos TheForm.HWND, -2, 0, 0, 0, 0, &H2 Or &H1
End If
End Sub主要还是不明确你为什么一定要那样实现