Membuat Listbox di Visual Basic 6.0 (Menambah, Menghapus, dan Memindah)

Sudah lama gak mempostingkan artikel di blog ini, dan ada kabar baik bagi pengunjung, sekarang blog ini ada kategori baru, yaitu kategori visual basic, dan ini adalah artikel pertama di blog ini tentang visual basic.

'Kode Untuk Tombol Add'

'(menambah daftar ke listbox, syarat jika daftar sudah ada maka tidak bisa tambahkan lagi / akan muncul peringatan)'

Private Sub Command1_Click()

Dim i As Integer

Dim ada As Boolean

    For i = 0 To List1.ListCount - 1

    If List1.List(i) = Text1.Text Then

    MsgBox "Data sudah ada . ", vbOKOnly + vbInformation 

    ada = True

    Exit For

    End If

    Next

    If ada = False Then

    List1.AddItem Text1.Text

    End If

    

Call updatejml 'memanggil fungsi Private Sub updatejml() '

End Sub

'Tombol pindah semua kekanan'

Private Sub Command2_Click()

Dim i As Integer

For i = 0 To List1.ListCount - 1

List2.AddItem List1.List(i)

Next

List1.Clear

Call updatejml

End Sub

'Tombol pindah semua kekiri'

Private Sub Command3_Click()

Dim i As Integer

For i = 0 To List2.ListCount - 1

List1.AddItem List2.List(i)

Next

List2.Clear

Call updatejml

End Sub

'Tombol hapus'

Private Sub Command4_Click()

If List1.ListIndex < 0 Then

   MsgBox "Data Tidak Ada Pilihan", vbOKOnly + vbInformation, "Validasi"

Else

List1.RemoveItem (List1.ListIndex)

End If

End Sub

'tombol pindah kekiri'

Private Sub Hapus_Click()

List1.AddItem List2

List2.RemoveItem (List2.ListIndex)

Call updatejml

End Sub

'Tombol pindah kekanan'

Private Sub Pilih_Click()

List2.AddItem List1

List1.RemoveItem (List1.ListIndex)

Call updatejml

End Sub

'Sub label untuk menghitung kata / daftar yang masuk'

Private Sub updatejml()

Label1.Caption = List1.ListCount

Label2.Caption = List2.ListCount

End Sub

'Key frame agar langsung bisa menggunakan tombol enter'

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

    Command1.SetFocus

    End If

End Sub

catatan : ListCount = Jumlah Baris

              ListIndex = No baris