如何使窗体置于顶层，谢谢

bruce0913

我设计的窗体在程序运行后总是会置于底层。请问如何才能使其置于顶层呢？谢谢。

livewire

参考

1. 
   
2. Const HWND_TOPMOST = -1
   
3. Const HWND_NOTOPMOST = -2
   
4. Const SWP_NOSIZE = &H1
   
5. Const SWP_NOMOVE = &H2
   
6. Const SWP_NOACTIVATE = &H10
   
7. Const SWP_SHOWWINDOW = &H40
   
8. 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)
   
9. 
   
10. Private Sub Form_Activate()
    
11.       'Set the window position to topmost
    
12.     SetWindowPos Me.hWnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOACTIVATE Or SWP_SHOWWINDOW Or SWP_NOMOVE Or SWP_NOSIZE
    
13. End Sub
    

复制代码

bruce0913

谢谢你的帮助。我在运行时提示数据成员“hWnd”没有找到。我还发现这个“HWND_NOTOPMOST ”这个没有用上。请问如何改进呢？谢谢！

bruce0913

谢谢livewire 的热心帮助。我发现了我的问题，我把代码放错了地方。你的代码很有效，解决了我的问题。再次感谢！

livewire

参考：
http://club.excelhome.net/viewth ... d=369907#pid1192893

qinyu0745

留个记号！后面来学习！