以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  求教,有关PictureBox控件  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=10120)

--  作者:baoxyang
--  发布时间:2011/5/22 10:38:00
--  求教,有关PictureBox控件
 

Dim pbx AS WinForm.PictureBox
pbx = Forms(
"窗口1").Controls("PictureBox1")
pbx.Image = GetImage(
"C:\\Sample.bmp"
)

 

假设没有图片显示时pbx.Image怎么写?

目的是,(一张表有三张图片列,其中一张有图片,另外二张没有图片),我想分别在PictureBox显示出来,但当列无图片时,显示改变成为空白。

 

 


--  作者:狐狸爸爸
--  发布时间:2011/5/22 11:22:00
--  

没看明白

图片点击可在新窗口打开查看


--  作者:baoxyang
--  发布时间:2011/5/23 8:44:00
--  

上面没说清楚,也就是PictureBox控件显示了图片,变成没有图片显示如何写代码?

 

 

另请教下:如何写代码把PictureBox控件显示的图片,保存到本地指定的图文文件(jpg格式)

 

 

 


--  作者:baoxyang
--  发布时间:2011/5/23 11:16:00
--  
以下是引用baoxyang在2011-5-22 10:38:00的发言:
 

Dim pbx AS WinForm.PictureBox
pbx = Forms(
"窗口1").Controls("PictureBox1")
pbx.Image = GetImage(
"C:\\Sample.bmp"
)

 

假设没有图片显示时pbx.Image怎么写?

目的是,(一张表有三张图片列,其中一张有图片,另外二张没有图片),我想分别在PictureBox显示出来,但当列无图片时,显示改变成为空白。

 

 

这个问题解决了,这样就行了。    e.Form.Controls("Picturebox1").Image = Nothing
第二个问题:PictureBox控件可否加强1、 PictureBoxSizeMode.AutoSize 值会使控件自动调整大小,以便适合图像的大小。2、可以把显示的图片保存成一个图形文件

 

 

[此贴子已经被作者于2011-5-23 11:22:14编辑过]

--  作者:baoxyang
--  发布时间:2011/5/24 15:01:00
--  

可否把显示的图片用代码保存成一个图形文件呢?

请老大回复下!谢谢了!!

 

终于OK!

原来老大隐藏这个功能给找到了。

e.Form.Controls("PictureBox1").Image.save("D:\\1.jpg")

 

[此贴子已经被作者于2011-5-24 16:03:41编辑过]