VB里要用一个sendmessage函数,谁给写个完整实例,谢谢了
因为这是我第一次在VB里用API函数,所以加不好。因为API函数我不会,还想借此机会顺便了解一下。API函数声明我知道,就是加API函数一加就加错,编译器报说函数语法错误...
因为这是我第一次在VB里用API函数,所以加不好。因为API函数我不会,还想借此机会顺便了解一下。API函数声明我知道,就是加API函数一加就加错,编译器报说函数语法错误。这里先谢谢了。我只有12分了,不好意思。
展开
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
Const WM_CLOSE = &H10
Private Sub Command1_Click()
SendMessage Me.hwnd, WM_CLOSE, 0, 0
End Sub
在窗体中加一个按钮。
窗体模块中声明要用private,如果直接从API浏览器中复制代码放在窗体模块中的话,会出错的。
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浏览器中复制代码放在窗体模块中的话,会出错的。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询