command1, command2, fpspread1 3개의 컨트롤 추가한후에 아래 소스 붙여넣는다.



Private Sub Command1_Click()
    fpSpread1.MaxRows = fpSpread1.MaxRows + 1
End Sub

Private Sub Command2_Click()
    Dim nSelRowCount As Long
    Dim nSelRowNum As Long
    
    If fpSpread1.MaxRows = 0 Then Exit Sub
    
    '선택한 행의 개수를 결정한다.
    nSelRowCount = fpSpread1.SelBlockRow2 - fpSpread1.SelBlockRow + 1
    '선택한 행번호들을 배열에 저장한다.
    nSelRowNum = fpSpread1.SelBlockRow

    For i = 1 To nSelRowCount
        fpSpread1.DeleteRows nSelRowNum, 1
        fpSpread1.MaxRows = fpSpread1.MaxRows - 1
    Next
End Sub

Private Sub Form_Load()
    fpSpread1.MaxRows = 0
End Sub
이 게시물을...