
'必需: Command1vb窗口关闭程序,Command2'================'关闭指定句柄的窗口: [SendMessageA] WM_CLOSE消息'SendMessageA的声明在前面,消息WM_CLOSE值是&H10,最后两个参数为空,使用0&. '如果函数返回值为0,则程序已处理此消息. '[声明]私有声明函数SendMessage Lib“ user32”别名“ SendMessageA”(ByVal hwnd一样长,ByVal wMsg一样长,ByVal wParam一样长,lParam一样)只要['Constant] Const WM_CLOSE =&H10' --- -----------------------'还有一个用于强制从内存中清除窗口的功能'[DestroyWindow function],其功能是直接清除内存1窗口,成功返回非零,失败返回0'[声明]私有声明函数DestroyWindow Lib“ user32”(ByVal hwnd As Long)As Long'[[Parameter]'hWnd的句柄形式已清除'------------------------'[呼叫]私人子Command1_Click()SendMessage Me.hwnd,WM_CLOSE,0&vb窗口关闭程序,0和End SubPrivate子Command2_Click()DestroyWindow Me .hwndEnd SubPrivate Sub Form_Load()Command1.Caption =“ SendMessage” Command2.Caption =“ DestroyWindow” End Sub
本文来自电脑杂谈,转载请注明本文网址:
https://www.pc-fly.com/a/ruanjian/article-183954-1.html
加油
虽然我们现在应该在军事上做好最坏的打算
那干嘛南方芝麻糊赔两包芝麻糊