Kode Untuk Menambah dan Mengurangi Item pada Combobox di VB6

Pada artikel ini saya akan berbagi kode bagiamana cara menambahkan atau mengurangi isi dalam combobox dengan menggunakan kode vb6.

Didalam artikel ini untuk mengurangi atau menambah item combobox cukup dengan mengklik sebuah tombol sesuai perintah yang diinginkan, seperti nampak pada gambar dibawah ini :

Ouput

Berikut adalah kode untuk menambahkan atau menghapus item pada objek Combobox :

Option Explicit

 

Private Sub Command1_Click()

If Combo1.Text = "" Then

MsgBox "Pilih item Combobox yang dihapus"

Combo1.SetFocus

Else

    Combo1.RemoveItem 0 'hilangkan item yang memiliki index 0 (paling atas)

    MsgBox "Isi combobox yang berindex 0 dipilih telah dihapus"

    End If   

End Sub

Private Sub Command2_Click()

'Menambahkan item kedalam Combobox

If Text1.Text = "" Then

MsgBox "Masukan teks yang akan ditambahkan kedalam combobox"

Text1.SetFocus

Else

Combo1.AddItem Text1.Text

MsgBox "Isi Combox telah ditambahkan"

Text1.Text = ""

End If

End Sub

Private Sub Form_Activate()

'Mengosongkan caption combobox dan texbox

Combo1.Text = ""

Text1.Text = ""

End Sub

Private Sub Form_Load()

Combo1.AddItem "A" 'tambah item huruf A

Combo1.AddItem "B" 'tambah item huruf B

Combo1.AddItem "C" 'tambah item huruf C

End Sub

Setelah mengetikan kode diatas silahkan jalankan project Anda, setelah itu silahkan eksekusi kedua tombol tersebut yaitu menghapus dan menambah item combobox.

Catatan:

Hanya item yang berindex 0 yang bisa di hapus atau dikurangi

Demikian tips dari saya tentang cara untuk menambahkan atau menghapus item pada combobox, semoga bermanfaat buat kita semua.Amin.

Sealamatmencba semoga sukses....

Related Post: ComboBox