DataGridView da Mouse ile Satır Seçme

DataGridView nesnesindeki satırları Mouse ın sağ tuşuna tıklayarak seçeceğiz. Şekil 1.  Kodlarımızı DataGridView1_CellMouseDown a yazacağız.

Şekil 1

Form1.vb

Imports System.Data

Imports System.Data.OleDb

Public Class Form1

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

        Dim baglan As OleDb.OleDbConnection = New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Northwind.mdb;")

        Dim da As OleDbDataAdapter = New OleDbDataAdapter("Select CustomerID,CompanyName,ContactName,Address,City From Customers", baglan)

        Dim ds As DataSet = New DataSet()

        baglan.Open()

        da.Fill(ds, "Customers")

        DataGridView1.DataSource = ds.Tables(0)

        baglan.Close()

    End Sub

    Private Sub DataGridView1_CellMouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellMouseEventArgs) Handles DataGridView1.CellMouseDown

        If e.Button = Windows.Forms.MouseButtons.Right Then

            DataGridView1.Rows.Item(e.RowIndex).Selected = True

            DataGridView1.Item(e.ColumnIndex, e.RowIndex).Selected = True

        End If

        MsgBox("Seçili Satır Sayısı: " & DataGridView1.SelectedRows.Count)

    End Sub

End Class

Bir makalenin daha sonuna geldik. Bir sonraki makalede görüşmek üzere. Hoşçakalın. Bahadır ŞAHİN