Cara Membuat ComboBox Dropdown Listview/Datagridview VBNET

Iseng iseng ga ada kerjaan di kantor... saya coba membuat kombinasi combobox dan listview atau datagridview, artinya ketika combobox di klik (dropdown), list data-nya bukan dari combobox melainkan dari listview atau datagridview dengan multi kolom, hasilnya? cukup bagus menurut saya. Berikut ini screenshot nya :

Sintaknya? tidak panjang dan tidak macem macem ko.. sangat sederhana dan mudah dimengerti. Kali ini saya contohkan menggunakan listview, klo anda ingin datagridview sebenarnya tinggal diubah saja object-nya, karena konsepnya sama saja :

1. Isi Data Listview (saya contohkan manual/bukan dari database) dan visible = false (agar tak terlihat dulu sebelum combo di click)

Private Sub Form1_Load(ByValsender As System.Object, ByVal e AsSystem.EventArgs) Handles MyBase.Load

   WithdjieListView1

        For i As Integer = 1 To 100

            .Items.Add(i.ToString).SubItems.Add("Name " + i.ToString)

            .Items(.Items.Count - 1).SubItems.Add("Address " + i.ToString)

        Next

        .Visible = False

        .AutoResizeColumns(ColumnHeaderAutoResizeStyle.HeaderSize)

   End With

End Sub

2. Buat Fungsi untuk mengkombinasikan Combobox dan Listview

Public Sub djie_combo_listview(ByValp_combobox As ComboBox, ByVal p_listview As ListView)

   SendKeys.Send("{F4}")

   Withp_listview

       .Left = p_combobox.Left

       .Top = p_combobox.Top + p_combobox.Height

       .Visible = Not.Visible
       .BringToFront

   End With

End Sub

3.Panggil Fungsi itu di event combobox_dropdown

Private Sub djieComboBox1_DropDown(ByValsender As Object, ByVal e AsSystem.EventArgs) HandlesdjieComboBox1.DropDown

   Calldjie_combo_listview(djieComboBox1, djieListView1, 1)

End Sub

4.Tentukan isi combobox saat anda click atau doubleclick listview

Private Sub djieListView1_Click(ByValsender As Object, ByVal e AsSystem.EventArgs) Handles djieListView1.Click

    djieComboBox1.Text = djieListView1.FocusedItem.SubItems(1).Text

End Sub

Private Sub djieListView1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) HandlesdjieListView1.DoubleClick

    djieListView1.Visible = False

End Sub

Tags:

combolistview tutorial, cara menggabungkan combo dan listview, combobox dropdown listview, contoh sintak vbnet,