一旦我把主窗口设置成总在最前,软件运行时弹出的对话框,MSG函数出的那个对话框,就被挡住了,而且被挡住也也无法点击,但是如果主窗口不是总在最前的话,用起来很不方便。
怎么实现这种效果,主窗口总在最前,但是弹出的对话框却不会被挡住?
一旦我把主窗口设置成总在最前,软件运行时弹出的对话框,MSG函数出的那个对话框,就被挡住了,而且被挡住也也无法点击,但是如果主窗口不是总在最前的话,用起来很不方便。
怎么实现这种效果,主窗口总在最前,但是弹出的对话框却不会被挡住?
模块:Public 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)
窗体:
(窗口在其他窗口前)
Dim myval
myval = SetWindowPos(Form1.hwnd, -1, 0, 0, 0, 0, 3)
MSGBOX始终在前:()包括其他窗口前
mesg = MsgBox("提示",0 + 48 + 0 + 0, "在前")