SHN Eğitim
Kullanici Adı Parola Giriş Üye Ol Şifremi Unuttum
Rasgele Makale
VBNET Outlloktaki Mailleri Okuma
Evet arkadaşlar Office Outlook daki mailleri okuyabilmek için basit bir program
Yazar:admin
Okunma Sayısı:627
VİSUAL BASİC NET MAKALELERİ
Makale Yazarı :admin
Eklenme Tarihi :07.01.2011 21:58:46
Okunma Sayısı :1488
Başlık :DataGridView ContextMenu
Açıklama :Programlarımızda listeleme işlemleri için kullandığımız DataGridView kontrolüne ContextMenuStrip kontolünü kullanarak sağ tuş menüsü oluşturacağız

Formumuza DataGridView ve ContextMenuStrip kontrollerini ekliyoruz. Resimde gösterildiği şekilde menümüzü oluşturuyoruz 

Sadece düzenle menüsü ekleyip devam edeceğim. Menüyü genişletmek mümkün tabi (sil, yazdır).

Şimdi kodlarımızı yazalım. Gerekli yerlerde kodların açıklamalarını yazdım. Ama veritabanından verileri çekme kısmına açıklama yapmaya gerek duymadım.

Imports System.Data.SqlClient
Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ’ContextMenuStrip1 in DataGridView1 için olduğunu belirtiyoruz
        DataGridView1.ContextMenuStrip = ContextMenuStrip1
        ’Gridde seçme işleminin tüm satır olmasını sağlıyoruz
        DataGridView1.SelectionMode = DataGridViewSelectionMode.FullRowSelect
        ’Verileri veritabanından alıyoruz
        VeriAl()
    End Sub

    Sub VeriAl()
        Dim con As SqlConnection = New SqlConnection("Data Source=(local); user id=shndatauser; password=9865563799; database=shndata")
        Try
            con.Open()
            Dim dt As DataTable = New DataTable
            Dim adp As SqlDataAdapter = New SqlDataAdapter("select * from uyeler", con)
            adp.Fill(dt)
            DataGridView1.DataSource = dt.DefaultView
        Catch ex As Exception
            MsgBox(ex.Message.ToString)
        Finally
            con.Close()
        End Try
    End Sub

    Private Sub DüzenleToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DüzenleToolStripMenuItem.Click
        ’Tablodaki id alanına ait değeri ID değişkenine atıyoruz
        id = DataGridView1.CurrentRow.Cells(0).Value
        ’Form2 yi açtırıyoruz
        Form2.Show()
    End Sub
End Class

Kodlarımızı incelediğiniz zaman yaptığımız işlem grid de seçilen satırda sağ tuşa tıkladığımızda Düzenle menüsü geldiğidir.

Menüye tıkladığımızda da Form2 de seçilen kayıta ait bilgiler gelecektir

Unutmadan şunuda belirtelim. Kodlarda id değişkeni var ve form içinde tanımlanmadığını görmüşsünüzdür. Düzenleme işlemini başka bir formda yaptığımız için global değişken kullanmamız gerkiyordu. Bu nedenle bir programımıza Modül ekleyip değişkeni orda tanımladık.

Module Module1
    Public id As Integer
End Module

Form2 nin kodlarını konumuzla ilgili bir kod bulunmadığı için yazmadım. Kısaca açıklamak gerekirse Düzenle menüsünde ID değişkenine değer atamıştık. Form2_Load eventın da bu ID ye göre veritabanından veriler alındı ve textbox larda gösterildi

Bu makaleyi 14 kişi oyladı
|
Yeni Makaleler
Çok Okunanlar
Çok Beğenilenler

Çevrimiçi Üyeler
Sayısal Bilgiler
Üye Sayısı : 199 - Kategori Sayısı : 7 - Makale Sayısı : 237 - Soru Sayısı : 58 - Cevap Sayısı : 265
Üye İstatistikleri
Çevrimiçi : 6 ziyaretçi - Günlük : 1 üye - Aylık : 1 üye - Yıllk : 25 üye

Opera Web Tarayıcı kullanılarak tasarlanmıştır. En iyi görünüm ve 1024x768 çözünürlük ile elde edilir
Web Tasarım SHN Eğitim ©2010