برگرفته از MSDN
__________________________________________________ _____________________
DataGridView Class
از این کلاس برای نمایش اطلاعات به صورت سلولی با قابلیت تنظیم توسط کاربر استفاده میگردد.
این کلاس در NameSpace زیر قرار دارد.
System.Windows.Forms
نحوه کار:
معرفی کلاس:
<ComVisibleAttribute(True)> _
<ClassInterfaceAttribute(ClassInterfaceType.AutoDi spatch)> _
Public Class DataGridView
Inherits Control
Implements ISupportInitialize
استفاده :
Dim instance As DataGridView
نکته:
این کنترل برای شما نحوه نمایش اختصاصی از اطلاعات یک جدول را فراهم میکند.
DataGridView به شما اجازه میدهد تا سلول ها و سطر و ستون و حاشیه ها را از طریق خواصی مانند:
DefaultCellStyle
CellBorderStyle
GridColor
ColumnHeadersDefaultCellStyle
بنا به دلخواه خود تنظیم نمایید.
یک دیتا گرید میتواند برای نمایش داده ها با یا بدون منبع داده DataSource مورد استفاده قرار گیرد.
شما میتوانید بدون مشخص کردن منبع داده ستونها و ردیفها که شامل اطلاعات باشند را ایجاد نمایید.
شما میتوانید خواص DataMember و DataSource یک دیتا گرید رابه یک منبع داده مقید کنید و از اطلاعات آن منبع داده در دیتا گرید استفاده نمایید.
هنگامی که شما به حجم بالای داده رو به رو هستید قابلیت VirtualMode به شما کمک میکند از حافظه نهان Cache برای نمایش یک زیر مجموعه استفاده نمایید.
با وجود اینکه کنترل DataGrideView جایگزین کنترل DataGrid شده است اما قابلیتها و امکانات کنترل قبلی را همچنان حفظ نموده است.
کد زیر یک نمونه از دیتا گرید ویو بدون منبع UnBound را به شما نشان می دهد
برای اجرا کد زیر را در یک فرم که حاوی یک دیتا گرید ویو به نام dataGridView1 است و سه دکمه Button به نامهای:
deleteRowButton
ledgerStyleButton
addNewRowButton
قرار دهید. و خط به خط کد را بررسی نمایید . عملکرد و تنظیمات اولیه را مشاهد کنید.
___________________________
Private Sub ledgerStyleButton_Click(ByVal sender As Object, _
ByVal e As System.EventArgs) Handles ledgerStyleButton.Click
' ساخت یک Stylle جدید برای سلول.
Dim style As New DataGridViewCellStyle
With style
.BackColor = Color.Beige
.ForeColor = Color.Brown
.Font = New Font("Verdana", 8)
End With
' اعمال سبک فرمت به عنوان پیش فرض سلول.
dataGridView1.AlternatingRowsDefaultCellStyle = style
ledgerStyleButton.Enabled = False
End Sub
Private Sub SetUpDataGridView()
Me.Controls.Add(dataGridView1)
dataGridView1.ColumnCount = 5
With dataGridView1.ColumnHeadersDefaultCellStyle
.BackColor = Color.Navy
.ForeColor = Color.White
.Font = New Font(dataGridView1.Font, FontStyle.Bold)
End With
With dataGridView1
.EditMode = DataGridViewEditMode.EditOnEnter
.Name = "dataGridView1"
.Location = New Point(8, 8)
.Size = New Size(500, 300)
.AutoSizeRowsMode = _
DataGridViewAutoSizeRowsMode.DisplayedCellsExceptH eaders
.ColumnHeadersBorderStyle = _
DataGridViewHeaderBorderStyle.Raised
.CellBorderStyle = _
DataGridViewCellBorderStyle.Single
.GridColor = SystemColors.ActiveBorder
.RowHeadersVisible = False
.Columns(0).Name = "Release Date"
.Columns(1).Name = "Track"
.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
.Columns(2).Name = "Title"
.Columns(3).Name = "Artist"
.Columns(4).Name = "Album"
' ایتالیک کردن سطر چهارم دیتاگرید.
.Columns(4).DefaultCellStyle.Font = _
New Font(Control.DefaultFont, _
FontStyle.Italic)
.SelectionMode = _
DataGridViewSelectionMode.FullRowSelect
.MultiSelect = False
.BackgroundColor = Color.Honeydew
.Dock = DockStyle.Fill
End With
End Sub
Private Sub PopulateDataGridView()
' ساخت آرایه برای هر ردیف اطلاعات.
Dim row0 As String() = {"11/22/1968", "29", "Revolution 9", "Beatles", "The Beatles [White Album]"}
Dim row1 As String() = {"4/4/1960", "6", "Fools Rush In", _
"Frank Sinatra", "Nice 'N' Easy"}
Dim row2 As String() = {"11/11/1971", "1", _
"One of These Days", "Pink Floyd", "Meddle"}
Dim row3 As String() = {"4/4/1988", "7", "Where Is My Mind?", _
"Pixies", "Surfer Rosa"}
Dim row4 As String() = {"5/1981", "9", "Can't Find My Mind", _
"Cramps", "Psychedelic Jungle"}
Dim row5 As String() = {"6/10/2003", "13", _
"Scatterbrain. (As Dead As Leaves.)", "Radiohead", _
"Hail to the Thief"}
Dim row6 As String() = {"6/30/1992", "3", "Dress", _
"P J Harvey", "Dry"}
' اضافه کردن ردیف برای هر آرایه.
With Me.dataGridView1.Rows
.Add(row0)
.Add(row1)
.Add(row2)
.Add(row3)
.Add(row4)
.Add(row5)
.Add(row6)
End With
' تغییر ترتیب ستونها برای نمایش.
With Me.dataGridView1
.Columns(0).DisplayIndex = 3
.Columns(1).DisplayIndex = 4
.Columns(2).DisplayIndex = 0
.Columns(3).DisplayIndex = 1
.Columns(4).DisplayIndex = 2
End With
End Sub
درنهایت سعی میکنم به همین روش ادامه بدهم دوستان و بزرگواران نیز اگر ایرادی در مطالب ارایه شده مشاهده کردند و یا پیشنهادی داشتند من استقبال میکنم
موفق باشد