New Document

DataGridView Seçili Hücrenin Bilgisini Almak

DataGridView nesnesinde mouse ile tıklayıp seçtiğimiz hücrenin bilgisini alacağız. Önce Northwind.mdb veritabanındaki Customers tabloya bağlanıp, dataları DataGridView nesnesinde gösterimini sağlayacağız. Daha sonra Şekil 1 deki gibi seçili hücrenin bilgisini alacağız.

Resim1

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

Public Property SeciliHucre(ByVal SatirNo As Integer, ByVal SutunNo As Integer) As String

Get

Dim sonuc As String = ""

If (SatirNo <= DataGridView1.Rows.Count) And (SutunNo <= DataGridView1.Columns.Count) Then

'Eger hücre içeriği Null değilse değer döndür

sonuc = IIf(IsDBNull(Me.DataGridView1.Rows(SatirNo).Cells(SutunNo).Value), "", Me.DataGridView1.Rows(SatirNo).Cells(SutunNo).Value)

MsgBox("Seçili Hücre İçeriği:" & Me.DataGridView1.Rows(SatirNo).Cells(SutunNo).Value, MsgBoxStyle.OkOnly)

Else

sonuc = "Satir ve Sutun numaraları uymuyor."

MsgBox("Oooops Hata", MsgBoxStyle.Critical)

End If

Return sonuc

End Get

Set(ByVal value As String)

If (SatirNo <= DataGridView1.Rows.Count) And (SutunNo <= DataGridView1.Columns.Count) Then

Me.DataGridView1.Rows(SatirNo).Cells(SutunNo).Value = value

End If

End Set

End Property

Private Sub DataGridView1_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles DataGridView1.MouseClick

Dim satirno, sutunno As Integer

'Datagridview da seçili hücrenin satir, sutun un olduğu kısım alınıyor.

satirno = DataGridView1.CurrentCellAddress.Y

sutunno = DataGridView1.CurrentCellAddress.X

SeciliHucre(satirno, sutunno).ToString()

End Sub

End Class

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