Cara Mengubah Index Item LixtBox VB6

Berikut ini adalah cara mengeset data yang terdapat di ListBox ditampilkan menjadi indeks teratas berdasarkan indeks yang terpilih di ComboBox di visual basic 6, untuk mempraktekannya siapkan :

1. Buat 1 Project baru dengan 1 Form, 1 ListBox, dan 1 ComboBox.
2. Copy-kan coding berikut ke dalam editor form yang bertalian.

          Private Sub Combo1_Click()
          'Ketika Anda memilih data di Combo1, maka
          'data indeks yang sesuai dengan indeks Combo1
          'terpilih akan berada paling atas dari List1.

              Dim indx As Integer
              indx = Combo1.Text
              List1.TopIndex = indx
          End Sub

          Private Sub Form_Load()
              Dim i As Integer
              Dim itemName As String
              For i = 0 To 100

                  itemName = "Ini data indeks ke-" & i
                  List1.AddItem itemName
                  Combo1.AddItem i
              Next

              Combo1.Text = Combo1.List(0)
          End Sub

Tags:

contoh program vb6, contoh fungsi di vb6, cara penggunaan fungsi vb, tutorial vb6, download tutorial vb6, vb6 tutorial download, dasar dasar vb6, belajar vb6, cara mudah belajar vb6, vb6 artikel download, vb6 blog, contoh program vb6, artikel vb6, semua tentang vb6, vb6 api, cara menggunakan module, cara menggunakan class module