1,486
社区成员
发帖
与我相关
我的任务
分享vb sendmessage 改变textbox中text
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不行哦
...全文
请发表友善的回复…
发表回复
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
就行了
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
就行了
