첫번째 컬럼에 체크박스들이 있다고 가정하고
첫번째 컬럼의 제목열을 클릭하면 전체선택/해제가 반전되도록한다.
' 첫번째 컬럼 제목열을 체크박스로 설정
fpSpread1.Col = 1
fpSpread1.Row = 0
fpSpread1.CellType = CellTypeCheckBox
fpSpread1.Text = 0
fpSpread1.TypeHAlign = TypeHAlignCenter
' 첫번째 컬럼의 행들이 체크박스가 되도록 설정
fpSpread1.Col = 1
fpSpread1.Row = -1
fpSpread1.CellType = CellTypeCheckBox
fpSpread1.TypeHAlign = TypeHAlignCenter
이렇게 설정해놓은후 스프레드 Click 이벤트에 다음 코드를 추가한다.
Private Sub fpSpread1_Click(ByVal Col As Long, ByVal Row As Long)
Dim i As Integer
Dim chk As String
If Col = 1 And Row = 0 Then
fpSpread1.Col = 1: fpSpread1.Row = 0
If fpSpread1.Text = "1" Then
chk = "0"
fpSpread1.SetText fpSpread1.ActiveCol, 0, 0
Else
chk = "1"
fpSpread1.SetText fpSpread1.ActiveCol, 0, 1
End If
For i = 1 To fpSpread1.MaxRows
fpSpread1.SetText fpSpread1.ActiveCol, i, chk
Next
End If
End Sub