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
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