紫灵幽梦

关闭某窗口

0 Reply , Posted in 程序代码 on 2016 08, 2016

'以下代码放在模块里
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

标签: 软件编程 VB 窗体 句柄 关闭