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

比如，窗口中有一个面板，中有十个按钮，这十个按钮是根据需要显示的，如果只显示了六个，那么，界面上就不好看，所以，我想根据按钮数来移动面板，也就是集中在窗口的中间，不知道有何办法？我的目的只是左右移动。本来想着用滚动条，但是界面更难看

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

实际效果：

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

您还可以参考我给您的那个拼图软件，那是按照竖排的方式做的。

对了，如果您不希望动态增删，可以变通这段代码，直接指定控件的左边距、上边距，来实现，但定位和排列理念是一样的。

谢谢程版，不能动态增加，因为各按钮中的代码均不同，现在想了一个笨办法，就是移动面板，以后有好办法再改，呵呵

If Tables("RS_档案明细_Table2").Count <= 5
e.Form.Controls("Panel4").SetBounds(150, 30, 500, 40)
Else If Tables("RS_档案明细_Table2").Count > 5 And Tables("RS_档案明细_Table2").Count <=8
e.Form.Controls("Panel4").SetBounds(100, 30, 580, 40)
Else
e.Form.Controls("Panel4").SetBounds(3, 30, 830, 40)
End If

 各用户要显示的表不同，有的可能是二个，有的可能是五年，也有的可能是十个，另外，如果用户今天加了三个，过两天又要再加两个，那各按钮的位置都要变，如何处理？我想，可能还得做个位置表，就如你所说的拼图的例子了，呵呵

全局事件，判断按钮名称再执行，和将代码放在按钮的单击事件中结果是一样的，与事件代码没影响。

将Button1移动到分组框中的指定位置：

Dim But As WinForm.Button
But = e.Form.Controls("Button1")
But.SetBounds(30, 60,75,23)
e.Form.Controls("GroupBox1").AddControl(e.Form.Controls("Button1"))

如果仅移动位置更简单。

Dim But As WinForm.Button
But = e.Form.Controls("Button1")
But.SetBounds(30, 60,75,23)

谢谢C版，是有N个按钮，一共十个，用户使用不定，所以我想可能要列个表，这样才好看