您所在位置：主题：怎样用sendmessage实现msgbox功能？
xsh681
[专家分：0] 发布于 2005-09-19 12:24:00
用sendmessage简单实现msgbox弹出消息框＂Hello＂的功能？
我用以下操作怎么不行？
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_UNDO = &H304
Private Sub Command1_Click()
Dim s As String
s = "HELLO"
SendMessage Form1.hwnd, WM_UNDO, 0, s
End Sub
请快点答复，有急用，谢谢啦！！
我用以下操作怎么不行？
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_UNDO = &H304
Private Sub Command1_Click()
Dim s As String
s = "HELLO"
SendMessage Form1.hwnd, WM_UNDO, 0, s
End Sub
请快点答复，有急用，谢谢啦！！
