以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  窗口图片浏览器  (http://foxtable.com/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
--  
参考上面的代码可以做,获得行图片地址,然后运行上面代码即可.