关于API编程的问题

Question

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 Long
   
Const SWP_NOSIZE = &H1
Const SWP_NOMOVE = &H2
Const SWP_NOACTIVATE = &H10
Const HWND_TOPMOST = -1
Const HWND_NOTOPMOST = -2
Const SWP_SHOWWINDOW = &H40Private Sub Command4_Click()
    Hide
End SubPrivate Sub Form_Load()
 '使 窗 口 Always On Top用
    SetWindowPos hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOACTIVATE Or SWP_SHOWWINDOW Or SWP_NOMOVE Or SWP_NOSIZE
End SubPrivate Sub Command1_Click()
 '使 窗 口 Always On Top用
    SetWindowPos hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOACTIVATE Or SWP_SHOWWINDOW Or SWP_NOMOVE Or SWP_NOSIZE
End SubPrivate Sub Command2_Click()    '使 窗 口 取 消 Always On Top功 能 ， 用
    SetWindowPos hwnd, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NOACTIVATE Or SWP_SHOWWINDOW Or SWP_NOMOVE Or SWP_NOSIZE
End SubPrivate Sub Command3_Click()
    Form2.Show
End Sub

Answer 1

Sub是不应该有返回值的，但API函数多数是function，都有返回值

Answer 2

Form_Load事件中调用一下SetWindowPos就行了

Answer 3

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