以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  窗口图片浏览器  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=33302)
--  作者：7032175
--  发布时间：2013/5/15 14:25:00
--  窗口图片浏览器
在窗口中，设置一个图片浏览器，能不能设置显示比例，不光是缩小与放大二种，如设置60%………………。
--  作者：Bin
--  发布时间：2013/5/15 14:33:00
--  
设置控件的宽度和高度即可..例如

Dim pb As WinForm.PictureBox
pb= e.Form.Controls("PictureBox1")
Dim img As Image = pb.Image
pb.Height=pb.Image.Height*0.6
pb.Width=pb.Image.Width*0.6
--  作者：7032175
--  发布时间：2013/5/16 9:06:00
--  
Dim pbx As WinForm.PictureBox
pbx = Forms("砖型查询").Controls("PictureBox1")
pbx.SizeMode = ImageSizeMode.StretchImage


这是在帮助里面找的代码我用上了，我想请教一下，当我在PictureBox1的界面上左键单击一下能不能弹出所指定的图片的大图。
--  作者：Bin
--  发布时间：2013/5/16 9:11:00
--  
在点击事件里弹出一下.
Dim pb As WinForm.PictureBox
pb= e.Form.Controls("PictureBox1")
Dim img As Image = pb.Image
messagebox.show(pb.Height)
messagebox.show(pb.Width)
--  作者：7032175
--  发布时间：2013/5/16 9:58:00
--  
我的意思是在 PictureBox1 单击后，会把 PictureBox1 控件里面显视的图片进行类似PictureViewer1控件里面的全屏显视，但是上面的代码不好使。
--  作者：Bin
--  发布时间：2013/5/16 10:08:00
--  
Dim Proc As New Process
Proc.File = "C:\\Users\\foxtable1\\Desktop\\上传图片请参考这里.gif"
Proc.Start()
--  作者：7032175
--  发布时间：2013/5/16 10:40:00
--  
老师我的在窗口中有一个表 期中有一个列为图片列，当选中其中一行的时候会在 PictureBox1 控件中显视出来，移动选中后，图片就会变化，如果我想看大图，就需要单击 PictureBox1 控件弹出当前 PictureBox1 控件所显示的图片的大图。是这个意思老师。
--  作者：Bin
--  发布时间：2013/5/16 10:44:00
--  
参考上面的代码可以做,获得行图片地址,然后运行上面代码即可.