100！现在来不及看书了，大家谁能简要告诉我一下sendmessage的用法，只要求向窗体传递文本值

Question

越简单越好

Answer 1

Private Const WM_SETTEXT = &HC
Private 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()
SendMessage Me.hwnd, WM_SETTEXT, 0, ByVal "this is test"
SendMessage Text1.hwnd, WM_SETTEXT, 0, ByVal "this is test"
SendMessage Command1.hwnd, WM_SETTEXT, 0, ByVal "this is test"
End Sub

Answer 2

Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Public Const WM_GETTEXT = &HD    '得到文本
Public Const WM_SETTEXT = &HC    '发送文本
SendMessage(me.hWnd,WM_SETTEXT,"你的文本值",0)

Answer 3

对不起，我不太懂这么样最后这句
me.hWnd 代表什么？

Answer 4

还是不会用啊
我把
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Public Const WM_GETTEXT = &HD    '得到文本
Public Const WM_SETTEXT = &HC    '发送文本
帖在模块里头，把
SendMessage(me.hWnd,WM_SETTEXT,"你的文本值",0)
写在按纽代码里，它出错

Answer 5

往Text1发送信息
SendMessage Text1.hwnd, WM_SETTEXT, 0, "你的文本值"
试试

Answer 6

要按值传输ByVal "你的文本值"SendMessage Text1.hwnd, WM_SETTEXT, 0, ByVal "你的文本值"

Answer 7

Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Public Const WM_GETTEXT = &HD    '得到文本
Public Const WM_SETTEXT = &HC    '发送文本
帖在模块里头，把
SendMessage(me.hWnd,WM_SETTEXT,"你的文本值",0)
 
dim lngWnd as long
dim strtemp*255 as stringlngwnd=text1.hwnd
strtemp="你的文本值"WM_SETTEXT  
wParam = 0;                     // not used; must be zero 
lParam = (LPARAM)(LPCTSTR)lpsz; // address of window-text string 
这是对WM_SETTEXT这条消息的定义SendMessage(lngwnd,WM_SETTEXT,0,byval strtemp)