Public Const wFlags = &H2 Or &H1 Or &H40 Or &H10 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 LongDim ss As Long ss = SetWindowPos(Me.hwnd, -1, 0, 0, 0, 0, wFlags)
'窗口最前API,将它放在要置前的窗体里--------------------------------------- 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) As LongPrivate Const HWND_TOPMOST = -1 Private Const SWP_SHOWWINDOWS = &H40 '-----------------------------------------------Private Sub Form_Load() '窗口最前 Dim retValue As Long retValue = SetWindowPos(Me.hwnd, HWND_TOPMOST, Me.CurrentX, _ Me.CurrentY, 300, 300, SWP_SHOWWINDOWS)
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 LongDim ss As Long
ss = SetWindowPos(Me.hwnd, -1, 0, 0, 0, 0, wFlags)
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) As LongPrivate Const HWND_TOPMOST = -1
Private Const SWP_SHOWWINDOWS = &H40
'-----------------------------------------------Private Sub Form_Load()
'窗口最前
Dim retValue As Long
retValue = SetWindowPos(Me.hwnd, HWND_TOPMOST, Me.CurrentX, _
Me.CurrentY, 300, 300, SWP_SHOWWINDOWS)
Me.Height = 375 '窗体高
Me.Width = 4245 '窗体宽
Me.Left = 7755 '距左边距
End Sub
'窗体大小,自己调整吧