如何插入图片文件 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 如何插入图片文件

共有2809人关注过本帖树形打印复制链接主题：如何插入图片文件

blackzhu

小大 1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐仙帖子：9876 积分：57613 威望：0 精华：15 注册：2008/9/1 9:45:00

如何插入图片文件 发帖心情

Post By：2016/1/14 14:17:00 [显示全部帖子]

RichTextBox 如何插入图片文件

blackzhu

小大 2楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐仙帖子：9876 积分：57613 威望：0 精华：15 注册：2008/9/1 9:45:00

Post By：2016/1/14 14:22:00 [显示全部帖子]

If Forms("聊天").Opened Then

Dim ct As Windows.Forms.RichTextBox

ct = Forms("聊天").Controls("Panel1").BaseControl.Controls("ct")

'System.Windows.Forms.RichTextBoxStreamType.PlainText

Dim img As Image = Image.FromFile(ProjectPath & "Images\" & e.Sender.Name)

Clipboard.SetDataObject(img)

ct.Paste()

End If

怎么改

[此贴子已经被作者于2016/1/14 14:22:49编辑过]

blackzhu

小大 3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐仙帖子：9876 积分：57613 威望：0 精华：15 注册：2008/9/1 9:45:00

Post By：2016/1/14 15:19:00 [显示全部帖子]

我记下你这. 但是我已经搞定了我现在又要做判断了,要发送到另外一个富文本中去.

blackzhu

小大 4楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐仙帖子：9876 积分：57613 威望：0 精华：15 注册：2008/9/1 9:45:00

Post By：2016/1/14 15:38:00 [显示全部帖子]

如何获取富文本中的图片文件等等的路径信息

blackzhu

小大 5楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐仙帖子：9876 积分：57613 威望：0 精华：15 注册：2008/9/1 9:45:00

Post By：2016/1/14 16:08:00 [显示全部帖子]

我试试

blackzhu

小大 6楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐仙帖子：9876 积分：57613 威望：0 精华：15 注册：2008/9/1 9:45:00

Post By：2016/1/14 16:45:00 [显示全部帖子]

我在选择图片的时候吧图片写入了一个路径

If Vars("路径") > "" Then

Dim MyImageFile As String = Vars("路径")

Dim bmp = new Bitmap(MyImageFile)

Clipboard.SetDataObject(bmp)'将数据置于系统剪贴板中

Dim dataFormat = System.Windows.Forms.DataFormats.GetFormat(System.Windows.Forms.DataFormats.Bitmap)'格式

If ct.CanPaste(dataFormat) Then

ct.Paste(dataFormat)

r("文件名") = MyImageFile

End If

但是这样写了以后没有办法从富文本1添加到富文本2

下一主题 >> << 上一主题

主题：如何插入图片文件