Rss & SiteMap

Foxtable(狐表) http://www.foxtable.com

新一代数据库软件,完美融合Access、Foxpro、Excel、vb.net之优势,人人都能掌握的快速软件开发工具!
共7 条记录, 每页显示 10 条, 页签: [1]
[浏览完整版]

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

1楼
xycn86 发表于:2009/12/31 9:20:00
有一个窗口,里面有table和图片框,table中的某一列放的是图片的存储路径,而图片框显示的是与table中存放的图片的路径相关联的图片,现在想要复制图片框中的图片,请问该怎么实现?可以实现吗?谢谢
2楼
狐狸爸爸 发表于:2009/12/31 9:32:00
复制到剪贴版:

Dim pic As WinForm.PictureBox = e.Form.Controls("PictureBox1")
My.Computer.Clipboard.SetImage(pic.Image)
3楼
xycn86 发表于:2009/12/31 9:50:00
复制到剪贴板可以放在图片框的单击事件中吧,那可以直接另存为一个图片文件吗
4楼
狐狸爸爸 发表于:2009/12/31 9:56:00
Dim pic As WinForm.PictureBox = e.Form.Controls("PictureBox1")
pic.Image.Save("文件名")

5楼
xycn86 发表于:2009/12/31 9:58:00
这样在保存的时候会弹出对话让我们选保存位置吗,就像windows里的那样
6楼
狐狸爸爸 发表于: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

7楼
xycn86 发表于:2009/12/31 10:01:00
好的。谢谢啊。
共7 条记录, 每页显示 10 条, 页签: [1]

Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号

Powered By Dvbbs Version 8.3.0
Processed in .03906 s, 2 queries.