Cara Membuat Input Tanggal dengan ComboBox di VB6

Buat anda yang sering mengisi formulir secara Online di internet tentu tidak asing lagi dengan model inputan tanggal yang berupa Combobox, dimana kita tinggal memilih tanggal, bulan dan tahun yang sesuai dengan kelahiran kita kemudian mengkliknya. Kontrol ComboBox ini juga biasa digunakan untuk pertanyaan-pertanyaan yang jawabannya sudah disediakan dalam bentuk daftar, jadi pengguna tinggal memilih dan mengkliknya.

Tahukah anda kitapun bisa membuat sebuah inputan yang berupa combobox dengan hanya menggunakan VB6.

Contoh Bentuk ComboBox yang  kita akan buat:

Input Tanggal dalam ComboBox

yang ditampilkan dalam ComboBox "Tanggal" adalah angka dari 1 sampai 31.Jika Anda menggunakan secara manual dengan mengetik di Propertis List tentu akan merepotkan karena banyak yang kita ketik.

Untuk kasus seperti ini ada cara yang lebih singkat, Berikut ini adalah langkah-langkah dalam pembuatannya :

Cara Membuat Input Tanggal dengan ComboBox di VB6

1. Letakan 3 buah ComboBox didalam Form

2. Ketik Caption pada Combo1 : "Tanggal", Combo2 : "Bulan" dan Combo3 : "Tahun"

3. Kemudian ketik kode dibawah ini :

Private Sub Form_Load()

For i = 1 To 31

Combo1.AddItem (Str(i))

Next i

For j = 1 To 12

Combo2.AddItem (MonthName(j))

Next j

For k = 1900 To Year(Now)

Combo3.AddItem (Str(k))

Next k

End Sub

Pada ComboBox tahun terdapat baris kode:

For k = 1900 to Year (Now)

Dengan kode tersebut angka yang akan ditampilkan dalam  daftar adalah angka 1900 sampai dengan tahun sekarang ini. Kode Year(Now) dapat anda ganti sesuai kebutuhan

Demikian artikel kali Cara Membuat Input Tanggal dengan ComboBox di VB6, semoga artikel ini bermanfaat dan dapat menambah wawasan kita didunia pemograman khususnya Visual Basic 6.0

Related Post: ComboBox