منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
Get Selected Cells and Columns and rows in datagridview - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : الأقسام التعليمية - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=90)
+--- قسم : مكتبة أكواد المنتدى (http://vb4arb.com/vb/forumdisplay.php?fid=111)
+---- قسم : مكتبة أكواد .net (http://vb4arb.com/vb/forumdisplay.php?fid=117)
+---- الموضوع : Get Selected Cells and Columns and rows in datagridview (/showthread.php?tid=4708)

Get Selected Cells and Columns and rows in datagridview - RaggiTech - 01-10-12

كاتب الموضوع : shenosheno2008


Get Selected Cells

كود :
[COLOR=#000000][COLOR=#0000bb]
    Dim selectedCellCount [/COLOR][color=#007700]As [/color][color=#0000bb]Integer [/color][color=#007700]= [/color][COLOR=#0000bb]_
        dataGridView1[/COLOR][color=#007700].[/color][color=#0000bb]GetCellCount[/color][color=#007700]([/color][color=#0000bb]DataGridViewElementStates[/color][color=#007700].[/color][color=#0000bb]Selected[/color][COLOR=#007700])

    If [/COLOR][color=#0000bb]selectedCellCount [/color][color=#007700]> [/color][COLOR=#0000bb]0 Then

        [/COLOR][color=#007700]If [/color][color=#0000bb]dataGridView1[/color][color=#007700].[/color][color=#0000bb]AreAllCellsSelected[/color][color=#007700]([/color][color=#0000bb]True[/color][color=#007700]) [/color][COLOR=#0000bb]Then

            MessageBox[/COLOR][color=#007700].[/color][color=#0000bb]Show[/color][color=#007700]([/color][color=#dd0000]"All cells are selected"[/color][color=#007700], [/color][color=#dd0000]"Selected Cells"[/color][COLOR=#007700])

        Else

            [/COLOR][color=#0000bb]Dim sb [/color][color=#007700]As New [/color][color=#0000bb]System[/color][color=#007700].[/color][color=#0000bb]Text[/color][color=#007700].[/color][color=#0000bb]StringBuilder[/color][COLOR=#007700]()

            [/COLOR][color=#0000bb]Dim i [/color][color=#007700]As [/color][COLOR=#0000bb]Integer
            [/COLOR][color=#007700]For [/color][color=#0000bb]i [/color][color=#007700]= [/color][color=#0000bb]0 To selectedCellCount [/color][color=#007700]- [/color][COLOR=#0000bb]1

                sb[/COLOR][color=#007700].[/color][color=#0000bb]Append[/color][color=#007700]([/color][color=#dd0000]"Row: "[/color][COLOR=#007700])
                [/COLOR][color=#0000bb]sb[/color][color=#007700].[/color][color=#0000bb]Append[/color][color=#007700]([/color][color=#0000bb]dataGridView1[/color][color=#007700].[/color][color=#0000bb]SelectedCells[/color][color=#007700]([/color][color=#0000bb]i[/color][color=#007700]).[/color][COLOR=#0000bb]RowIndex _
                    [/COLOR][color=#007700].[/color][color=#0000bb]ToString[/color][COLOR=#007700]())
                [/COLOR][color=#0000bb]sb[/color][color=#007700].[/color][color=#0000bb]Append[/color][color=#007700]([/color][color=#dd0000]", Column: "[/color][COLOR=#007700])
                [/COLOR][color=#0000bb]sb[/color][color=#007700].[/color][color=#0000bb]Append[/color][color=#007700]([/color][color=#0000bb]dataGridView1[/color][color=#007700].[/color][color=#0000bb]SelectedCells[/color][color=#007700]([/color][color=#0000bb]i[/color][color=#007700]).[/color][COLOR=#0000bb]ColumnIndex _
                    [/COLOR][color=#007700].[/color][color=#0000bb]ToString[/color][COLOR=#007700]())
                [/COLOR][color=#0000bb]sb[/color][color=#007700].[/color][color=#0000bb]Append[/color][color=#007700]([/color][color=#0000bb]Environment[/color][color=#007700].[/color][color=#0000bb]NewLine[/color][COLOR=#007700])

            [/COLOR][COLOR=#0000bb]Next i

            sb[/COLOR][color=#007700].[/color][color=#0000bb]Append[/color][color=#007700]([/color][color=#dd0000]"Total: " [/color][color=#007700]+ [/color][color=#0000bb]selectedCellCount[/color][color=#007700].[/color][color=#0000bb]ToString[/color][COLOR=#007700]())
            [/COLOR][color=#0000bb]MessageBox[/color][color=#007700].[/color][color=#0000bb]Show[/color][color=#007700]([/color][color=#0000bb]sb[/color][color=#007700].[/color][color=#0000bb]ToString[/color][color=#007700](), [/color][color=#dd0000]"Selected Cells"[/color][COLOR=#007700])

        [/COLOR][color=#0000bb]End [/color][COLOR=#007700]If

    [/COLOR][color=#0000bb]End [/color][COLOR=#007700]If  
[/COLOR][/COLOR]

Get Selected Rows

كود :
[COLOR=#000000][COLOR=#0000bb]
  Dim selectedRowCount [/COLOR][color=#007700]As [/color][color=#0000bb]Integer [/color][color=#007700]= [/color][COLOR=#0000bb]_
        dataGridView1[/COLOR][color=#007700].[/color][color=#0000bb]Rows[/color][color=#007700].[/color][color=#0000bb]GetRowCount[/color][color=#007700]([/color][color=#0000bb]DataGridViewElementStates[/color][color=#007700].[/color][color=#0000bb]Selected[/color][COLOR=#007700])

    If [/COLOR][color=#0000bb]selectedRowCount [/color][color=#007700]> [/color][COLOR=#0000bb]0 Then

        Dim sb [/COLOR][color=#007700]As New [/color][color=#0000bb]System[/color][color=#007700].[/color][color=#0000bb]Text[/color][color=#007700].[/color][color=#0000bb]StringBuilder[/color][COLOR=#007700]()

        [/COLOR][color=#0000bb]Dim i [/color][color=#007700]As [/color][COLOR=#0000bb]Integer
        [/COLOR][color=#007700]For [/color][color=#0000bb]i [/color][color=#007700]= [/color][color=#0000bb]0 To selectedRowCount [/color][color=#007700]- [/color][COLOR=#0000bb]1

            sb[/COLOR][color=#007700].[/color][color=#0000bb]Append[/color][color=#007700]([/color][color=#dd0000]"Row: "[/color][COLOR=#007700])
            [/COLOR][color=#0000bb]sb[/color][color=#007700].[/color][color=#0000bb]Append[/color][color=#007700]([/color][color=#0000bb]dataGridView1[/color][color=#007700].[/color][color=#0000bb]SelectedRows[/color][color=#007700]([/color][color=#0000bb]i[/color][color=#007700]).[/color][color=#0000bb]Index[/color][color=#007700].[/color][color=#0000bb]ToString[/color][COLOR=#007700]())
            [/COLOR][color=#0000bb]sb[/color][color=#007700].[/color][color=#0000bb]Append[/color][color=#007700]([/color][color=#0000bb]Environment[/color][color=#007700].[/color][color=#0000bb]NewLine[/color][COLOR=#007700])

        [/COLOR][COLOR=#0000bb]Next i

        sb[/COLOR][color=#007700].[/color][color=#0000bb]Append[/color][color=#007700]([/color][color=#dd0000]"Total: " [/color][color=#007700]+ [/color][color=#0000bb]selectedRowCount[/color][color=#007700].[/color][color=#0000bb]ToString[/color][COLOR=#007700]())
        [/COLOR][color=#0000bb]MessageBox[/color][color=#007700].[/color][color=#0000bb]Show[/color][color=#007700]([/color][color=#0000bb]sb[/color][color=#007700].[/color][color=#0000bb]ToString[/color][color=#007700](), [/color][color=#dd0000]"Selected Rows"[/color][COLOR=#007700])

    [/COLOR][color=#0000bb]End [/color][COLOR=#007700]If  
[/COLOR][/COLOR]

Get Select Columns


كود :
[COLOR=#000000][COLOR=#0000bb]
Dim selectedColumnCount [/COLOR][color=#007700]As [/color][color=#0000bb]Integer [/color][color=#007700]= [/color][color=#0000bb]dataGridView1[/color][color=#007700].[/color][COLOR=#0000bb]Columns _
        [/COLOR][color=#007700].[/color][color=#0000bb]GetColumnCount[/color][color=#007700]([/color][color=#0000bb]DataGridViewElementStates[/color][color=#007700].[/color][color=#0000bb]Selected[/color][COLOR=#007700])

    If [/COLOR][color=#0000bb]selectedColumnCount [/color][color=#007700]> [/color][COLOR=#0000bb]0 Then

        Dim sb [/COLOR][color=#007700]As New [/color][color=#0000bb]System[/color][color=#007700].[/color][color=#0000bb]Text[/color][color=#007700].[/color][color=#0000bb]StringBuilder[/color][COLOR=#007700]()

        [/COLOR][color=#0000bb]Dim i [/color][color=#007700]As [/color][COLOR=#0000bb]Integer
        [/COLOR][color=#007700]For [/color][color=#0000bb]i [/color][color=#007700]= [/color][color=#0000bb]0 To selectedColumnCount [/color][color=#007700]- [/color][COLOR=#0000bb]1

            sb[/COLOR][color=#007700].[/color][color=#0000bb]Append[/color][color=#007700]([/color][color=#dd0000]"Column: "[/color][COLOR=#007700])
            [/COLOR][color=#0000bb]sb[/color][color=#007700].[/color][color=#0000bb]Append[/color][color=#007700]([/color][color=#0000bb]dataGridView1[/color][color=#007700].[/color][color=#0000bb]SelectedColumns[/color][color=#007700]([/color][color=#0000bb]i[/color][color=#007700]).[/color][color=#0000bb]Index[/color][color=#007700].[/color][color=#0000bb]ToString[/color][COLOR=#007700]())
            [/COLOR][color=#0000bb]sb[/color][color=#007700].[/color][color=#0000bb]Append[/color][color=#007700]([/color][color=#0000bb]Environment[/color][color=#007700].[/color][color=#0000bb]NewLine[/color][COLOR=#007700])

        [/COLOR][COLOR=#0000bb]Next i

        sb[/COLOR][color=#007700].[/color][color=#0000bb]Append[/color][color=#007700]([/color][color=#dd0000]"Total: " [/color][color=#007700]+ [/color][color=#0000bb]selectedColumnCount[/color][color=#007700].[/color][color=#0000bb]ToString[/color][COLOR=#007700]())
        [/COLOR][color=#0000bb]MessageBox[/color][color=#007700].[/color][color=#0000bb]Show[/color][color=#007700]([/color][color=#0000bb]sb[/color][color=#007700].[/color][color=#0000bb]ToString[/color][color=#007700](), [/color][color=#dd0000]"Selected Columns"[/color][COLOR=#007700])  
[/COLOR][/COLOR]