vaSpread 控件问题

[ghostgu225]

在vaSpread控件上增加一checkbox列，有checkAll复选框，点击后所有复选框都钩上，如何实现？

[ghostgu225]

自己先顶一下

[tianhuo_soft]

vaSpread控件 没听说过 帮你顶

[fj182]

Private Sub Command1_Click()

' 增加一列
vaSpread1.MaxCols = vaSpread1.MaxCols + 1

' 设置列属性
vaSpread1.Col = vaSpread1.MaxCols
vaSpread1.Row = -1
vaSpread1.CellType = CellTypeCheckBox
vaSpread1.TypeCheckCenter = True

End Sub

Private Sub vaSpread1_ButtonClicked(ByVal Col As Long, ByVal Row As Long, ByVal ButtonDown As Integer)

Static b As Boolean

If Not b Then

b = True

vaSpread1.Col = Col
vaSpread1.Row = Row

If vaSpread1.CellType = CellTypeCheckBox Then
vaSpread1.SetText Col, -1, vaSpread1.Text
End If

b = False

End If

End Sub

[东方之珠]

帮你顶

[lwhmic]

我也想了解,但是你的这控件在何处下载的?可否传一份给我? [e-mail]

[guyehanxinlei]

UP