在窗体中用按钮控件，怎么实现流程状态显示呢？
想实现当党员信息表中 递交申请书时间 不为空 且标志列为true时
接收入党申请书 按钮显示进度2图片
反之 标志列为false时 接收入党申请书 按钮显示进度1图片
全局代码事件如下：
Public zhuangtai1 As Image = GetImage("进度1.png")
Public zhuangtai2 As Image = GetImage("进度2.png")
Dim lb As WinForm.Label = e.Form.Controls("Label1")
lb.Text=vars("姓名")
Dim lvw As WinForm.ListView = Forms("党建工作").Controls("ListView1")
Dim vr As WinForm.ListViewRow = lvw.Current '获取ListView的当前行
If vr IsNot Nothing Then '如果不存在当前行,也就是内有选定任何一行
Dim ab As DataRow
ab=Tables("党员信息").DataTable.Find("姓名='" & vars("姓名") & "'")
If ab IsNot Nothing Then
If ab("递交申请书时间") IsNot Nothing And ab("标志")=True Then
e.Form.Controls("接收入党申请书").Visible = True
e.form.Controls("接收入党申请书").basecontrol.BringToFront
e.Form.Controls("审看入党申请书").Visible = False
End If
If ab("递交申请书时间") Is Nothing And ab("标志")=False Then
e.Form.Controls("接收入党申请书").Visible = False
e.Form.Controls("审看入党申请书").Visible = False
End If
End If
End If
窗体中用按钮控件做成了如下效果图：
此主题相关图片如下：捕获.png
[此贴子已经被作者于2020/12/10 16:12:29编辑过]
加好友 
发短信
Post By：2020/12/10 16:10:00 [只看该作者]
