vb sendmessage 改变textbox中text

zhaizhaoxuan 2008-12-20 12:10:25

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 Long

Private Sub Form_Load()

SendMessage Text1.hwnd, WM_SETTEXT, 0, "@"

End Sub

不行哦

...全文

184 2 打赏收藏转发到动态举报

写回复

用AI写文章

2 条回复

切换为时间正序

请发表友善的回复…

发表回复

wap21 2008-12-20

打赏
举报

ding

Hotus 2008-12-20

打赏
举报

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 Long

Private Sub Command1_Click()
SendMessage Text1.hwnd, WM_SETTEXT, 0, ByVal "@"
End Sub

就行了