DataGridView控件用法2.doc

DataGridView控件用法合集DataGridView控件用法211. DataGridView行复数选择复数行选择不可DataGridView1.MultiSelect = False单元格选择的时候默认为选择整行DataGridView1.SelectionMode = DataGridViewSelectionMode.FullRowSelect12. DataGridView选择的行、列、单元格取得Console.WriteLine(選択)For Each c As DataGridViewCell In DataGridView1.SelectedCells Console.WriteLine(0, 1, c.ColumnIndex, c.RowIndex)Next cConsole.WriteLine(選択行)For Each r As DataGridViewRow In DataGridView1.SelectedRows Console.WriteLine(r.Index)Next rConsole.WriteLine(選択列)For Each c As DataGridViewColumn In DataGridView1.SelectedColumns Console.WriteLine(c.Index)Next c指定行、列、单元格取得DataGridView1(0, 0).Selected = TrueDataGridView1.Rows(1).Selected = TrueDataGridView1.Columns(2).Selected = True13. DataGridView指定单元格是否表示If Not DataGridView1(0, 0).Displayed AndAlso _ DataGridView1(0, 0).Visible Then DataGridView1.CurrentCell = DataGridView1(0, 0)End If14. DataGridView表头部单元格取得DataGridView1.Columns(0).HeaderCell.Value = 列DataGridView1.Rows(0).HeaderCell.Value = 行DataGridView1.TopLeftHeaderCell.Value = 左上15. DataGridView表头部单元格文字列设定更改列Header表示文字列DataGridView1.Columns(0).HeaderText = 列更改行Header表示文字列Dim i As IntegerFor i = 0 To DataGridView1.Rows.Count - 1 DataGridView1.Rows(i).HeaderCell.Value = i.ToString()Next iDataGridView1.AutoResizeRowHeadersWidth(DataGridViewRowHeadersWidthSizeMode.AutoSizeToAllHeaders)最左上Header单元格文字列DataGridView1.TopLeftHeaderCell.Value = /16. DataGridView选择的部分拷贝至剪贴板拷贝模式设定DataGridView1.ClipboardCopyMode = DataGridViewClipboardCopyMode.EnableWithoutHeaderText选中部分拷贝Clipboard.SetDataObject(DataGridView1.GetClipboardContent()17.DataGridView粘贴If DataGridView1.CurrentCell Is Nothing Then ReturnEnd IfDim insertRowIndex As Integer = DataGridView1.CurrentCell.RowIndexDim pasteText As String = Clipboard.GetText()If String.IsNullOrEmpty(pasteText) Then ReturnEnd IfpasteText = pasteText.Replace(vbCrLf, vbLf)pasteText = pasteText.Replace(vbCr, vbLf)pasteText.TrimEnd(New Char() vbLf)Dim lines As String() = pasteText.Split(vbLf)Dim isHeader As Boolean = TrueFor Each line As String In lines If isHeader Then isHeader = False Else Dim vals As String() = line.Split(ControlChars.Tab) If vals.Length - 1 DataGridView1.ColumnCount Then Throw New ApplicationException(列数違。) End If Dim row As DataGridViewRow = DataGridView1.Rows(insertRowIndex) row.HeaderCell.Value = vals(0) Dim i As Integer For i = 0 To row.Cells.Count - 1 row.Cells(i).Value = vals(i + 1) Next i insertRowIndex += 1 End IfNext line18. DataGridView单元格上ToolTip表示设定(鼠标移动到相应单元格上时，弹出说明信息)DataGridView1(0, 0).ToolTipText = 変更DataGridView1.Columns(0).ToolTipText = 列数字入力DataGridView1.Rows(0).HeaderCell.ToolTipText = 行変更CellToolTipTextNeeded事件，在多个单元格使用相同的ToolTips的时候，可以用该事件，下例为显示当前单元格的行号和列号Private Sub DataGridView1_CellToolTipTextNeeded(ByVal sender As Object, _ ByVal e As DataGridViewCellToolTipTextNeededEventArgs) _ Handles DataGridView1.CellToolTipTextNeeded e.ToolTipText = e.ColumnIndex.ToString() + , + e.RowIndex.ToString()End Sub19. DataGridView中的ContextMenuStrip属性DataGridView1.ContextMenuStrip = Me.ContextMenuStrip1DataGridView1.Columns(0).ContextMenuStrip = Me.ContextMenuStrip2DataGridView1.Columns(0).HeaderCell.ContextMenuStrip = Me.ContextMenuStrip2DataGridView1.Rows(0).ContextMenuStrip = Me.ContextMenuStrip3DataGridView1(1, 0).ContextMenuStrip = Me.ContextMenuStrip4也可以用CellContextMenuStripNeeded、RowContextMenuStripNeeded属性进行定义Private Sub DataGridView1_CellContextMenuStripNeeded( _ ByVal sender As Object, _ ByVal e As DataGridViewCellContextMenuStripNeededEventArgs) _ Handles DataGridView1.CellContextMenuStripNeeded Dim dgv As DataGridView = CType(sender, DataGridView) If e.RowIndex 0 Then e.ContextMenuStrip = Me.ContextMenuStrip1 ElseIf e.ColumnIndex 0 Then e.ContextMenuStrip = Me.ContextMenuStrip2 ElseIf TypeOf (dgv(e.ColumnIndex, e.RowIndex).Valu