vaSpread 控件问题

ghostgu225 2007-10-17 01:59:33
在vaSpread控件上增加一checkbox列,有checkAll复选框,点击后所有复选框都钩上,如何实现?
...全文
270 6 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
6 条回复
切换为时间正序
请发表友善的回复…
发表回复
guyehanxinlei 2007-10-27
  • 打赏
  • 举报
回复
UP
lwhmic 2007-10-24
  • 打赏
  • 举报
回复
我也想了解,但是你的这控件在何处下载的?可否传一份给我? whlucky@21cn.com
东方之珠 2007-10-17
  • 打赏
  • 举报
回复
帮你顶
fj182 2007-10-17
  • 打赏
  • 举报
回复
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
tianhuo_soft 2007-10-17
  • 打赏
  • 举报
回复
vaSpread控件 没听说过 帮你顶
ghostgu225 2007-10-17
  • 打赏
  • 举报
回复
自己先顶一下

1,453

社区成员

发帖
与我相关
我的任务
社区描述
VB 控件
社区管理员
  • 控件
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