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 Sub Command1_Click()
ret = SetWindowPos(Me.hwnd, -1, 0, 0, 0, 0, 3)
End SubPrivate Sub Command2_Click()
ret = SetWindowPos(Me.hwnd, -2, 0, 0, 0, 0, 3)
End Sub要那么麻烦干什么名啊?
ret = SetWindowPos(Me.hwnd, -1, 0, 0, 0, 0, 3)
End SubPrivate Sub Command2_Click()
ret = SetWindowPos(Me.hwnd, -2, 0, 0, 0, 0, 3)
End Sub要那么麻烦干什么名啊?
"user32" Alias "SetWindowPos" (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
写在函数外。
就是me.hwnd
另外,dick8125朋友的程序能通过但是不能达到Always On Top 的功能。