在窗体中用按钮控件，怎么实现流程状态显示呢？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

在窗体中用按钮控件，怎么实现流程状态显示呢？

想实现当党员信息表中递交申请书时间不为空且标志列为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

窗体中用按钮控件做成了如下效果图：

此主题相关图片如下：捕获.png

[此贴子已经被作者于2020/12/10 16:12:29编辑过]

http://www.foxtable.com/webhelp/topics/0772.htm

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("接收入党申请书").Image = zhuangtai1

e.Form.Controls("审看入党申请书").Visible = False

End If

If ab("递交申请书时间") Is Nothing And ab("标志")=False Then

e.Form.Controls("接收入党申请书").Visible = False

e.form.Controls("接收入党申请书").Image = zhuangtai2

e.Form.Controls("审看入党申请书").Visible = False

End If

有点蓝老师

下述代码可以实现遍历当前窗体中所有按钮控件，并返回控件数量

Dim ls As new List(of String)

For Each c As object In e.form.controls

If typeof c Is winform.button Then

ls.add(c.name)

End If

MessageBox.Show(ls.Count)

一楼图片流程按钮节点太多累计达五十个一个个的按二楼代码进行添加的话太繁琐

有没有更高效的办法实现如下效果呢？

所有按钮控件在默认的时候都是进度1图片

当第一阶段节点都走完的时候，对应的第一阶段的按钮全部批量显示图片进度1 其他的节点依旧显示图片进度2

e.form.Controls("接收入党申请书").Image = zhuangtai1 这个地方有没有办法实现批量多个按钮控件一起赋值图片呢？

dim sre() as string = {"按钮1","按钮1"}

for each s as string in sre

e.form.Controls(s).Image = zhuangtai1

主题：在窗体中用按钮控件，怎么实现流程状态显示呢？