sbar.bas

来自「This a complete inventory management sys」· BAS 代码 · 共 35 行

Attribute VB_Name = "SBar"
Public Sub ShowStatus(pSbar As Object)
pSbar.Panels(1).Bevel = sbrRaised
pSbar.Panels(2).Bevel = sbrRaised
pSbar.Panels(3).Bevel = sbrRaised
pSbar.Panels(4).Bevel = sbrRaised
pSbar.Panels(5).Bevel = sbrRaised
pSbar.Panels(6).Bevel = sbrRaised

pSbar.Panels(1).Width = 5000
pSbar.Panels(2).Width = 1000
pSbar.Panels(3).Width = 1000
pSbar.Panels(4).Width = 1000
pSbar.Panels(5).Width = 2000
pSbar.Panels(6).Width = 2000

pSbar.Panels(1).Alignment = sbrCenter
pSbar.Panels(2).Alignment = sbrCenter
pSbar.Panels(3).Alignment = sbrCenter
pSbar.Panels(4).Alignment = sbrCenter
pSbar.Panels(5).Alignment = sbrCenter
pSbar.Panels(6).Alignment = sbrCenter

pSbar.Panels(1).Style = sbrText
pSbar.Panels(2).Style = sbrCaps
pSbar.Panels(3).Style = sbrNum
pSbar.Panels(4).Style = sbrIns
pSbar.Panels(5).Style = sbrDate
pSbar.Panels(6).Style = sbrTime

pSbar.Panels(1).Text = "CURRENT LOGIN  :  " & UCase(glbLoginId)

End Sub