Question

StatusBar控件怎么弄分成成多个窗口？

我用vb6.0.，窗口下边有一个statusbar控件，需要显示多项内容，怎么设置成多个窗口，程序我有了：StatBar1.Panels(1).Text = "xxxxx"
StatBar1.Panels(2).Text = "xxxxx"
StatBar1.Panels(3).Text = Format(Date, "yyyy年mm月dd日")
但一运行就出错，因为我的statusbar只有一个窗口

Answer 1

可以在设计阶段就设置好，点控件，找到自定义属性，然后在属性页的窗格中，可以用插入窗格，按左右箭头可以设置窗格的内容，如果是时间的话，设置其属性为sbrDate就行了，没必要用代码。

见下图：

Answer 2

Private Sub Form_Load()
StatusBar1.Panels(1).Text = "1"
StatusBar1.Panels.Add Text:="2"
StatusBar1.Panels.Add Text:=FormatDateTime(Date, vbLongDate)
End Sub