首页 /编程语言和算法/VB6/ASP
 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


 
全部回复(0)
首页 | 电脑版 |