Visual Basic: Menampilkan Tanggal Bulan Tahun Dengan Perulangan

Jika kalian merasa kesulitan menampilkan tanggal ketika membuat program menggunakan visual basic / vb 6, alangkah baiknya gunakanlah fungsi perulangan pada vb. Ya! benar. Perulangan For..Next. Nah dalam postingan ini saya akan membagikan cara menampilkan tanggal, bulan dan tahun lewat combobox menggunakan perulangan For..Next. Untuk itu silahkan simak baik-baik caranya di bawah ini:

1. Desainlah Form seperti berikut

Menampilkan Tanggal Bulan Tahun Dengan Perulangan

Komponen: 3 combo box dan 1 label (untuk judul program)
Ubah nama combobox masing-masing: ctanggal, cbulan, ctahun

2. Tambahkan script pada Form Load / Activate

Private Sub Form_Load()
ctanggal.Text = "---Pilih---"
cbulan.Text = "---Pilih---"
ctahun.Text = "---Pilih---"
For i = 1 To 31
Me.ctanggal.AddItem (Str(i))
Next i
For i = 1 To 12
Me.cbulan.AddItem (MonthName(i))
Next i
For i = 1990 To Year(Now)
Me.ctahun.AddItem (Str(i))
Next i
End Sub

Semoga Bermanfaat
Bagikan :
+
Previous
Next Post »
0 Komentar untuk "Visual Basic: Menampilkan Tanggal Bulan Tahun Dengan Perulangan"

 
Back To Top