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

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

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

blackzhu

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

加好友

发短信

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

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

Post By：2016/1/14 14:17:00 [只看该作者]

RichTextBox 如何插入图片文件

blackzhu

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

加好友

发短信

等级：狐仙帖子：9879 积分：57634 威望：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编辑过]

Hyphen

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

加好友

发短信

等级：狐神帖子：5015 积分：25363 威望：0 精华：0 注册：2015/8/18 9:21:00

Post By：2016/1/14 14:58:00 [只看该作者]

Dim richTextBox1 As new Windows.Forms.RichTextBox

richTextBox1.Location = new System.Drawing.Point(12, 60)

richTextBox1.Name = "richTextBox1"

richTextBox1.Size = new System.Drawing.Size(312, 236)

e.Form.Controls("Panel1").basecontrol.controls.add(richTextBox1)

Dim dlg As new OpenFileDialog

If dlg.ShowDialog = DialogResult.Ok Then

Dim bmp = new Bitmap(dlg.FileName)

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

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

If richTextBox1.CanPaste(dataFormat) Then

richTextBox1.Paste(dataFormat)

End If

blackzhu

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

加好友

发短信

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

Post By：2016/1/14 15:19:00 [只看该作者]

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

blackzhu

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

加好友

发短信

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

Post By：2016/1/14 15:38:00 [只看该作者]

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

Hyphen

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

加好友

发短信

等级：狐神帖子：5015 积分：25363 威望：0 精华：0 注册：2015/8/18 9:21:00

Post By：2016/1/14 15:51:00 [只看该作者]

Dim richTextBox1 As Windows.Forms.RichTextBox

richTextBox1 = e.Form.Controls("Panel1").BaseControl.Controls(0)

If richTextBox1 IsNot Nothing Then

Dim img1 = ctype(Clipboard.GetData(System.Windows.Forms.DataFormats.Bitmap),Image)

If img1 IsNot Nothing Then

e.Form.Controls("PictureBox1").image = img1

End If

blackzhu

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

加好友

发短信

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

Post By：2016/1/14 16:08:00 [只看该作者]

我试试

blackzhu

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

加好友

发短信

等级：狐仙帖子：9879 积分：57634 威望：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

Hyphen

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

加好友

发短信

等级：狐神帖子：5015 积分：25363 威望：0 精华：0 注册：2015/8/18 9:21:00

Post By：2016/1/14 17:16:00 [只看该作者]

富文本1选中图片，右键菜单复制，然后取得图片对象，发给富文本2，用6楼的方法

如果知道本地文件路径，直接按3楼的方法粘贴到富文本2就可以。

布莱克朱

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

加好友

发短信

等级：三尾狐帖子：623 积分：3897 威望：0 精华：0 注册：2011/8/3 22:13:00

Post By：2016/1/14 17:50: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

就是无效

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

总数 14 1 2 下一页

主题：如何插入图片文件