VB 窗体始终在前

标签：pos   sub   amp   orm   call   for   insert   end   set   

Private 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)

Private Sub Form_Load()
Me.Show
Call SetWindowPos(Me.hwnd, -1, 0, 0, 0, 0, 3)
‘……其它代码
End Sub

VB 窗体始终在前

标签：pos   sub   amp   orm   call   for   insert   end   set   

原文地址：http://www.cnblogs.com/zgwxm/p/7172113.html