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


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

主题：如何插入图片文件
帅哥哟，离线，有人找我吗？
Hyphen
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | 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
 回到顶部
帅哥哟，离线，有人找我吗？
Hyphen
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | 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
 回到顶部
帅哥哟，离线，有人找我吗？
Hyphen
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：5015 积分：25363 威望：0 精华：0 注册：2015/8/18 9:21:00 		  发帖心情 Post By：2016/1/14 17:16:00 [显示全部帖子]

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

如果知道本地文件路径，直接按3楼的方法粘贴到富文本2就可以。
 回到顶部
帅哥哟，离线，有人找我吗？
Hyphen
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：5015 积分：25363 威望：0 精华：0 注册：2015/8/18 9:21:00 		  发帖心情 Post By：2016/1/14 18:02:00 [显示全部帖子]

试试


If Vars("路径") > "" Then
    Dim MyImageFile As String = Vars("路径")
    ClipBoard.Clear
    Dim img As Image = GetImage(MyImageFile )
    ClipBoard.SetImage(img)
    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
 回到顶部
帅哥哟，离线，有人找我吗？
Hyphen
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：5015 积分：25363 威望：0 精华：0 注册：2015/8/18 9:21:00 		  发帖心情 Post By：2016/1/14 18:18:00 [显示全部帖子]

汗，控件设了只读，把ct.ReadOnly = True去掉

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.08594 秒, 5 次数据查询