Tanggal pada Statusbar MDIForm (VB6)

Halo sobat, kali ini saya akan jelaskan cara memasang Tanggal pada Statusbar MDIForm. Jika pada sebelumnya saya telah jelaskan mengenai 'Membuat Form Login Sederhana'. Ok, tanpa panjang lebar kita langsung saja buka Program Visual Basic 6 nya.

• Tambahkan 1 MDIForm :MDIForm1 (Default)
• Tambahkan Microsoft Windows Common Controls 6 (SP6)
  Caranya : Klik menu Project => Component , lalu centang Microsoft Windows Common Controls 6 (SP6), lalu klik OK

Letakkan Tools 'Statusbar' seperti disamping ini ke MDIForm. secara otomatis Statusbar tersebut akan terpasang dengan 1 slot atau panel. Nah, sampai disini statusbar sudah terpasang. Selanjutnya mari kita pasang tanggalnya. Dengan asumsi format tanggal 'dd/mm/yyyy'.

• dd = Hari dengan 2 digit
• mm = Bulan dengan 2 digit
• yyyy = Tahun dengan 2 digit

sobat dapat berkreasi lebih banyak mengenai format tanggal

Coding untuk memasang statusbar pada MDIForm

Private Sub MDIForm_Load()
          StatusBar1.Panels(1) = Format(Date, "dd/MM/yyyy")
End Sub

Mudah sekali kan?
Semoga Bermanfaat ...

share this article to: Facebook Twitter Google+ Linkedin Technorati Digg

Posted by Admin (Ade Setiadi), Published at 3:28:00 PM and have 0 comments