Mega Code Archive

 

Categories / VB.Net Tutorial / GUI

 

Add Date and Time to StatusBar

Imports System.Windows.Forms public class StatusBarTimeDate    public Shared Sub Main         Application.Run(New Form1)    End Sub End class Public Class Form1     Inherits System.Windows.Forms.Form     Public Sub New()         MyBase.New()         InitializeComponent()     End Sub     Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)         If disposing Then             If Not (components Is Nothing) Then                 components.Dispose()             End If         End If         MyBase.Dispose(disposing)     End Sub     Private components As System.ComponentModel.IContainer     Friend WithEvents StatusBar1 As System.Windows.Forms.StatusBar     Friend WithEvents ToolTip1 As System.Windows.Forms.ToolTip     Friend WithEvents StatusBarPanel1 As System.Windows.Forms.StatusBarPanel     Friend WithEvents StatusBarPanel2 As System.Windows.Forms.StatusBarPanel     Friend WithEvents Timer1 As System.Windows.Forms.Timer     <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()         Me.components = New System.ComponentModel.Container         Me.StatusBar1 = New System.Windows.Forms.StatusBar         Me.ToolTip1 = New System.Windows.Forms.ToolTip(Me.components)         Me.StatusBarPanel1 = New System.Windows.Forms.StatusBarPanel         Me.StatusBarPanel2 = New System.Windows.Forms.StatusBarPanel         Me.Timer1 = New System.Windows.Forms.Timer(Me.components)         CType(Me.StatusBarPanel1, System.ComponentModel.ISupportInitialize).BeginInit()         CType(Me.StatusBarPanel2, System.ComponentModel.ISupportInitialize).BeginInit()         Me.SuspendLayout()         '         'StatusBar1         '         Me.StatusBar1.Location = New System.Drawing.Point(0, 110)         Me.StatusBar1.Name = "StatusBar1"         Me.StatusBar1.Panels.AddRange(New System.Windows.Forms.StatusBarPanel() {Me.StatusBarPanel1, Me.StatusBarPanel2})         Me.StatusBar1.ShowPanels = True         Me.StatusBar1.Size = New System.Drawing.Size(216, 48)         Me.StatusBar1.TabIndex = 0         Me.StatusBar1.Text = "StatusBar1"         '         'StatusBarPanel1         '         Me.StatusBarPanel1.BorderStyle = System.Windows.Forms.StatusBarPanelBorderStyle.Raised         Me.StatusBarPanel1.ToolTipText = "Time"         '         'StatusBarPanel2         '         Me.StatusBarPanel2.BorderStyle = System.Windows.Forms.StatusBarPanelBorderStyle.Raised         Me.StatusBarPanel2.ToolTipText = "Date"         '         'Timer1         '         Me.Timer1.Enabled = True         '         'Form1         '         Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)         Me.ClientSize = New System.Drawing.Size(216, 158)         Me.Controls.Add(Me.StatusBar1)         CType(Me.StatusBarPanel1, System.ComponentModel.ISupportInitialize).EndInit()         CType(Me.StatusBarPanel2, System.ComponentModel.ISupportInitialize).EndInit()         Me.ResumeLayout(False)     End Sub     Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick         StatusBarPanel2.Text = System.DateTime.Today.ToLongDateString         StatusBarPanel1.Text = System.DateTime.Now.ToLongTimeString     End Sub End Class