在mdi窗体弹出来一个新窗口(可以是子窗体,也可以不是子窗体。)后,我想让新的窗体总在所有窗体的最前面(只是对于整个工程,不包含别的,如桌面,任务栏什么的。)
解决方案 »
- 程序发布后部分电脑不能使用(回答速给50分)
- sql数据库备份与恢复
- 为什么我查询到的只是第一条记录?
- 初学VB,哪有数据报表(DataReport)的使用教程?
- 高手进来探讨一下这个问题
- 请教高手,如何实现局域网的“网上邻居”功能?(高分求救!)
- 在对象浏览器里如果一个类只有类名,却没有任何属性和方法,说明什么?
- 熟悉VB中MSChart控件的朋友们请帮忙!
- datagrid控件列隐藏问题.急........
- 怎样才能直接读取winzip压缩文件里面的文件(不用解开来),就想winamp加载它的skin一 样
- 请问那位哥哥(姐姐)知道如何用VB程序修改虚拟目录下的实际路径?
- 数据修改(update语句)的疑问,在线等,急,马上结帖!!!!!!
如果你要在工程中所有窗体里置前Form2.Show 1
总是在最前,相对于所有应用程序Const HWND_TOPMOST = -1
Const HWND_NOTOPMOST = -2
Const SWP_NOSIZE = &H1
Const SWP_NOMOVE = &H2
Const SWP_NOACTIVATE = &H10
Const SWP_SHOWWINDOW = &H40
Private Declare Sub 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)Private Sub Form_Activate()
SetWindowPos Me.hWnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOACTIVATE Or SWP_SHOWWINDOW Or SWP_NOMOVE Or SWP_NOSIZE
End Sub
Const HWND_NOTOPMOST = -2
Const SWP_NOSIZE = &H1
Const SWP_NOMOVE = &H2
Const SWP_NOACTIVATE = &H10
Const SWP_SHOWWINDOW = &H40
Private Declare Sub 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)Private Sub MDIForm_Load()
SetWindowPos Me.hWnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOACTIVATE Or SWP_SHOWWINDOW Or SWP_NOMOVE Or SWP_NOSIZE
End Sub