#Region "mis variables "
Private PanelTime As New StatusBarPanel()
Private PanelDate As New StatusBarPanel()
#End Region
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'caragando los satatus panel para la hora
PanelTime.BorderStyle = StatusBarPanelBorderStyle.Sunken
PanelTime.AutoSize = StatusBarPanelAutoSize.Spring
PanelTime.Alignment = HorizontalAlignment.Right
'cargando los Status para la Fecha
PanelDate.BorderStyle = StatusBarPanelBorderStyle.Raised
PanelDate.ToolTipText = System.DateTime.Today.ToShortDateString()
PanelDate.Text = System.DateTime.Today.ToLongDateString()
PanelDate.AutoSize = StatusBarPanelAutoSize.Contents
'llenandolos al statusBar
stBarTimeDate.ShowPanels = True 'para q muestre varios paneles
stBarTimeDate.Panels.Add(PanelTime)
stBarTimeDate.Panels.Add(PanelDate)
'para que cambie la hora y la fecha
TmrStatus.Start()
End Sub
Private Sub TmrStatus_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TmrStatus.Tick
Dim myTime As String = ""
Dim myState As String = " "
Dim myHor As Integer
Dim myMin As String
Dim mySec As String
With Now()
myHor = IIf(.Hour > 12, .Hour Mod 12, .Hour)
myState += IIf(.Hour >= 12, "p", "a") & ".m. "
myMin = IIf(.Minute > 10, "", "0") & .Minute
mySec = IIf(.Second > 10, "", "0") & .Second
myTime += myHor & ":" & myMin & ":" & mySec & myState
End With
PanelTime.Text = myTime
End Sub