请问各位老师:窗口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编辑过]