VB6.0下标越界怎么办

s1041518061 发布于 2016-10-30 12:39， 1066 次点击

代码：
Private Sub Form_Load()
DataGrid1.Columns(0).Width = 500
DataGrid1.Columns(1).Width = 500
DataGrid1.Columns(2).Width = 500
DataGrid1.Columns(3).Width = 500
End Sub

4 回复

s10415180612016-10-30 12:40

顶！！！！！！！！！！！！！！！！！！！！！！！！

xss_wl2016-10-30 15:26

能不能把图也截上来？

ZHRXJR2016-10-30 16:05

仅仅这几个代码，不清楚你的界面是不是有4个 DataGrid1 数组控件(0-3)，因此不好回答。

xzlxzlxzl2016-10-30 21:11

不知道有没有DataGrid1.Columns.Count属性，有的话可以直接如下：
for i=0 to DataGrid1.Columns.Count-1
DataGrid1.Columns(i).Width = 500
next

这样就不会溢出了。