老师,我流程图换了个思路,用按钮加图片来控制,中间横线的按钮写了置顶,没起作用,请老师看看?
'生成流程图
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