我用如下代码操作MSHFlexGrid控件,但数据一多起来就不是很快了,请问有没有什么好方法解决这个问题,谢谢! With MSHFlexGrid1
For gLngB = 0 To UBound(gStrC)
If CInt(gStrC(gLngB)) >= gLngD Then '如果小于总列数就更改总列数
.Cols = (CInt(gStrC(gLngB)) + 1) '设置总列数
gLngD = (CInt(gStrC(gLngB)) + 1) '把总列数缓存到变量
End If
.Col = CInt(gStrC(gLngB)) '定位列
.Row = gLngA + 1 '定位行
.Text = gStrC(gLngB) '设置当前单元格的内容
.CellForeColor = vbWhite '设置当前单元格的前景色
.CellBackColor = vbBlack '设置当前单元格的背景色
.TextMatrix(gLngA + 1, 0) = CStr(gLngA + 1) '设置行标
Next gLngB
End With
For gLngB = 0 To UBound(gStrC)
If CInt(gStrC(gLngB)) >= gLngD Then '如果小于总列数就更改总列数
.Cols = (CInt(gStrC(gLngB)) + 1) '设置总列数
gLngD = (CInt(gStrC(gLngB)) + 1) '把总列数缓存到变量
End If
.Col = CInt(gStrC(gLngB)) '定位列
.Row = gLngA + 1 '定位行
.Text = gStrC(gLngB) '设置当前单元格的内容
.CellForeColor = vbWhite '设置当前单元格的前景色
.CellBackColor = vbBlack '设置当前单元格的背景色
.TextMatrix(gLngA + 1, 0) = CStr(gLngA + 1) '设置行标
Next gLngB
End With
解决方案 »
- 新手想问一下VB怎么实现文件上传,下载,删除等功能?(FTP)
- vb6.0中RichTextBox或TextBox的相关问题。
- 请教Len函数
- 如何用程序实现Excel表格按要求将其中的内容分类,保存到新的表中,并使每个新的分类均生成一个sheet保存?
- 如何用API以最快速度把数组里的RGB颜色值还原为图形并绘制到PictureBox上?
- 请教高手,如何获取操作系统的版本,谢谢!!!
- 用ADO访问遇到NULL值如何判断跳过
- 如何用VB将JPG或者HTM 文件设置为桌面壁纸????[分不多了,不敢一次放出,帮解决立刻给分]
- ... MSFlexGrid 问题!
- 小草在吗。我有事找你帮忙 先谢过了
- ImgScan控件有没有中文版的?几个配置选项都是英文的。
- 求教:如何建立以日期为名称的目录
换个其它方法邦定或者换DataGrid控件试一下。