panel放大于缩小 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → panel放大于缩小

共有3393人关注过本帖树形打印复制链接主题：panel放大于缩小

CRM2013

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

加好友

发短信

等级：小狐帖子：315 积分：3554 威望：0 精华：0 注册：2012/12/10 10:38:00

panel放大于缩小 发帖心情

Post By：2014/8/4 21:51:00 [只看该作者]

求正确代码

想通点击按钮，能实现panel横向扩展，发现第一次click时有效，后面就没变化了

static w,h As Integer
w = e.Form.Controls("panel1").Width
h = e.Form.Controls("panel1").Height
w = w * 2 '宽度增加1倍
e.Form.Controls("panel1").ExtendSize = New Size(w,h)

同样，希望有一个缩小按钮，也是首次click有效

static w,h As Integer
w = e.Form.Controls("panel1").Width
h = e.Form.Controls("panel1").Height
w = w / 2 '宽度缩小1倍
If w < 600 Then '控制最小宽度
w = 600
End If
e.Form.Controls("panel1").ExtendSize = New Size(w,h)

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/8/4 21:55:00 [只看该作者]

Dim w,h As Integer
w = e.Form.Controls("panel1").basecontrol.Width
h = e.Form.Controls("panel1").basecontrol.Height
w = w * 2 '宽度增加1倍
e.Form.Controls("panel1").basecontrol.width = w

---------------------------

Dim w,h As Integer
w = e.Form.Controls("panel1").basecontrol.Width
h = e.Form.Controls("panel1").basecontrol.Height
w = w / 2 '宽度缩小1倍
If w < 600 Then '控制最小宽度
w = 600
End If
e.Form.Controls("panel1").basecontrol.width = w

CRM2013

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

加好友

发短信

等级：小狐帖子：315 积分：3554 威望：0 精华：0 注册：2012/12/10 10:38:00

Post By：2014/8/4 22:19:00 [只看该作者]

感激

CRM2013

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

加好友

发短信

等级：小狐帖子：315 积分：3554 威望：0 精华：0 注册：2012/12/10 10:38:00

Post By：2014/8/4 22:34:00 [只看该作者]

做了一下测试，每次click后w值都会增加1倍，但当panel宽度超过容器宽度时，并没有出现滚动条。

我的panel是放在splitcontrol第一分区，停靠为None，splitcontrol放在tabcontrol中，splitcontrol停靠为fill

Dim w,h As Integer
w = e.Form.Controls("panel1").basecontrol.Width
h = e.Form.Controls("panel1").basecontrol.Height
messagebox.show(w)
w = w * 2 '宽度增加1倍
messagebox.show(w)
e.Form.Controls("panel1").basecontrol.width = w