VB.NET:以DataGridView控件添加复制粘贴功能

VB.NET:以DataGridView控件添加复制粘贴功能

以DataGridView控件添加复制粘贴功能为例，实现对现有控件的功能扩展

一、引言

    我们在平时项目开发中经常会遇到这种情况，开发需要一些特定的功能控件，而现有的控件又只能满足部分的要求，这个时候一般采利用现有控件功能，对其进行扩展以满足项目需要。但如何在没有源码的情况下扩展控件功能，并且可以用和原来一致的方法调用扩展控件就需要一点技巧了。借助VS2005的强大功能和面向对象编程的继承思想可以很容易实现这个需求，而且具体实现过程就如同我们有这些控件的源码一样。

二、实例

    在大多数基于数据库应用的开发中DataGridView控件使用很多，DataGridView为微软自家产品，可以方便地绑定到数据库表以及泛型容器List，但其有个缺点就是不支持表格数据的粘贴功能，使得对数据进行批量修改很不方便。有人将ContextMenuStrip关联到DataGridView上，通过右键菜单实现了DataGridView的粘贴、复制等功能，但其有个缺点就是在需要这些扩展功能的地方要写大量相同的代码。如何采用更加优雅的方式实现这个功能，使右键菜单就像DataGridView原生的功能一样，首先想到的就是创建一个包含DataGridView的扩展控件，使之响应ContextMenuStrip定义的菜单命令，而我们只要从工具箱拖一个DataGridView控件到窗体，修改其类型为我们前面创建的自定义控件类型就能满足要求。

    由于代码以经包含在下文中，且本文的主要目以介绍方法为主，不再另附工程实例，见谅。   实例具体实现如下：

1，启动VB2005新建类库项目DataGridViewExt（C#等其它.NET语言实现方法一样，这里不另行介绍，见谅）。

[attach]691254[/attach]

2，添加组件类DataGridViewExt。

[attach]691255[/attach]

3，添加控件ContextMenuStrip，然后给ContextMenuStrip1添加两个子菜单menu_copy和menu_paste，并把相应的text属性设为复制和粘贴，使得右键菜单直观明了。

[attach]691256[/attach]

4，此时会发现VB2005提示有很多错误，这是因为工程缺少对System.Drawing引用，添加引用System.Drawing后错误消失

[attach]691257[/attach]

5，现在我们让DataGridViewExt从DataGridView继承下来，在DataGridViewExt.design.vb文件中将
       InheritsSystem.ComponentModel.Component
改为：
       InheritsSystem.ComponentModel.Component
并且在控件new()过程中添加

    Me.ContextMenuStrip = ContextMenuStrip1
    Me.ClipboardCopyMode = System.Windows.Forms.DataGridViewClipboardCopyMode.EnableWithAutoHeaderText


6，添加菜单menu_copy和menu_paste的单击事件处理；对复制功能我们可以直接调用系统的剪切板功能来实现，而对粘贴功能实现则要稍微麻烦一点，需要对各数据列的分割符进行判读处理。具体处理方式是先根据回车换行标志，将数据分割成若干行，再对每行的数据按Tab标记分割为若干列，这样就形成了一个二维的表格数据，从而可以支持复制到DataGridView控件。经过测试，以下介绍的分割方法能够支持从Excel，记事本等程序的数据与DataGridView相互复制粘贴。

    Private Sub menu_copy_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles menu_copy.Click
