- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 请教关于处理照片的一个问题 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=16955)
-- 发布时间：2012/2/28 18:42:00
-- 请教关于处理照片的一个问题
我有一个窗口，上面有一个combobox控件，当我选择“在世”时，窗口上照片保持不变，当我选择“已故”时，照片变成黑白的，这个怎么实现，高手们请指点一哈，不胜感谢啊
-- 发布时间：2012/2/28 18:51:00
--
呵呵，这个我不懂。
-- 发布时间：2012/2/28 19:18:00
--
这个是不是不可能啊，我是不是问了一个很可笑的问题啊，狐狸爸爸。
-- 发布时间：2012/2/28 19:35:00
--
看来高手们今天休息啦
-- 发布时间：2012/2/28 20:13:00
--
foxtable没有这个功能的。
-- 发布时间：2012/2/28 21:58:00
--
可以，准备彩色及黑白两张照片，加入判断切换需要的照片，不喜勿怪。
-- 发布时间：2012/2/29 11:09:00
--
为何那么顽固呢？变通一下，在世的是正常照片，已故的在照片上加一个X,或者加一个黑框，有这个意思不就可以啦
-- 发布时间：2012/2/29 12:55:00
--
反正就是这个意思，无论是照片变黑白或照片加边框、文字、水印、图标都可以，那么能不能具体说明，或给个代码之类的，麻烦啦高手们！
-- 发布时间：2012/2/29 16:58:00
--
If e.Form.Controls("ComboBox3").value ="已故" Then
e.Form.Controls("PictureViewer1").Visible =False
Dim r As Row =Tables("员工").Current
Dim p As WinForm.Painter = e.Form.Controls("Painter1")
Dim g As Graphics = p.Graphics
g.DrawImage(getImage(r("照片")),8,8,100,100)
Dim g1 As Graphics = p.Graphics
g1.DrawImage(getImage("delete.ico"),100,90,50,50)
p.Repaint()
Else
e.Form.Controls("PictureViewer1").Visible =True
End If