Cara Membuat DataGridView Popup and DropDown pada VB Net

Cara Membuat DataGridView Popup and DropDown pada VB Net - Hi Blogger Lovers !! kali ini saya akan memberikan tutorial bagaimana Cara Membuat DataGridView Popup and DropDown pada VB Net, langsung saja yah gays kita simak di bawah ini!

Berikut langkah-langkah :

1. Membuat database dahulu, disini saya menggunakan database ms. access, Klik Disini Cara Membuat Database Menggunakan MS. Access pada VB Net

2. Jangan lupa taruh file database seperti gambar dibawah ini

3. Setelah membuat database, buka software VB Net, disini saya menggunakan VB Net 2010 Express

4. lalu buat form seperti ini

5. Setelah itu kita buat koneksi database, Klik Disini Cara Koneksi Database Menggunakan MS. Access pada VB Net

6. Setelah membuat koneksi database, klik 2x pada Form

Masukkan Source Code, seperti di bawah ini:

Imports System.Data
Imports System.Data.OleDb
Public Class Form1
    Sub Data_Record()
        Try
            Call koneksi()
            Tabel = New Data.OleDb.OleDbDataAdapter("Select * from Table1", Database)
            Data = New DataSet
            Tabel.Fill(Data)
            Record.DataSource = Data
            Record.DataMember = Data.Tables(0).ToString()
            DataGridView1.DataSource = Record
            DataGridView1.Columns(0).Width = 100
            DataGridView1.Columns(1).Width = 100
            DataGridView1.Columns(2).Width = 100
            DataGridView1.Columns(3).Width = 100
        Catch ex As Exception
            MsgBox(ex.ToString())
        End Try
    End Sub
    Private Sub btnShow_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnShow.Click
        pnPopup.Location = New Point(txtitem.Right, txtitem.Top + txtitem.Height)
        If pnPopup.Visible Then
            pnPopup.Visible = False
            btnShow.Text = "Show"
        Else
            pnPopup.Visible = True
            btnShow.Text = "Hide"
        End If
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        pnPopup.Visible = False
        Call koneksi()
        Call Data_Record()
    End Sub
    Private Sub DataGridView1_CellClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellClick
        If DataGridView1.RowCount > 0 Then
            Dim baris As Integer
            With DataGridView1
                baris = .CurrentRow.Index
                txtitem.Text = .Item(0, baris).Value
                txtitem.Enabled = True
                txtitem.Focus()
            End With
        End If
    End Sub
    Private Sub DataGridView1_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellContentClick
    End Sub
End Class

Penjelasan :

Call koneksi() = Untuk memanggil koneksi.

Table1 =  Nama tabel yang ada di dalam database.

DataGridView1 = Tabel menampilkan data.

txtitem = Nama Textbox.

btnshow = Nama CommanButton.

pnPopup = Nama panel.

7. Lalu  jalankan programnya, sehingga seperti gambar di bawah ini

*Jika ada pertanyaan silahkan sampaikan melalui form komentar, dan jika suka dengan artikel ini silahkan dengan klik like, share, atau join fans page untuk mengetahui artikel lainnya. 

Demikianlah "Cara Membuat DataGridView Popup and DropDown pada VB Net". Selamat mencoba dan salam sukses.