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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 请教：面板是否可以动态移动？

共有21692人关注过本帖树形打印复制链接主题：请教：面板是否可以动态移动？

yangming

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：4109 积分：23338 威望：0 精华：21 注册：2008/9/1 20:07:00

请教：面板是否可以动态移动？ 发帖心情

Post By：2010/3/1 13:13:00 [显示全部帖子]

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

yangming

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：4109 积分：23338 威望：0 精华：21 注册：2008/9/1 20:07:00

Post By：2010/3/1 13:50:00 [显示全部帖子]

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

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

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

[此贴子已经被作者于2010-3-1 13:54:43编辑过]

yangming

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：4109 积分：23338 威望：0 精华：21 注册：2008/9/1 20:07:00

Post By：2010/3/1 18:20:00 [显示全部帖子]

以下是引用czy在2010-3-1 14:35:00的发言：
如果仅移动位置更简单。

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

[此贴子已经被作者于2010-3-1 15:18:47编辑过]

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

下一主题 >> << 上一主题

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