VB  MDI窗体中状态栏最后一个Panels宽度总是不与窗体对齐

在线等
谢过

版主，出来指导下

在mdiForm的Resize事件中重新设置panel的大小

Private Sub MDIForm_Resize()
Dim w As Single
Dim p As Panel

''取平均值
'w = Me.Width / StatusBar1.Panels.Count
'
'For Each p In StatusBar1.Panels
'    p.Width = w
'Next

'只调整最后一个panel
Dim totalWidth As Single
For Each p In StatusBar1.Panels
    totalWidth = totalWidth + p.Width
Next
Set p = StatusBar1.Panels(StatusBar1.Panels.Count)
On Error Resume Next
p.Width = p.Width + Me.Width - totalWidth
Set p = Nothing
End Sub

其中一个窗格设“自动调整大小”好了

建议第一个窗格设自动调整大小.

另外,窗格最后是永远会稍留一个 三斜线的位置.

我有3个窗格，第二个自动的，其他固定，4楼的代码没反应，还是不行

可以了，程序延时

又不行啊，为什么，刚就看到一次效果

新建一空白工程，添加控件，再测试。
找出现有的工程与空白工程中的控件的哪些属性不一样。
PS.我上面的代码中 statusbar1的所有属性都是默认，只是添加了几个panel