1 Private Sub DataCopyToGrid() 2 '判断剪切板中是否存在内容 3 If Clipboard.ContainsText Then 4 Dim str = Clipboard.GetText() 5 Dim array = Strings.Split(str, vbCrLf) 6 Dim selerow As Integer = Me.Grid.CurrentCell.RowIndex 7 Dim selecom As Integer = Me.Grid.CurrentCell.ColumnIndex 8 9 If array IsNot Nothing And selerow >= 0 And selecom = 4 Then 10 Dim j = 0 11 For i = selerow To Me.Grid.Rows.Count - 1 12 If j > array.Length - 1 Then 13 Exit For 14 End If 15 16 If Me.Grid.Rows(i).Cells(selecom).ReadOnly = False Then 17 Me.Grid.Rows(i).Cells(selecom).Value = array(j) 18 j = j + 1 19 End If 20 Next 21 End If 22 End If 23 End Sub
在Keydown事件中捕获Ctrl+V按键(e.Control And e.KeyCode = Keys.V)