请参考以下代码:
- Public Class Form1
- Private Sub FpSpread1_CellClick(sender As System.Object, e As FarPoint.Win.Spread.CellClickEventArgs) Handles FpSpread1.CellClick
- If e.ColumnHeader And e.Column = 0 Then
- FpSpread1.ActiveSheet.ColumnHeader.Cells(0, 0).Value = Not FpSpread1.ActiveSheet.ColumnHeader.Cells(0, 0).Value
- For index = 0 To FpSpread1.ActiveSheet.RowCount() - 1
- FpSpread1.ActiveSheet.Cells(index, 0).Value = FpSpread1.ActiveSheet.ColumnHeader.Cells(0, 0).Value
- Next
- End If
- End Sub
- Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
- FpSpread1.ActiveSheet.ColumnCount = 3
- FpSpread1.ActiveSheet.RowCount = 5
- FpSpread1.ActiveSheet.ColumnHeader.Cells(0, 0).CellType = New FarPoint.Win.Spread.CellType.CheckBoxCellType()
- FpSpread1.ActiveSheet.Columns(0).CellType = New FarPoint.Win.Spread.CellType.CheckBoxCellType()
- End Sub
- End Class
复制代码 |