Cara Membuat StatusBar atau StatusStrip Di VB.NET

Juli 28, 2013 | | 0 komentar

بِسْــــــــــــــــمِ اﷲِالرَّحْمَنِ اارَّحِيم

bismillaahirrahmaanirrahiim

السَّلاَمُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ

Assalamu'alaikum warahmatullahi wabarakatuh

Berikut Cara Membuat StatusBar atau StatusStrip Di VB.NET Saya Menggunakan Visual Studio 2010
Saya Membuat nya langsung dengan coding tanpa bantuan toolbox , codingan taro di form load

Public Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer

Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'Membuat Status bar nya
Dim statusBarMain As New StatusBar
statusBarMain.Name = "StatusBar"
statusBarMain.ShowPanels = True

'MEMBUAT PANEL USER LOGIN

Dim statusBarUser = New StatusBarPanel
statusBarUser.Name = "StatusBarUser"
statusBarUser.Text = flogin.txtusername.Text
statusBarUser.AutoSize = StatusBarPanelAutoSize.Contents
statusBarMain.Panels.Add(statusBarUser)

'MEMBUAT PANEL TANGGAL

Dim statusBarDate = New StatusBarPanel
statusBarDate.Name = "StatusBarDate"
statusBarDate.Text = FormatDateTime(Now(), DateFormat.ShortDate)
statusBarDate.AutoSize = StatusBarPanelAutoSize.Contents
statusBarMain.Panels.Add(statusBarDate)

'MEMBUAT PANEL JAM

Dim statusBarTime = New StatusBarPanel
statusBarTime.Name = "StatusBarTime"
statusBarTime.Text = FormatDateTime(Now(), DateFormat.LongTime)
statusBarTime.AutoSize = StatusBarPanelAutoSize.Contents
statusBarMain.Panels.Add(statusBarTime)

'MEMBUAT PANEL CAPS LOCK ON/OFF

Dim statusBarCAPS = New StatusBarPanel
statusBarCAPS.Name = "StatusBarCAPS"

If My.Computer.Keyboard.CapsLock = 1 Then
statusBarCAPS.Text = "CAPS ON"
Else
statusBarCAPS.Text = "CAPS OFF"
End If

statusBarCAPS.AutoSize = StatusBarPanelAutoSize.Contents
statusBarMain.Panels.Add(statusBarCAPS)

'MEMBUAT PANEL NUM LOCK ON/OFF

Dim statusBarNUMS = New StatusBarPanel
statusBarNUMS.Name = "StatusBarNUMS"

If My.Computer.Keyboard.NumLock = 1 Then
statusBarNUMS.Text = "NumLock ON"
Else
statusBarNUMS.Text = "NumLock OFF"
End If

statusBarNUMS.AutoSize = StatusBarPanelAutoSize.Contents
statusBarMain.Panels.Add(statusBarNUMS)

' TAMBAHKAN SEMUA KONTROL KE FORM
Me.Controls.Add(statusBarMain)

'REFRESH STATUSBAR NYA DENGAN TIMER
Timer1.Start()
End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim status As StatusBar = CType(Me.Controls.Find("statusBar", True)(0), StatusBar)

status.Panels("statusBarDate").Text = FormatDateTime(Now(), DateFormat.ShortDate)
status.Panels("statusBarTime").Text = FormatDateTime(Now(), DateFormat.LongTime)

If My.Computer.Keyboard.NumLock = 1 Then
status.Panels("statusBarNUMS").Text = "NumLock ON"
Else
status.Panels("statusBarNUMS").Text = "NumLock OFF"
End If

If My.Computer.Keyboard.CapsLock = 1 Then
status.Panels("statusBarCAPS").Text = "CAPS ON"
Else
status.Panels("statusBarCAPS").Text = "CAPS OFF"
End If

End Sub

Update Contact :
No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email : Fajarudinsidik@gmail.com

NB :: Bila Sobat tertarik Ingin membuat software, membeli software, membeli source code, membeli hardware elektronika untuk kepentingan Perusahaan maupun Tugas Akhir (TA/SKRIPSI), Insyaallah Saya siap membantu, untuk Respon Cepat dapat menghubungi kami, melalui :

No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email: Fajarudinsidik@gmail.com

atau Kirimkan Private messanger melalui email dengan klik tombol order dibawah ini :

ٱلْحَمْدُ لِلَّهِ رَبِّ ٱلْعَٰلَمِين

Alhamdulilah hirobil alamin

وَ السَّلاَمُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ

wassalamualaikum warahmatullahi wabarakatuh

Artikel Cara Membuat StatusBar atau StatusStrip Di VB.NET, Diterbitkan oleh sourcecodeaplikasi1 pada Minggu, 28 Juli 2013. Semoga artikel ini dapat menambah wawasan Anda. Website ini dipost dari beberapa sumber, bisa cek disini sumber, Sobat diperbolehkan mengcopy paste / menyebar luaskan artikel ini, karena segala yang dipost di public adalah milik public. Bila Sobat tertarik Ingin membuat software, membeli software, membeli source code ,Dengan Cara menghubungi saya Ke Email: Fajarudinsidik@gmail.com, atau No Hp/WA : (fajar) : 085369237896, (puat) : 085267792168.