用MR实现Excel功能

因为原有的Paste不能实现我所要得功能，所以自定义了一个。
我还想要追加多行的粘贴，该怎么办
比如
复制了三行DATA，在粘贴时，我选择的行数是三的倍数时，DATA会被复制三遍，可以实现吗

改正：我选择的行数是三的三倍时，DATA会被复制三遍

不好意思 MultiRow 控件没有这个功能。

我知道会比较麻烦，你们最近也很忙，
有时间可以帮我看看吗，日语版的帮助给出了下面的方法，
可是会出现错误，怎样改正呀
Public Sub Execute(ByVal target As GrapeCity.Win.MultiRow.GcMultiRow) Implements GrapeCity.Win.MultiRow.IAction.Execute
        Dim temp As String = Clipboard.GetText()
        ' 取得DATA貼り付け
        If Not String.IsNullOrEmpty(temp) Then
            ' 取得したデータの配列変数への設定
            Dim rows As String() = temp.Split(CChar(vbCrLf))
            Dim rCount As Integer = rows.Length
            Dim cCount As Integer = rows(0).Split(CChar(vbTab)).Length
            Dim data As String()() = New String(rCount - 1)() {}
            For i As Integer = 0 To rCount - 1
                data(i) = rows(i).Split(CChar(vbTab))
            Next
            ' 選択領域がCopy元領域の整数倍的判別
            Dim row1 As Integer = target.SelectedCells.Min(Function(c) c.RowIndex)
            Dim row2 As Integer = target.SelectedCells.Max(Function(c) c.RowIndex)
            Dim col1 As Integer = target.SelectedCells.Min(Function(c) c.CellIndex)
            Dim col2 As Integer = target.SelectedCells.Max(Function(c) c.CellIndex)
            Dim isRowMatch As Boolean = (row2 - row1 + 1) Mod rCount = 0
            Dim isColMatch As Boolean = (col2 - col1 + 1) Mod cCount = 0
            If isRowMatch And isColMatch Then
                ' 整数倍になっている場合：ブロック単位の複数回コピーの実行
                For i As Integer = row1 To row2
                    For j As Integer = col1 To col2
                        target.SetValue(i, j, data((i - row1) Mod rCount)((j - col1) Mod cCount))
                    Next
                Next
            Else
                ' 整数倍になっていない場合：通常のペースト操作の実行
                EditingActions.Paste.Execute(target)

            End If
        End If
    End Sub

问题解决了

出现了什么错误，我试验了下这个代码貌似没有问题。你发的代码是通过自定义Action来解决这个问题。以下是完整的代码，希望对你有所帮助。

2. Imports GrapeCity.Win.MultiRow
3. Public Class Form1
5.     Private Sub Form1_Load(sender As Object, e As System.EventArgs) Handles Me.Load
6.         Me.GcMultiRow1.Template = Template.CreateGridTemplate(10)
7.         Me.GcMultiRow1.RowCount = 10
8.         Me.GcMultiRow1.ShortcutKeyManager.Unregister(Keys.V Or Keys.Control)
9.         Me.GcMultiRow1.ShortcutKeyManager.Register(New MyAction(), Keys.V Or Keys.Control)
10.     End Sub
11. End Class
13. Public Class MyAction
14.     Implements IAction
16.     Public Function CanExecute(target As GrapeCity.Win.MultiRow.GcMultiRow) As Boolean Implements GrapeCity.Win.MultiRow.IAction.CanExecute
17.         Return EditingActions.Paste.CanExecute(target)
18.     End Function
20.     Public ReadOnly Property DisplayName As String Implements GrapeCity.Win.MultiRow.IAction.DisplayName
21.         Get
22.             Return "CustomPaste"
23.         End Get
24.     End Property
26.     Public Sub Execute(target As GrapeCity.Win.MultiRow.GcMultiRow) Implements GrapeCity.Win.MultiRow.IAction.Execute
27.         Dim temp As String = Clipboard.GetText()
28.         ' 取得DATA貼り付け
29.         If Not String.IsNullOrEmpty(temp) Then
30.             ' 取得したデータの配列変数への設定
31.             Dim rows As String() = temp.Split(CChar(vbCrLf))
32.             Dim rCount As Integer = rows.Length
33.             Dim cCount As Integer = rows(0).Split(CChar(vbTab)).Length
34.             Dim data As String()() = New String(rCount - 1)() {}
35.             For i As Integer = 0 To rCount - 1
36.                 data(i) = rows(i).Split(CChar(vbTab))
37.             Next
38.             ' 選択領域がCopy元領域の整数倍的判別
39.             Dim row1 As Integer = target.SelectedCells.Min(Function(c) c.RowIndex)
40.             Dim row2 As Integer = target.SelectedCells.Max(Function(c) c.RowIndex)
41.             Dim col1 As Integer = target.SelectedCells.Min(Function(c) c.CellIndex)
42.             Dim col2 As Integer = target.SelectedCells.Max(Function(c) c.CellIndex)
43.             Dim isRowMatch As Boolean = (row2 - row1 + 1) Mod rCount = 0
44.             Dim isColMatch As Boolean = (col2 - col1 + 1) Mod cCount = 0
45.             If isRowMatch And isColMatch Then
46.                 ' 整数倍になっている場合：ブロック単位の複数回コピーの実行
47.                 For i As Integer = row1 To row2
48.                     For j As Integer = col1 To col2
49.                         target.SetValue(i, j, data((i - row1) Mod rCount)((j - col1) Mod cCount))
50.                     Next
51.                 Next
52.             Else
53.                 ' 整数倍になっていない場合：通常のペースト操作の実行
54.                 EditingActions.Paste.Execute(target)
56.             End If
57.         End If
58.     End Sub
59. End Class

复制代码

代码没有问题，不过
Dim row1 As Integer = target.SelectedCells.Min(Function(c) c.RowIndex)
好像是NET Framework 3.5以降才有的Linq机能，所以我的用不了
:~

顺便问一下，我想把这个自定义Action追加到ContextMenu的粘贴里可以吗
也就是说按下ContextMenu的粘贴时
不用既定的Paste用自定义Action
可以吗

可以。在ContextMenu的Item_Click里调用new MyAction().Execute(Me.GcMultiRow1) 就可以了。

谢谢，
可是怎么调用，可以写一下