VB的richtextbox可以粘贴图片吗，怎么做？

或者说个比richtextbox好用的编辑框

.....................这个是在运行中动态添加图片到richtextbox中的代码
用sendmessage 函数 原理是先把图片“放”到剪贴板中 然后 再发送方到richtexhbox中
先声明
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Integer, ByVal lParam As Long) As Long

添加一个Picture 用来显示图片

在picture 的 click 事件中写如下代码
Clipboard.Clear '清除剪贴板
Clipboard.SetData ImageList1.ListImages(Index + 1).Picture '把图片框中的图片 保存到 剪切板中
SendMessage RichTextBox1.hWnd, &H302, 0, 0 '发剪贴板中的数据到richtextbox中

richtextbox.image="文件路径" RichTextBox.ImageAlign可以设置图像的位置 你说的粘贴图片,直接复制粘贴就可以了 ctrl+V

option explicit private sub command1_click() dim sstart as long, lenstr as long dim wzflag as long sstart = richtextbox1.selstart lenstr = 7 do wzflag = richtextbox1.find("(", sstart) if wzflag = -1 then exit do end if richtextbox1.selstart = wzflag richtextbox1.sellength = lenstr richtextbox1.selcolor = vbred sstart = wzflag + lenstr + 1 loop end sub 可能是你没有声明变量吧，这样应该可以了，我运行过，可以了