用VB编程工具如何做QQ发送文字和图片功能

来源：百度知道 编辑：UC知道 时间：2024/07/07 09:09:38
在QQ中，文本框不是可以既发送文字，也可以发送图片或者小表情嘛
请问这个在VB中怎么才能实现？
或者用别的什么控件？搜richtextbox还是什么？
邮箱：531172700@163.com

可以用Winsock哦，我有现成的代码，你留个邮箱吧，不过先把分给我

Private Const WM_PASTE = &H302

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()
Picture1.Picture = LoadPicture("C:\1.bmp")
Clipboard.Clear
Clipboard.SetData Picture1.Image

RichTextBox1.SelStart = Len(RichTextBox1)
SendMessage RichTextBox1.hwnd, WM_PASTE, 0, 0

End Sub

用WEB控件

WEB控件