Dynamic mobile control

zhaozj2021-02-11  183

Private Declare Function SendMessage Lib "user32" Alias ​​_ "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, _ByVal wParam As Long, lParam As Any) As LongConst WM_SYSCOMMAND = & H112Const SC_MOVE = & HF012

'---- Add a command button in the window Command1, double-click the code as follows:

Private submmand1_click () Dim Ren as integerren = sendMessage (Command1.hwnd, WM_SYSCOMMAND, SC_MOVE, 0) End Sub

'---- Add the command button in the window Command2, double click to write as follows:

Private submmand2_click () unload mend Sub

转载请注明原文地址:https://www.9cbs.com/read-4880.html

New Post(0)