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

答案:2 悬赏:30 手机版

解决时间 2021-01-25 06:14

提问者网友：最爱你的唇
2021-01-24 07:59

最佳答案

五星知识达人网友：鱼芗
2021-01-24 08:15

.....................这个是在运行中动态添加图片到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中

全部回答

1楼网友：神鬼未生
2021-01-24 09:09

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

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息