Foxtable(狐表)用户栏目专家坐堂 → [求助]如何复制窗口中图片框里的图片


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

主题:[求助]如何复制窗口中图片框里的图片

帅哥哟,离线,有人找我吗?
xycn86
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:24 积分:279 威望:0 精华:0 注册:2009/10/26 15:34:00
[求助]如何复制窗口中图片框里的图片  发帖心情 Post By:2009/12/31 9:20:00 [只看该作者]

有一个窗口,里面有table和图片框,table中的某一列放的是图片的存储路径,而图片框显示的是与table中存放的图片的路径相关联的图片,现在想要复制图片框中的图片,请问该怎么实现?可以实现吗?谢谢

 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47509 积分:251469 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2009/12/31 9:32:00 [只看该作者]

复制到剪贴版:

Dim pic As WinForm.PictureBox = e.Form.Controls("PictureBox1")
My.Computer.Clipboard.SetImage(pic.Image)

 回到顶部
帅哥哟,离线,有人找我吗?
xycn86
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:24 积分:279 威望:0 精华:0 注册:2009/10/26 15:34:00
  发帖心情 Post By:2009/12/31 9:50:00 [只看该作者]

复制到剪贴板可以放在图片框的单击事件中吧,那可以直接另存为一个图片文件吗

 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47509 积分:251469 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2009/12/31 9:56:00 [只看该作者]

Dim pic As WinForm.PictureBox = e.Form.Controls("PictureBox1")
pic.Image.Save("文件名")


 回到顶部
帅哥哟,离线,有人找我吗?
xycn86
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:24 积分:279 威望:0 精华:0 注册:2009/10/26 15:34:00
  发帖心情 Post By:2009/12/31 9:58:00 [只看该作者]

这样在保存的时候会弹出对话让我们选保存位置吗,就像windows里的那样

 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47509 积分:251469 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2009/12/31 10:00:00 [只看该作者]

Dim pic As WinForm.PictureBox = e.Form.Controls("PictureBox1")
Dim dlg As New SaveFileDialog '定一个新的SaveFileDialog
dlg.Filter= "图形文件|*.bmp;*.jpg;*.gif" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
    pic.Image.Save(dlg.filename)
End If


 回到顶部
帅哥哟,离线,有人找我吗?
xycn86
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:24 积分:279 威望:0 精华:0 注册:2009/10/26 15:34:00
  发帖心情 Post By:2009/12/31 10:01:00 [只看该作者]

好的。谢谢啊。

 回到顶部