Example
The following example creates a form that lets users select columns or rows, and then copy, move, or swap the columns or rows within the sheet.
C++
void CTestprojDlg::OnButton1()
{
// Copy selected columns
m_Spread1.CopyColRange(m_Spread1.GetSelBlockCol(), m_Spread1.GetSelBlockCol2(), m_ColRowNum);
}
void CTestprojDlg::OnButton2()
{
// Move selected columns
m_Spread1.MoveColRange(m_Spread1.GetSelBlockCol(), m_Spread1.GetSelBlockCol2(), m_ColRowNum);
}
void CTestprojDlg::OnButton3()
{
// Swap selected columns
m_Spread1.SwapColRange(m_Spread1.GetSelBlockCol(), m_Spread1.GetSelBlockCol2(), m_ColRowNum);
}
void CTestprojDlg::OnButton4()
{
// Copy selected rows
m_Spread1.CopyRowRange(m_Spread1.GetSelBlockRow(), m_Spread1.GetSelBlockRow2(), m_ColRowNum);
}
void CTestprojDlg::OnButton5()
{
// Move selected rows
m_Spread1.MoveRowRange(m_Spread1.GetSelBlockRow(), m_Spread1.GetSelBlockRow2(), m_ColRowNum);
}
void CTestprojDlg::OnButton6()
{
// Swap selected rows
m_Spread1.SwapRowRange(m_Spread1.GetSelBlockRow(), m_Spread1.GetSelBlockRow2(), m_ColRowNum);
}
Visual Basic
Private Sub Command1_Click()
' Copy selected columns
fpSpread1.CopyColRange fpSpread1.SelBlockCol, fpSpread1.SelBlockCol2, Text1.Text
End Sub
Private Sub Command2_Click()
' Move selected columns
fpSpread1.MoveColRange fpSpread1.SelBlockCol, fpSpread1.SelBlockCol2, Text1.Text
End Sub
Private Sub Command3_Click()
' Swap selected columns
fpSpread1.SwapColRange fpSpread1.SelBlockCol, fpSpread1.SelBlockCol2, Text1.Text
End Sub
Private Sub Command4_Click()
' Copy selected rows
fpSpread1.CopyRowRange fpSpread1.SelBlockRow, fpSpread1.SelBlockRow2, Text1.Text
End Sub
Private Sub Command5_Click()
' Move selected rows
fpSpread1.MoveRowRange fpSpread1.SelBlockRow, fpSpread1.SelBlockRow2, Text1.Text
End Sub
Private Sub Command6_Click()
' Swap selected rows
fpSpread1.SwapRowRange fpSpread1.SelBlockRow, fpSpread1.SelBlockRow2, Text1.Text
End Sub
Private Sub Form_Load()
' Set up the copy, move, swap input
Label1.Caption = "Select the columns or rows to copy, move, or swap."
Label2.Caption = "Column or row at which to copy, move, or swap."
Text1.Text = ""
Command1.Caption = "Copy columns"
Command2.Caption = "Move columns"
Command3.Caption = "Swap columns"
Command4.Caption = "Copy rows"
Command5.Caption = "Move rows"
Command6.Caption = "Swap rows"
End Sub