01-10-12, 05:41 PM
كاتب الموضوع : 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]