以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  关于窗口中picturebox功能的问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=59729)
--  作者：nclo
--  发布时间：2014/11/9 23:05:00
--  关于窗口中picturebox功能的问题
设计了一个窗口，点击表行随便一个地方打开。窗口里有一个标签是“审核通过”旁边做了一个picturebox。想实现这样的功能。如果列“审核通过”为true.图片盒子里显示一个图片审核通过（在用友软件里找的），如果为false显示未审核图片。。请大神斑竹指教。
--  作者：nclo
--  发布时间：2014/11/9 23:48:00
--  
我有个想法，就是再做一个一模一样的窗口，但是审核通过旁边放一个未审核的图片，然后在表的双击事件里通过条件判断，在点击未审核的行的时候打开这一个窗口。看起来就是未审核的样子了。。大神说说可行吗？？
--  作者：Bin
--  发布时间：2014/11/10 8:20:00
--  
你的这个想法可以,更好的做法是

在窗口ALterLoad事件判断当前行的审核状态,然后为图片控件赋值对应的图片
--  作者：nclo
--  发布时间：2014/11/10 9:09:00
--  
大神，是afterload事件吗？？？alterload事件搜索不到帮助。。。
--  作者：有点甜
--  发布时间：2014/11/10 9:14:00
--  

afterload事件，代码

 

Dim pbx As WinForm.PictureBox
pbx = e.Form.Controls("PictureBox1")
If Tables("表A").Current("审核") = True Then
    pbx.Image = GetImage("C:\\Sample1.bmp")
Else
    pbx.Image = GetImage("C:\\Sample2.bmp")
End If
--  作者：Bin
--  发布时间：2014/11/10 9:19:00
--  
窗口的ALterload事件
--  作者：nclo
--  发布时间：2014/11/10 9:23:00
--  
强烈感谢甜老师！！我正犹豫要不要问问代码，因为在帮助没有找到。。但又感觉麻烦你们太多了。再次谢谢。

那以后做成项目软件后，项目软件还是从C:\\Sample1.bmp这个路径去调取图片，还是调取一次之后图片就存在项目文件中，打包后复制给其他电脑也不会丢失？
--  作者：nclo
--  发布时间：2014/11/10 9:24:00
--  
感谢BIN老师！！。。。但搜索帮助，怎么搜索不到ALterload事件。。。。
--  作者：有点甜
--  发布时间：2014/11/10 9:24:00
--  

Dim pbx As WinForm.PictureBox
pbx = e.Form.Controls("PictureBox1")
If Tables("表A").Current("审核") = True Then
    pbx.Image = GetImage(projectpath & "Sample1.bmp")
Else
    pbx.Image = GetImage(projectpath & "Sample2.bmp")
End If

 

 

http://www.foxtable.com/help/topics/0358.htm

 
--  作者：nclo
--  发布时间：2014/11/10 9:25:00
--  
只能搜索到afterload事件。。