7,763
社区成员
发帖
与我相关
我的任务
分享statusbar控件添加panel问题
请教各位老师，开发环境vb6+windows2000。statusbar1控件，我想添加2个panel，添加方式如下，
form_load()
me.statusabr1.panels.add 1
me.statusbar1.panes.add 2
'设置宽度
me.statusbar1.panels(1).width=me.width/2
me.statusbar1.panels(2).width=me.width/2
'运行效果，添加了2个panel。可是statusbar1并没有光由2个panel占满，还空余一个部分；
‘如何实现statusbar1只由2个panel组成？
谢谢
form_load()
me.statusabr1.panels.add 1
me.statusbar1.panes.add 2
'设置宽度
me.statusbar1.panels(1).width=me.width/2
me.statusbar1.panels(2).width=me.width/2
'运行效果，添加了2个panel。可是statusbar1并没有光由2个panel占满，还空余一个部分；
‘如何实现statusbar1只由2个panel组成？
谢谢
...全文
请发表友善的回复…
发表回复
还想懒够 2005-11-28
- 打赏
- 举报
设置Panel的AutoSize属性
roger_xiong 2005-11-28
- 打赏
- 举报
呵呵，改进一下：
With StatusBar1
.Panels.Clear
.Panels.Add(, "First", "First Panel").AutoSize = sbrSpring
.Panels.Add(, "Sencond", "Sencond Panel").AutoSize = sbrSpring
End With
With StatusBar1
.Panels.Clear
.Panels.Add(, "First", "First Panel").AutoSize = sbrSpring
.Panels.Add(, "Sencond", "Sencond Panel").AutoSize = sbrSpring
End With
northwolves 2005-11-28
- 打赏
- 举报
默认有一个PANEL：
Private Sub Form_Load()
Me.StatusBar1.Panels.Add 1
'Me.StatusBar1.Panels.Add 2
'设置宽度
Me.StatusBar1.Panels(1).Width = Me.Width / 2
Me.StatusBar1.Panels(2).Width = Me.Width / 2
MsgBox Me.StatusBar1.Panels.Count
End Sub
Private Sub Form_Load()
Me.StatusBar1.Panels.Add 1
'Me.StatusBar1.Panels.Add 2
'设置宽度
Me.StatusBar1.Panels(1).Width = Me.Width / 2
Me.StatusBar1.Panels(2).Width = Me.Width / 2
MsgBox Me.StatusBar1.Panels.Count
End Sub
winehero 2005-11-28
- 打赏
- 举报
'最前面加上这句，用来清除Panels.因为添加一个StatusBar到Form上时，缺省会有一个Panel，你在代码中又
'加了两个，当然就三个了。
Me.StatusBar1.Panels.Clear
'加了两个，当然就三个了。
Me.StatusBar1.Panels.Clear
