以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  PictureBox1图片切换问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=143591)

--  作者:狐表(小白)
--  发布时间:2019/11/28 22:02:00
--  PictureBox1图片切换问题
请问各位老师:窗口1有2个按钮(审核、撤审),想实现点击审核显示图片“已审核”,点击撤审显示图片“未审核”。现在只能显示审核按钮的已审核图片,撤审按钮的未审核图片不显示。但是里面的撤审代码能执行。什么问题?谢谢!

审核chick:
Dim pbx As WinForm.PictureBox = e.Form.Controls("PictureBox1")
pbx.ImageFile = "E:\\图标\\Images\\已审核.jpg"
pbx.SizeMode = ImageSizeMode.StretchImage
Tables("表1").Current.Locked = True
撤审chick:
Dim pbx As WinForm.PictureBox = e.Form.Controls("PictureBox1")
pbx.SizeMode = ImageSizeMode.StretchImage
If Tables("表1").Current.Locked = True Then
    pbx.ImageFile = “”
    Tables("表1").Current.Locked = False
    pbx.ImageFile = "E:\\图标\\Images\\未审核.jpg"
End If
[此贴子已经被作者于2019/11/28 22:17:14编辑过]

--  作者:有点蓝
--  发布时间:2019/11/29 9:30:00
--  
撤审chick:
Dim pbx As WinForm.PictureBox = e.Form.Controls("PictureBox1")
pbx.SizeMode = ImageSizeMode.StretchImage
pbx.ImageFile = "E:\\图标\\Images\\未审核.jpg"
If Tables("表1").Current.Locked = True Then
    Tables("表1").Current.Locked = False
End If


--  作者:狐表(小白)
--  发布时间:2019/11/29 11:28:00
--  
谢谢老师,再请教一个问题,窗口控件页面集合的页面可以绑定同一个项目的其它窗口吗?
--  作者:有点蓝
--  发布时间:2019/11/29 12:00:00
--  
可以,看看:http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=77912