首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 数据库 > VFP >

想用image控件显示照片,但是怎么能在没有照片的前提下不显示一个大“十叉”呢

2012-04-09 
想用image控件显示照片,但是如何能在没有照片的前提下不显示一个大“十叉”呢想用image控件显示照片,但是如

想用image控件显示照片,但是如何能在没有照片的前提下不显示一个大“十叉”呢
想用image控件显示照片,但是如何能在没有照片的前提下不显示一个大“十叉”呢
---------------------------------
想用image显示员工照片,但是当员工没有照片时,我如何处理呢?
好象只要 picture 属性加载的是一个不存在的照片(如:d:\tmp\张三.jpg,但是这个 文件不存在),
这个控件就会显示一个“大十叉”,很不好看,如何实现,找不到有效的图片时,就显示一个特定的图片呢?

注:我编写的是网络版程序,图片是不在本地的(我的示例在本地举例),picture 属性是一个网络路径。
我希望这个picture属性所指定的图片文件不存在时,不显示一个大十叉,有方法可以实现吗?


[解决办法]
可以,具体的实现方法要看你使用的是 vfp9 还是 vfp6

[解决办法]
vfp9:
假设表单上图片控件名为 image1
1. 首先新建一个表单方法,名称为 OnPictureChanged,内容如下:
  This.Image1.Visible = !Empty(Sys(2000,This.Image1.Picture))
2. 在表单的 Init 事件最后加一行:
  BindEvent(This.image1, 'Picture', This, 'OnPictureChanged', 1)

可以在 image1 的下面放一个标签,Caption 设为“无照片”
-- 或者 --
将 OnPictureChanged 方法的内容改为:
 If Empty(Sys(2000,This.Image1.Picture))
  This.Image1.Picture = 缺省图片路径+名称
 EndIf

[解决办法]
判断一下,没有图片时不显示或显示一个特定的图片文件(做一个空白图片)
[解决办法]

VB code
*环境:VFP 6.0~9.0都可以With thisform.image_photo    If !Empty(sutd.photo)  &&判断该字段是否为空        .picture = sutd.photo    Else        .picture = "暂无.jpg"  &&该图片需要包含在项目中,一起编-译    EndifEndwith 

热点排行