Question

VB里要用一个sendmessage函数，谁给写个完整实例，谢谢了

因为这是我第一次在VB里用API函数，所以加不好。因为API函数我不会，还想借此机会顺便了解一下。API函数声明我知道，就是加API函数一加就加错，编译器报说函数语法错误。这里先谢谢了。我只有12分了，不好意思。

Answer 1

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

Const WM_CLOSE = &H10

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

在窗体中加一个按钮。

窗体模块中声明要用private，如果直接从API浏览器中复制代码放在窗体模块中的话，会出错的。

Answer 2

http://lib.yctc.edu.cn/study/bckj/cx/program/vb/Vb029.htm