7,763
社区成员
发帖
与我相关
我的任务
分享
Private Sub Form_Load()
StatusBar1.Panels.Clear
StatusBar1.Panels.Add 1
StatusBar1.Panels(1).Style = sbrDate
StatusBar1.Panels.Add 2
StatusBar1.Panels(2).Style = sbrTime
StatusBar1.Panels.Add 3
StatusBar1.Panels(3).Style = sbrText
StatusBar1.Panels(3).Text = "CopyRight"
End Sub
Private Sub Form_Load()
StatusBar1.Panels.Clear
StatusBar1.Panels.Add 1
StatusBar1.Panels(1).Style = sbrDate
StatusBar1.Panels.Add 2
StatusBar1.Panels(2).Style = sbrTime
End Sub