关于我想将状态栏中的内容均匀的显示于下方,可如何设置呢?我设计的是这样的:怎么修改啊????的问题
solidco2 写的程序很好,不过解决他的问题,可将程序稍作修改即可:
Private Sub Form_Resize()
For i = 1 To 4
StatusBar1.Panels(i).Width = Me.ScaleWidth / 4
Next
End Sub
把me.Width/4 改成 Me.ScaleWidth / 4, 就达到你的目的.
关于我想将状态栏中的内容均匀的显示于下方,可如何设置呢?我设计的是这样的:怎么修改啊????的问题
solidco2 写的程序很好,不过解决他的问题,可将程序稍作修改即可:
Private Sub Form_Resize()
For i = 1 To 4
StatusBar1.Panels(i).Width = Me.ScaleWidth / 4
Next
End Sub
把me.Width/4 改成 Me.ScaleWidth / 4, 就达到你的目的.
