我在使用此类按钮的时候,采用的是动态添加按钮,保证界面好看,供参考:
实际效果:
此主题相关图片如下:1.jpg
代码:
dim sum as Integer
dim i as Integer
dim lb as Integer = val(left(e.Sender.text,1).Replace("焊","10"))
Sum = Tables("单筋定位参数").Compute("Sum(钢筋类别)", "钢筋类别 = " & lb & "and 整体旋转 = 0")/lb ‘(根据参数表求得所需绘图面板的总个数)
Dim tk As DataRow
For tb As Integer = 1 To Math.Max(sum,25) ‘这里指定最少添加25个、最多添加sum个绘图板控件。(最多满足使用要求,最少,保证界面感观)
if e.Form.ExistControl("Painter" & tb)= true
e.Form.RemoveControl("Painter" & tb)
end if ’判断空间是否存在,存在,先删除,否则,重复添加出错
dim gjdm as String
gjdm = lb & format(tb,"000") ’这里的lb为钢筋类别,前面的代码生成,您无需考虑
Dim A As WinForm.Painter
A = e.Form.CreateControl("Painter" & tb, ControlTypeEnum.Painter)
A.Left =98*((tb-1) mod 5) 这两行很关键,这一行指定控件的左边位置和每横排的个数(这里的5确定个数)这里98比Width =97
大1,意味着保留1像素的间歇,您可以调整。
A.Top = 65*((tb-1)\5) ‘这两行很关键,这一行指定控件的上边距,和横排个数,这里的5必须和上一行统一
A.Width =97 ’控件宽度
A.Height =64 ‘控件高度
A.BackColor =Color.FromARGB(getConfigValue("窗口图库背景色",e.Form.Controls("窗口图库背景色").BackColor.ToARGB)) ’ 这里指定背景颜色,您可以不考虑
e.Form.Controls("Panel11").AddControl(A) '添加控件到面板Panel11里面,新添加的控件均相对于面板的左上角为基点(0,0)
next ‘利用循环语句,重复顺序生成每横排5个绘图板。
动态增删控件、使用全局事件是这类用法的最大优点,我在使用中,各类钢筋10~70个不等,少于25个,界面不好看,如果用的少的时候也放70个,浪费窗口尺寸,增加系统负荷,这个解决办法仅供参考。