以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp) --  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2) ----  [求助]如何复制窗口中图片框里的图片  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=5707)

--  作者：xycn86 --  发布时间：2009/12/31 9:20:00 --  [求助]如何复制窗口中图片框里的图片 有一个窗口，里面有table和图片框，table中的某一列放的是图片的存储路径，而图片框显示的是与table中存放的图片的路径相关联的图片，现在想要复制图片框中的图片，请问该怎么实现？可以实现吗？谢谢

--  作者：狐狸爸爸 --  发布时间：2009/12/31 9:32:00 --   复制到剪贴版： Dim pic As WinForm.PictureBox = e.Form.Controls("PictureBox1") My.Computer.Clipboard.SetImage(pic.Image)

--  作者：xycn86 --  发布时间：2009/12/31 9:50:00 --   复制到剪贴板可以放在图片框的单击事件中吧，那可以直接另存为一个图片文件吗

--  作者：狐狸爸爸 --  发布时间：2009/12/31 9:56:00 --   Dim pic As WinForm.PictureBox = e.Form.Controls("PictureBox1") pic.Image.Save("文件名")

--  作者：xycn86 --  发布时间：2009/12/31 9:58:00 --   这样在保存的时候会弹出对话让我们选保存位置吗，就像windows里的那样

--  作者：狐狸爸爸 --  发布时间：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 --  发布时间：2009/12/31 10:01:00 --   好的。谢谢啊。