sendmessage传送问题~~~~!!

Question

SendMessage 窗口句柄, WM_SETTEXT, 0&, ByVal "字符串"
传送过去是乱码~~~
大虾帮忙啊

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
Private Const WM_SETTEXT = &HC
Private Sub Command1_Click()
Form2.Show
SendMessage Form2.hwnd, WM_SETTEXT, 0&, ByVal "字符串"
End Sub
在我这没有问题
一般可以用Private Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String) As Long来实现这条功能啊。