| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 3163 人关注过本帖
标题:在表单中如何添加删除照片?
只看楼主 加入收藏
刘原
Rank: 1
等 级:新手上路
帖 子:5
专家分:0
注 册:2007-6-26
收藏
 问题点数:0 回复次数:9 
在表单中如何添加删除照片?
我没有学过vf,现在想在表单上显示照片,并且可以添加照片和删除照片,按钮分别为“取照片”,“删除照片”但我不知道如何编辑命令来实现这个功能,请帮帮忙!非常感谢!
搜索更多相关主题的帖子: 表单 照片 删除 按钮 命令 
2007-06-26 17:33
Tiger5392
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:88
帖 子:2775
专家分:2237
注 册:2006-5-17
收藏
得分:0 
表的字段里存放的是位图格式,还是照片所在的路径及照片名

感言:学以致用。 博客:http://www./blog/user14/65009/index.shtml email:Tiger5392@
2007-06-26 17:46
刘原
Rank: 1
等 级:新手上路
帖 子:5
专家分:0
注 册:2007-6-26
收藏
得分:0 
回复:(Tiger5392)表的字段里存放的是位图格式,还是...
是照片路径 名称

2007-06-26 22:11
刘原
Rank: 1
等 级:新手上路
帖 子:5
专家分:0
注 册:2007-6-26
收藏
得分:0 

2007-06-26 22:11
Tiger5392
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:88
帖 子:2775
专家分:2237
注 册:2006-5-17
收藏
得分:0 
(1)显示照片。假设表单中有一个Image1控件显示照片,显示的时候(可能在Form1.Init或Form1.Refresh里)最好写上
If Empty(照片路径)
ThisForm.Image1.Visible=.F.
Else
ThisForm.Image1.Visible=.T.
ThisForm.Image1.Picture=照片路径
EndIf

(2)至于取照片这个命令的Click,可以这样
lcPicture=GetPic()
Replace 照片路径 With lcPicture
ThisForm.Refresh

(3)处理删除照片的时候,可以在该命令按钮的Click事件中写上
Replace 照片路径 With ''
ThisForm.Refresh

感言:学以致用。 博客:http://www./blog/user14/65009/index.shtml email:Tiger5392@
2007-06-26 23:36
vfoxer
Rank: 2
等 级:论坛游民
威 望:1
帖 子:136
专家分:21
注 册:2006-9-12
收藏
得分:0 
跟着楼上学习~!

狐狸天堂:http://www.
我的百度空间:http://hi.baidu.com/vfoxer
2007-06-27 00:24
刘原
Rank: 1
等 级:新手上路
帖 子:5
专家分:0
注 册:2007-6-26
收藏
得分:0 
非常感谢大家的帮助

2007-07-05 21:50
刘原
Rank: 1
等 级:新手上路
帖 子:5
专家分:0
注 册:2007-6-26
收藏
得分:0 
我还想问问,我怎样才能给表单添加新的事件。比如,click  move 等事件

2007-07-05 21:52
啸凡
Rank: 8Rank: 8
等 级:贵宾
威 望:45
帖 子:1356
专家分:885
注 册:2006-2-22
收藏
得分:0 
click和move事件表单本身就有啊
如果您是想在这些事件上添加代码,双击属性窗口上的相关事件,就可以在打开的窗口上编写了。

两人行已有我师……
2007-07-05 22:17
k1986528
Rank: 1
等 级:新手上路
帖 子:6
专家分:0
注 册:2007-5-28
收藏
得分:0 
  添加照片,可以直接在表单里添加!!当有索引数据库,在数据库里直接单击图像那一列,然后选择工具栏中的插入图片!!以后你所使用数据就全部有图片,不用添加也不用编程

一个充满阳光的家伙~~
2007-07-06 15:44
快速回复:在表单中如何添加删除照片?
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.056046 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved