求正确代码

想通点击按钮，能实现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)

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

做了一下测试，每次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

加入一句

e.form.panel.AutoScroll = True

您帮助看看，多次点击放大后，还是没出现滚动条。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:例子.zip