SpreadForWin 复制粘贴,剪切行


    Private
 Sub btnCopy_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCopy.Click
        
Dim aCol As Integer, aRow As Integer

        aCol 
= ssList.ActiveSheet.ActiveColumnIndex
        aRow 
= ssList.ActiveSheet.ActiveRowIndex

        ssList.Focus()
        ssList.ActiveSheet.SetActiveCell(aRow, 
-1)

        SendKeys.Send(
"^c")

    
End Sub

    
Private Sub btnPaste_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPaste.Click
        
Dim aCol As Integer, aRow As Integer

        aCol 
= ssList.ActiveSheet.ActiveColumnIndex
        aRow 
= ssList.ActiveSheet.ActiveRowIndex

        ssList.Focus()
        ssList.ActiveSheet.SetActiveCell(aRow, 
-1)
        SendKeys.Send(
"^v")
    
End Sub

    
Private Sub btnCut_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCut.Click
        
Dim aCol As Integer, aRow As Integer

        aCol 
= ssList.ActiveSheet.ActiveColumnIndex
        aRow 
= ssList.ActiveSheet.ActiveRowIndex

        ssList.Focus()
        ssList.ActiveSheet.SetActiveCell(aRow, 
-1)

        SendKeys.Send(
"^x")
    
End Sub
    Private CopyRow As Integer
    
Private isCopyRange As Boolean

    
Private Sub btnCopy_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCopy.Click

        CopyRow 
= ssList.ActiveSheet.ActiveRowIndex
        isCopyRange 
= False
        
With ssList
            .ActiveSheet.ClipboardCopy()
        
End With

    
End Sub

    
Private Sub btnPatse_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPatse.Click
        
Dim aCol As Integer, aRow As Integer

        aCol 
= ssList.ActiveSheet.ActiveColumnIndex
        aRow 
= ssList.ActiveSheet.ActiveRowIndex

        
If isCopyRange Then
            ssList.ActiveSheet.CopyRange(CopyRow, 
0, aRow, aCol, 1, ssList.ActiveSheet.ColumnCount, True)
        
Else
            ssList.ActiveSheet.ClipboardPaste()
            isCopyRange 
= True
        
End If

    
End Sub

    
Private Sub btnCut_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCut.Click

        isCopyRange 
= False
        ssList.ActiveSheet.ClipboardCut()

    
End Sub