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


  共有2982人关注过本帖树形打印复制链接

主题：如何插入图片文件
帅哥哟，离线，有人找我吗？
blackzhu
 小大  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：狐仙 帖子：9879 积分：57646 威望：0 精华：15 注册：2008/9/1 9:45:00 		如何插入图片文件  发帖心情 Post By：2016/1/14 14:17:00 [只看该作者]

RichTextBox 如何插入图片文件

 回到顶部
帅哥哟，离线，有人找我吗？
blackzhu
 小大  2楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：狐仙 帖子：9879 积分：57646 威望：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
End If
 回到顶部
帅哥哟，离线，有人找我吗？
blackzhu
 小大  4楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：狐仙 帖子：9879 积分：57646 威望：0 精华：15 注册：2008/9/1 9:45:00 		  发帖心情 Post By：2016/1/14 15:19:00 [只看该作者]

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

 回到顶部
帅哥哟，离线，有人找我吗？
blackzhu
 小大  5楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：狐仙 帖子：9879 积分：57646 威望：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
End If
 回到顶部
帅哥哟，离线，有人找我吗？
blackzhu
 小大  7楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：狐仙 帖子：9879 积分：57646 威望：0 精华：15 注册：2008/9/1 9:45:00 		  发帖心情 Post By：2016/1/14 16:08:00 [只看该作者]

我试试
 回到顶部
帅哥哟，离线，有人找我吗？
blackzhu
 小大  8楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：狐仙 帖子：9879 积分：57646 威望：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
    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
    End If

就是无效
 回到顶部
总数 14 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.06250 秒, 4 次数据查询