如何实现总在最前??

Question

RT

Answer 1

是让窗体显示在最前面吗？
记得好象有一个show的属性可以
frmExample.show 1

Answer 2

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) As Long
Public Const hwnd_top = 0
Public Const hwnd_bottom = 1
Public Const hwnd_topmost = -1
Public Const hwnd_notopmost = -2
Public Const swp_nosize = &H1
Public Const swp_nomove = &H2
Public Const swp_nozorder = &H4
Public Const swp_noredraw = &H8
Public Const swp_noactivate = &H10
Public Const swp_framechanged = &H20        '  the frame changed: send wm_nccalcsize
Public Const swp_showwindow = &H40
Public Const swp_hidewindow = &H80
Public Const swp_nocopybits = &H100
Public Const swp_noownerzorder = &H200      '  don't do owner z ordering'以上放在模块中
Private Sub Form_Load()SetWindowPos FrmMain.hWnd, hwnd_topmost, 0, 0, 0, 0, swp_nosize Or swp_nomove
'置顶
'SetWindowPos FrmMain.hWnd, hwnd_notopmost, 0, 0, 0, 0, swp_nosize Or swp_nomove
'取消置顶end sub

Answer 3

Option ExplicitPrivate 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 LongPrivate Sub Form_Load()
    SetWindowPos Me.hwnd, -1, ScaleX(Me.Left, vbTwips, vbPixels), ScaleY(Me.Top, vbTwips, vbPixels), ScaleX(Me.Width, vbTwips, vbPixels), ScaleY(Me.Height, vbTwips, vbPixels), &H10 Or &H40
End Sub