主题：流程图

老师，我流程图换了个思路，用按钮加图片来控制，中间横线的按钮写了置顶，没起作用，请老师看看？

 

'生成流程图
Dim frm As WinForm.Form = Forms("审核进度")
Dim i As Integer = 0
Dim ajm As List(of DataRow) = DataTables("审核流程表").Select("表名称='测试表'","流程编号")
For Each aj2 As DataRow In ajm
    Dim aj As String = aj2("审核人角色")
    Dim abc As WinForm.Button
    abc = frm.CreateControl(aj,ControlTypeEnum.Button)
    abc.Text = aj
    abc.Height = 60 '控件高度
    abc.Width = 100 '控件宽度
    abc.left = i*120+30
    abc.Top = 35
    abc.Image = GetImage("进度1.png")  '图标
    '按钮样式
    abc.FlatStyle = FlatStyle.flat    '按钮样式
    abc.BackColor = Color.Transparent  '背景颜色
    abc.MouseDownBackColor = Color.Transparent '设置鼠标经过时,按钮的背景颜色
    abc.MouseDownBackColor = Color.Transparent '设置鼠标经过时,按钮的背景颜色
    abc.BorderColor = Color. White '设置按钮边框颜色
    abc.BorderSize = 0 '设置按钮边框厚度,单位为像素
    '图标,文本位置
    abc.ImageAlign= ContentAlignment.TopCenter '图标位置,居中
    abc.TextAlign = ContentAlignment.BottomCenter '名称位置,靠左居中
    frm.AddControl(abc)
   
    Dim aba As WinForm.Button
    aba = frm.CreateControl(aj,ControlTypeEnum.Button)
    aba.Height = 20 '控件高度
    aba.Width = 80 '控件宽度
    aba.Image = GetImage("横线1.png")  '图标
    aba.left = i*120+100
    aba.Top = 45
    '按钮样式
    aba.FlatStyle = FlatStyle.flat    '按钮样式
    aba.BackColor = Color.Transparent  '背景颜色
    aba.MouseDownBackColor = Color.Transparent '设置鼠标经过时,按钮的背景颜色
    aba.MouseDownBackColor = Color.Transparent '设置鼠标经过时,按钮的背景颜色
    aba.BorderColor = Color. White '设置按钮边框颜色
    aba.BorderSize = 0 '设置按钮边框厚度,单位为像素
    '图标,文本位置
    aba.ImageAlign= ContentAlignment.MiddleCenter '图标位置,居中
    'aba.TextAlign = ContentAlignment.BottomCenter '名称位置,靠左居中
    frm.AddControl(aba)
    i+=1
    aba.basecontrol.BringToFront '置前
    'aba.basecontrol.SendToBack  '置后
Next

置顶解决了，写两个循环分开写就可以了，另外有个问题就是，在流程最后增加一个按钮，名称为“完成”怎么增加进去呢？流程表中没有的。

 

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

在请教老师一下，我审核进度换图片问题（图片换成：进度2），找到对应的审核进度的流程编号，后面换图片应该怎么写？

Dim dr As Row = Tables("测试表").Current
Dim dr1  As  DataRow = DataTables("审核流程表").SQLFind("表名称 = '测试表' And 审核状态='" & dr("审批状态") & "'")
msgbox(dr1("流程编号"))

....（不知道怎么写了）

考试，这样的，如果我一个流程总的有5个流程编号，会绘制6个图标，最后多了一个完成。

流程表中有审批状态，把你的效果发来看看呢？

我们意思差不多，我是横向的。

此主题相关图片如下：-632cef7f605e7040.png

老师，我想要的功能都实现了，但是代码是去凑起来的，请老师看看，怎么简化一下呢？

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:代码.txt

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


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