加一列 自己往Cell中贴Checkbox
解决方案 »
- 求助:vb书籍推荐
- 300分的问题分三个题目,一:如何在指定时间运行?
- 求随书代码:《Visual Basic 高级图形程序设计教程》
- 谁能帮我设计一个记事本里菜单的"自动换行"和"撤消"啊?
- 您好,我想问一下当向collection集合中追加元素时,出现关键字重复的错误我想对该错误理行外理应该怎么作呢,多谢您,在线等
- 关于网络数据的问题
- 谁知道outlook和友情强档左边的能拉上拉下的菜单怎么做的
- 求助:我想做一个局域网应用程序,但不知如何下手??
- 怎样设置DataReport的纸张大小?
- 文件咋个打不开哟???你们来看看。。。。。
- 谁可以得到1000分的加分机会?
- vb可以播放背景音乐吗?
怎么往CELL里贴checkbox?
能讲德彻底一点吗?明天我要交活了,麻烦你了,大哥!
大哥,我等你很久了,你说的我不太懂,能不能给我一个例子,我会个你再加100分的,我很急,明天要交上去试了,谢谢你!
Private Sub MSHFlexGrid1_Click()
Dim i As Integer If MSHFlexGrid1.CellBackColor = &HFFFFFF Then
For i = 0 To MSHFlexGrid1.Cols - 1
MSHFlexGrid1.Col = i
MSHFlexGrid1.CellBackColor = &HFF8080
Next i
Else
For i = 0 To MSHFlexGrid1.Cols - 1
MSHFlexGrid1.Col = i
MSHFlexGrid1.CellBackColor = &HFFFFFF
Next i
End If
End Sub
With MSHFlexGrid1
.TextMatrix(.Row, 4) = IIf(.TextMatrix(.Row, 4) = "", "£¥", "") '把网格内容换成勾,我没找到,你自己找找,在WORD里面
End With
End Sub
http://expert.csdn.net/Expert/TopicView3.asp?id=1370213