Cara Menggabungkan Data Dalam Dua Combobox Menjadi Satu Dengan Mengabaikan Data Kembar di VB6

Pada artikel kali ini Admin ingin membagikan sebuah kode vb6 yang berfungsi untuk menggabungkan dua data di Combobox dengan mengabaikan data yang kembar, artiya apabila ada data yang kembar maka data tersebut akan di tulis satu saja.

Misal dalam artikrel kali ini saya menggabungkan 2 Combobox dengan masing-masing data pada Combo1 adalah 1,2,3 dan 4 sedangkan pada Combo2 datanya adalah 5,6,1 dan 2 dalam contoh ini saya mempunyai data yang kembar yaitu 1 dan 2 dimana masing-masing combobox terdapat angka tersebut maka jika di gabungkan hasilnya pada Combobox3 adalah 1,2,3,4,5 dan 6 sehingga data yang kembar tadi akan diabaikan.

output

Lalu bagaiamana penerapannya sebuah program dengan menggunakan vb6?, cara sangat mudah yaitu :

1. Buka Form VB6 Standar EXE

2. Pada Form tanamkan 3 Combobox, 1 Commandbutton dan 1 Label

3. Desainlah Form seperti gambar dibawah ini :

Desain Form

4. Buka jendela kode, lalu ketikan kode dibawah ini

Dim strData As String

Private Sub Command1_Click()

Dim i As Integer

Dim arrData() As String

strData = ""

For i = 0 To Combo1.ListCount - 1

    strData = strData & Combo1.List(i) & ","

    Next i

    

For i = 0 To Combo2.ListCount - 1

If InStr(1, strData, Combo2.List(i)) < 1 Then

           

    strData = strData & Combo2.List(i) & ","

End If

Next i

If Right(strData, 1) = "," Then

    strData = Left(strData, Len(strData) - 1)

End If

MsgBox strData, vbInformation, _

    "Data Gabungan"

        

arrData = Split(strData, ",")

For i = LBound(arrData) To UBound(arrData)

    MsgBox arrData(i), vbInformation, _

        "Hasil Gabungan Pada Combo3"

    Combo3.AddItem arrData(i)

Next

MsgBox "Silahkan Cek Pada Combo3", vbInformation, "Pesan"

End Sub

Private Sub Form_Load()

Combo1.Text = ""

Combo1.AddItem "1"

Combo1.AddItem "2"

Combo1.AddItem "3"

Combo1.AddItem "4"

Combo1.Text = Combo1.List(0)

Combo2.Text = ""

Combo2.AddItem "5"

Combo2.AddItem "6"

Combo2.AddItem "1"

Combo2.AddItem "2"

Combo2.Text = Combo2.List(0)

Combo3.Text = ""

End Sub

Setelah membuat kode jalankan project Anda, jika tidak ada error maka outputnya seperti pada gambar diatas artikel ini.

Demikian trik singkat pada artikel ini tentang Cara Menggabungkan Data Dalam Dua Combobox Menjadi Satu Dengan Mengabaikan Data Kembar di VB6, semoga artikel ini bermanfaat buat kita semua, Amin....

Selamat mencoba semoga berhasil.....

Related Post: ComboBox