+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم مقالات VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=184)
+--- الموضوع : [كود] إختيار صف واحد أو اختيار جميع الصفوف في الداتا جريد فيو (/showthread.php?tid=14164)
إختيار صف واحد أو اختيار جميع الصفوف في الداتا جريد فيو - silverlight - 18-12-15
السلام عليكم ورحمة الله وبركاته
كتابة الاكواد علي شكل مكتبات بها دوال و روتينات يساعد المبرمج كثيرا في عدم كتابة الكود اكثر من مرة
بالطبع هذا الأمر يعود الي كيفية تفكير كل مبرمح
الكود التالي يوضح كيفية اختيار صف واحد من الداتا حريد فيو و أيضا يستخدم لإختيار جميع الصفوف
PHP كود :
Friend Function SelectRows(ByVal grid As DataGridView) As Boolean
' Method 1
'For j As Integer = 0 To grid.Rows.Count - 1
' Dim row As DataGridViewRow = grid.Rows(j)
' Me.SelectRow(grid, row.Index)
'Next
' Method 2
For Each r As DataGridViewRow In grid.Rows
Me.SelectRow(grid, r.Index)
Next
Return False
End Function
Friend Function SelectRow(ByVal grid As DataGridView, ByVal row As Integer) As Boolean
If (row >= grid.RowCount) Then
row = (grid.RowCount - 1)
End If
If (row >= 0) Then
grid.CurrentCell = grid.Rows.Item(row).Cells.Item(0)
grid.Rows.Item(row).Selected = True
Return True
End If
Return False
End Function
الكود أعلاه يستخدم بتمرير الداتا جريد فيو الي الدالة فيتم اختيار جميع الصفوف الموجودة في الدات جريد فيو
أو يتم تمرير الداتا جريد فيو مع رقم الصف الي الدالة و ب التبعية اختيار هذا الصف
PHP كود :
' select allRows
SelectRows(Me.DataGridView1)
' or select singlRow based on its index
Dim index As Integer = 2
SelectRow(Me.DataGridView1, index)