VB6 代码管家-关闭某窗口
发表于 2024年12月8日 21:43
返回列表'以下代码放在模块里
Public Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Public Const WM_SYSCOMMAND = &H112
Public Const SC_CLOSE = &HF060&
'以下代码放在form里
Private Sub Command1_Click()
PostMessage 句柄, WM_SYSCOMMAND, SC_CLOSE, 0
End Sub