'清除剪切板原有内容，将表格数据复制到剪切板
    System.Windows.Forms.Clipboard.Clear()
    System.Windows.Forms.Clipboard.SetDataObject(Me.GetClipboardContent())
    End Sub

    Private Sub menu_paste_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles menu_paste.Click
        Dim i, j As Integer
        Dim pRow, pCol As Integer
        Dim selectedCellCount As Integer
        Dim startRow, startCol, endRow, endCol As Integer
        Dim pasteText, strline, strVal As String
        Dim strlines, vals As String()
        Dim pasteData(,) As String
        Dim flag As Boolean = False
        ' 当前单元格是否选择的判断
         If Me.CurrentCell Is Nothing Then
            Return
        End If
        Dim insertRowIndex As Integer = Me.CurrentCell.RowIndex
        ' 获取DataGridView选择区域，并计算要复制的行列开始、结束位置
        startRow = 9999
        startCol = 9999
        endRow = 0
        endCol = 0
        selectedCellCount = Me.GetCellCount(DataGridViewElementStates.Selected)
        For i = 0 To selectedCellCount - 1
            startRow = Math.Min(Me.SelectedCells(i).RowIndex, startRow)
            startCol = Math.Min(Me.SelectedCells(i).ColumnIndex, startCol)
            endRow = Math.Max(Me.SelectedCells(i).RowIndex, endRow)
            endCol = Math.Max(Me.SelectedCells(i).ColumnIndex, endCol)
        Next
        ' 获取剪切板的内容，并按行分割
         pasteText = Clipboard.GetText()
        If String.IsNullOrEmpty(pasteText) Then
            Return
        End If
        pasteText = pasteText.Replace(vbCrLf, vbLf)
        ReDim strlines(0)
        strlines = pasteText.Split(vbLf)
        pRow = strlines.Length        '行数
        pCol = 0
        For Each strline In strlines
            ReDim vals(0)
            vals = strline.Split(New Char() {vbTab, vbCr, vbNullChar, vbNullString}, 256, StringSplitOptions.RemoveEmptyEntries) ' 按Tab分割数据
            pCol = Math.Max(vals.Length, pCol) '列数
        Next
        ReDim pasteData(pRow, pCol)
        pasteText = Clipboard.GetText()
        pasteText = pasteText.Replace(vbCrLf, vbLf)
        ReDim strlines(0)
        strlines = pasteText.Split(vbLf)
        i = 1
        For Each strline In strlines
            j = 1
            ReDim vals(0)
            strline.TrimEnd(New Char() {vbLf})
            vals = strline.Split(New Char() {vbTab, vbCr, vbNullChar, vbNullString}, 256, StringSplitOptions.RemoveEmptyEntries)
            For Each strVal In vals
                pasteData(i, j) = strVal
                j = j + 1
            Next
            i = i + 1
        Next
        flag = False
        For j = 1 To pCol
            If pasteData(pRow, j) <> "" Then
                flag = True
                Exit For
            End If
        Next
        If flag = False Then
            pRow = Math.Max(pRow - 1, 0)
        End If

        For i = 1 To endRow - startRow + 1
            Dim row As DataGridViewRow = Me.Rows(i + startRow - 1)
            If i <= pRow Then
                For j = 1 To endCol - startCol + 1
                    If j <= pCol Then
                        row.Cells(j + startCol - 1).Value = pasteData(i, j)
                    Else
                        Exit For
                    End If
                Next
            Else
                Exit For
            End If
        Next
    End Sub


7，测试
    新建一个控件测试窗体工程，添加一个DataGridView控件，添加前面我们做的扩展控件DataGridViewExt的引用，并在Form1.Designer.vb文件中中将
        Friend WithEvents DataGridView1 As System.Windows.Forms.DataGridView
        Me.DataGridView1 = New System.Windows.Forms.DataGridView
分别改为：
        Friend WithEvents DataGridView1 As DataGridViewExt.DataGridViewExt
        Me.DataGridView1 = New DataGridViewExt.DataGridViewExt


       然后就可以从Excel,记事本等程序往DataGridView粘贴数据了，如下图所示

[attach]691258[/attach]

       从DataGridView往Excel,记事本比较简单不做示例了：）

 

三，小结

通过类似方法，我们可以将常用的控件根据需求进行组合扩展，丰富和加强控件的功能，减少系统大量的重复代码，使得实现更加灵活。


后记：
       本文修改完成之际又仔细一想，如果将扩展控件编译成类库使用会更方便，如本文介绍的扩展只要拖到窗体就可以像原生DataGridView一样使用，不用再去修改控件的类型和创建的代码