vb.NET粘贴到DGV

Question

我想将剪贴板中的数据粘贴到DGV中的选定单元格中。我找到了以下链接：https://www.codeproject.com/Articles/208281/Copy-Paste-in-Datagridview-Control但我对C＃没有任何线索所以我使用在线工具将代码转换为VB.net。复制和剪切部分正在运行，但我无法粘贴到DGV。代码如下所示：

 'paste data
Private Sub PasteToolStripMenuItem1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles PasteToolStripMenuItem1.Click
    PasteClipboardToDGV()
End Sub

Private Sub PasteClipboardToDGV()
    If DgvLeidingen.SelectedCells.Count = 0 Then
        MessageBox.Show("Please select a cell", "Paste", MessageBoxButtons.OK, MessageBoxIcon.Warning)

        Return
    End If

    Dim startCell As DataGridViewCell = GetStartCell(DgvLeidingen)
    Dim cbValue As Dictionary(Of Integer, Dictionary(Of Integer, String)) = ClipBoardValues(Clipboard.GetText())
    Dim iRowIndex As Integer = startCell.RowIndex

    For Each rowKey As Integer In cbValue.Keys

        Dim iColIndex As Integer = startCell.ColumnIndex

        For Each cellKey As Integer In cbValue(rowKey).Keys
            If iColIndex <= DgvLeidingen.Columns.Count - 1 AndAlso iRowIndex <= DgvLeidingen.Rows.Count - 1 Then
                Dim cell As DataGridViewCell = DgvLeidingen(iColIndex, iRowIndex)

            End If

            iColIndex = iColIndex + 1
        Next
        iRowIndex = iRowIndex + 1
    Next
End Sub

Private Function GetStartCell(ByVal DGV As DataGridView) As DataGridViewCell
    If DGV.SelectedCells.Count = 0 Then Return Nothing

    Dim rowIndex As Integer = DGV.Rows.Count - 1
    Dim colIndex As Integer = DGV.ColumnCount -1

    For Each dgvCell As DataGridViewCell In DGV.SelectedCells
        If dgvCell.RowIndex < rowIndex Then rowIndex = dgvCell.RowIndex
        If dgvCell.ColumnIndex < colIndex Then colIndex = dgvCell.ColumnIndex
    Next

    Return DGV(colIndex, rowIndex)

End Function

Private Function ClipBoardValues(ByVal clipboardValue As String) As Dictionary(Of Integer, Dictionary(Of Integer, String))

    Dim copyValues As Dictionary(Of Integer, Dictionary(Of Integer, String)) = New Dictionary(Of Integer, Dictionary(Of Integer, String))()
    Dim lines As String() = clipboardValue.Split(vbLf)

    For i As Integer = 0 To lines.Length - 1
        copyValues(i) = New Dictionary(Of Integer, String)()
        Dim lineContent As String() = lines(i).Split(vbTab)
        If lineContent.Length = 0 Then
            copyValues(i)(0) = String.Empty
        Else
            For j As Integer = 0 To lineContent.Length - 1


                copyValues(i)(j) = lineContent(j)
            Next
        End If
    Next

    Return copyValues

End Function