SendMessage问题

Question

>>rc = SendMessage(Me.hwnd, wm_settext, 0, ByVal cap)
rc 是 SendMessage 的返回值, 也就是 FALSE, SendMessage 调用失败了:)
试试下面:Option ExplicitPrivate Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As LongPrivate Sub Command1_Click()
    Dim rc As Long
    Dim cap As String
    cap = "12345"
    rc = SendMessage(Me.hwnd, &HC, 0, ByVal cap)
    MsgBox rc
    
End Sub

Answer 1

我用的就是这个API
但不行

Answer 2

realdreamer(1,2,3,跑~~ 哈,你咋那么慢啊) 
已经帮你解答了，仔细看看啦

Answer 3

看看这个吧
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Any) As LongPrivate Const WM_SETTEXT = &HC
Private Sub Command1_Click()
    Dim rc As Long
    Dim cap As String
    cap = "12345"
    SendMessage Me.hwnd, &HC, Len(cap), ByVal cap
    
End Sub