Membuat Angka 1 - 100 Secara Otomatis di Combo Box

Hai sobat Blues Pedia, Di tutorial visual basic kali ini kita akan membuat / menuliskan angka dari 1 sampai seratus secara otomatis di combo box, untuk melakukan hal ini kita akan menggunakan fungsi for dan next dan tentunya combo box, berikut tutorialnya :

Menambahkan Item Ke Combo Box Versi 1

1. Tambahkan satu combo box saja, ubah properties text menjadi kosong dengan font size 10,

2. Jika sudah tuliskan scrip berikut :

Private Sub Form_Load()
Combo1.SetFocus 'Posisi Kursor Mouse berada di Combo box
Combo1.Clear 'Mengkosongkan Combo Box
For a = 1 To 100 'Interval yang akan di tambahkan di combo box yaitu 1 sampai 100
'Anda bisa menggantinya sesuai keinginan anda
Combo1.AddItem a 'Menambahkan item a ke combo box
Next a
End Sub

3. Jalankan Program

Ketika program di jalankan maka combo box akan berisikan angka 1 sampai 100,

Script di atas adalah script untuk menambahkan item yang sudah di tentukan ke combo box, sehingga ketika program di jalalankan item yang di tambahkan tidak akan bisa di ubah, tapi tenang saya punya cara lain agar item yang di tambahkan bisa di ubah yaitu dengan menambahkan tex box dan fungsi keypress, berikut tutorialnya :

Menambahkan Item Ke Combo Box Versi 2

1. Tambahkan 2 label, 2 text box dan 1 combo box

2. ubah propertiesnya seperti ini dengan font size 10 untuk semua tool box

3. lalu jika sudah tambahkan script berikut :

Private Sub Form_Load()
Text1.SetFocus
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)'Ketika kursor berada di text1 dan tekan enter
'Maka kursor akan berpindah ke text2
If KeyAscii = 13 Then Text2.SetFocus
End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then
Combo1.SetFocus
Combo1.Clear
For a = Text1.Text To Text2.Text
Combo1.AddItem a
Next a
End If
End Sub

4. Jalankan program

Coba tuliskan sebuah angka di text1 dan text2, lalu tekan Enter di text2, maka combo1 akan berisi angka yang di mulai dari text1 sampai angka yang di tuliskan text2, Dengan cara ini maka penambahan item untuk combo box bisa kita atur sesuai kebutuhan kita.

Sekian tutorial kali ini, Semoga bermanfaat