标题:[求助] 关于MSFlexGrid控件的问题
只看楼主
a337928
Rank: 1
等 级:新手上路
帖 子:1
专家分:0
注 册:2006-11-16
 问题点数:0 回复次数:5 
[求助] 关于MSFlexGrid控件的问题

我想自己逐条的往这个控件里添加字段,可是我老是碰到下标越界的问题。有谁可以告诉我下 下标的定义和使用方法吗? 最好有个实例代码给我看下谢谢了

搜索更多相关主题的帖子: MSFlexGrid 控件 
2006-11-16 13:13
学习VB才2天
Rank: 5Rank: 5
等 级:贵宾
威 望:16
帖 子:1653
专家分:0
注 册:2006-5-4
得分:0 

下标 就是数组超出范围了....


[GLOW=255,DeepPink,3]我的免费网盘[/GLOW]
2006-11-16 16:28
purana
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:广东-广州
等 级:版主
威 望:66
帖 子:6039
专家分:0
注 册:2005-6-17
得分:0 
当然..你要确定它的Rows和Cols...否则..会下标越界..

我的msn: myfend@
2006-11-16 17:32
simpson
Rank: 3Rank: 3
等 级:论坛游民
威 望:7
帖 子:863
专家分:17
注 册:2006-11-16
得分:0 

Private Sub Form_Load()
Dim Titlestr1(), Titlestr2()
Titlestr1() = Array(" ", "0 ", "1 ", "2 ", "3 ", "4 ", "5 ", "6 ", "7 ", "8 ", "9 ",_
" A", " B", " C", " D", " E", " F")
Titlestr2() = Array(" ", "00 ", "01 ", "02 ", "03 ", "04 ", "05 ", "06 ", "07 ", "08 ",_
"09 ", "0A ", "0B ", "0C ", "0D ", "0E ", "0F ", "10 ", "11 ", "12 ", "13 ", "14 ", "15 ", "16 ")
MSFG1.Rows=24
MSFG1.Cols=17
MSFG1.Row = 0
For i = 0 To MSFG1.Rows - 1
MSFG1.Col = i
MSFG1.ColWidth(i) = 380
MSFG1.Text = Titlestr1(i)
Next i
MSFG1.Col = 0
For i = 0 To MSFG1.Rows - 1
MSFG1.Row = i
MSFG1.RowHeight(i) = 260
MSFG1.Text = Titlestr2(i)
Next i
End Sub


增加字段时若检测到下标溢出,需要增加行OR列时,可以用 MSFG1.Rows=MSFG1.Rows + 1, MSFG1.Cols=MSFG1.Cols + 1
来解决,


全国最大的 Java专业电子书免费分享[url]http:///in.asp?id=xrmao[/url]
2006-11-16 18:02
atomhdp
Rank: 1
等 级:新手上路
帖 子:97
专家分:0
注 册:2005-10-2
得分:0 
on error resume next

2006-11-17 14:09
purana
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:广东-广州
等 级:版主
威 望:66
帖 子:6039
专家分:0
注 册:2005-6-17
得分:0 
不建议用这个On Error Resume Next

我的msn: myfend@
2006-11-17 14:10



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-103354-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.214773 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved