Membuat Angka 1 - 100 Secara Otomatis Di Combo Box

Hai teman Routeros Mikrotik, Di tutorial visual basic kali ini kita akan menciptakan / menuliskan angka dari 1 hingga seratus secara otomatis di combo box, untuk melaksanakan hal ini kita akan memakai 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 hingga 100
'Anda dapat menggantinya sesuai impian anda
Combo1.AddItem a 'Menambahkan item a ke combo box
Next a
End Sub

3. Jalankan Program

Ketika aktivitas di jalankan maka combo box akan berisikan angka 1 hingga 100,

Script di atas yaitu script untuk menambahkan item yang sudah di tentukan ke combo box, sehingga saat aktivitas di jalalankan item yang di tambahkan tidak akan dapat di ubah, tapi hening aku punya cara lain supaya item yang di tambahkan dapat 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 menyerupai ini dengan font size 10 untuk semua tool box

3. kemudian kalau 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, kemudian tekan Enter di text2, maka combo1 akan berisi angka yang di mulai dari text1 hingga angka yang di tuliskan text2, Dengan cara ini maka penambahan item untuk combo box dapat kita atur sesuai kebutuhan kita.

Sekian tutorial kali ini, Semoga bermanfaat