请教：面板是否可以动态移动？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

我在使用此类按钮的时候，采用的是动态添加按钮，保证界面好看，供参考：

实际效果：

图片点击可在新窗口打开查看

此主题相关图片如下：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个，浪费窗口尺寸，增加系统负荷，这个解决办法仅供参考。

主题：请教：面板是否可以动态移动？