Question

VB 中的sendmessage的用法 高手进

我想用sendmessage给自己窗口发一个WM_CLOSE,达到结束自身的作用,代码是什么我记不得了!请高手帮忙写一下,越简单越好,那些一篇一篇复制张贴的给我滚出去!

Answer 1

用API文本...把sendmessage函数插入进去!如下:
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
这是常数:
Private Const WM_CLOSE = &H10
Pirvate sub command1)Click()
SendMessage me.hwnd,WM_CLOSE,0,0
End Sub

Answer 2

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const WM_CLOSE = &H10

Private Sub Command1_Click()
SendMessage hwnd, WM_CLOSE, 0, 0
End Sub