VB 实时错误35600索引超出边界
Set ImageCombo1.ImageList = ImageList1
ImageCombo1.ComboItems.Add 1, "Signal1", "Traffic" ‘你可能没有添加选择项
ImageCombo1.ComboItems("Signal1").Image = 1
ImageCombo1.SelectedItem = ImageCombo1.ComboItems(1)
StatusBar控件提供窗体。StatusBar最多能被分成16个Panel对象,这些对象包含在Panels集合中。 该控件是ActiveX控件,在使用该控件前需要先将其添加到工具箱中。选择“工程/部件”命令,在“部件”对话框中选中Microsoft Windows Common Controls 6.0(SP6)项,即可添加一组控件到工具箱中。 4.1 在状态栏中显示日期、时间 将StatusBar控件添加到窗体上,用鼠标右键单击该控件,在弹出的快捷菜单中选择“属性”命令,即可弹出“属性页”对话框。选择“窗格”选项卡,默认会自动创建一个窗格,设置第1个窗格的“样式”为6-sbrDate,显示当前系统的日期。 单击“插入窗格”按钮,插入一个窗格,设置第2个窗格的“样式”为5-sbrTime,用于显示时间。
状态栏的作用与组成
StatusBar 控件由 Panel(窗格) 对象组成,最多能被分成 16 个 Panel 对象,每一个 Panel 对象能包含文本和/或图片。控制个别窗格的外观属性包括 Width、Alignment(文本和图片的)和 Bevel(斜面)。此外,能使用 Style 属性七个值中的一个自动地显示公共数据,诸如日期、时间和键盘状态等。
2. 创建状态栏
先在窗体上画出一个StatusBar对象,再右击该对象,从快捷菜单中选择“属性”,进入属性页设置窗口,进行下面的设置:
(1) 选择窗格形状
在属性窗口里选择通用标签,在样式列表框里选择多窗格(缺省形式)或单窗格简单文本形式。
(2) 添加或删除状态栏窗格
在属性窗口里选择窗格标签,单击插入窗格按钮添加一个窗格,或单击删除窗格按钮删除一个窗格。
(4) 在多窗格里显示文本或图形
1). 在属性窗口里选择窗格标签,用索引旁的按钮选择窗格序号。
2). 在文本框里输入想显示在状态栏窗格里的文本。用代码显示的方式是:
StatusBar1.Panels(x).Text = "要显示的内容"
3). 如果想加入图形,单击浏览按钮打开一个图形选择对话框,选择想加入的图形,然后单击打开按钮。
(5) 编写代码
如果是一个单窗格状态栏,当用户单击状态栏时,只需用下面的事件过程来响应:
Private Sub StatusBar1_Click()
End Sub
如果是一个多窗格状态栏,就需要鉴别用户单击的是哪一个窗格,可用下面的事件过程来识别用户所单击的窗格:
Private Sub StatusBar1_PanelClick(ByVal Panel As Panel)
Select Case Panel.Index
Case 1
Case 2
……
End Select
End Sub
Private Sub StatusBar1_PanelClick(ByVal Panel As MSComctlLib.Panel)
Select Case Panel.Index
Case 1
StatusBar1.Panels(1).Text = "1111111111"
Case 2
StatusBar1.Panels(2).Text = "22222222222"
Case 3
StatusBar1.Panels(3).Text = "333333333333"
End Select
End Sub
1,改用数据邦定就不会出现这种情况
2、自己添加一个指针,让记录数不会超过,自己维护指针和llistview的显示。另外把那么多的数据放到ListView里面,也没必要,并且效率也低(你能看到的只有几行呀)
笃窦康妇: Private Sub Form_Load() Dim a(5) As Long '定义能存储6个元素(0~6)的数组 a(5) = 1 a(6) = 2 '这里就是数组界限了 End Sub
湖南省13689908891: VB中索引超出边界是什么错 - ?
笃窦康妇: ListView1.ListItems.Clear 此时listview1没有任何listitems 调用一个不存在listitem( ListView1.ListItems(1))肯定出错 要添加后再用 dim newitem as listitem For i = 1 To row_ii set newitem=listview1.additem newitem.SubItems(1) = filereadold(i - 1).name 大概如此,那几句代码是随手写的,只是表示一下那个意思.
湖南省13689908891: vb 总是提示索引超出了数组界限 - ?
笃窦康妇: For i = 0 To 7If a(i) < a(i + 1) Thena(i) = a(i + 1)'定义时,数组下标最大为7,而这里,i=7时,a(i+1)就是a(8)了.不是吗?Elsea(i) = a(i)End IfNext i
湖南省13689908891: VB 阵列索引超出范围,怎解!!~ - ?
笃窦康妇: b = Split(a, " ")的时候,如果分组不够,后面就不产生了,访问b(5)就会失败,而不是内容为空 需要知道有没有b(5),要写成:elseif UBound(b)〉=5 then 另外是不是有b(7)也要判断if UBound(b)〉=7 否则访问b(7)也抱错
湖南省13689908891: VB中statusbar中超出索引边界是什么意思? - ?
笃窦康妇: 很明显,你引用了一个超出statusbar分割数的一个数字,就会引起索引超出了 比如statusbar你分割为4部分 但是你使用了第五个,就会出现问题 很明显,你引用了一个超出statusbar分割数的一个数字,就会引起索引超出了 比如statusbar你分割为4部分 但是你使用了第五个,就会出现问题
湖南省13689908891: [VB] listview 超出索引边界如何解决. - ?
笃窦康妇: ItemCount = Form1.ListView1.ListItems.Count For i = 0 To ItemCount CheckXitem(i) = Form1.ListView1.ListItems.Item(i).SubItems(2)'Form1.ListView1.ListItems.Item(i).SubItems(2) 是电话号码的存放处. if IsNumeric(Text2.Text) = False Then ...
湖南省13689908891: 我想知道我这段vb代码哪里错了,为什么一直提示索引超出了数组界限呢? - ?
笃窦康妇: 数组下标是从0开始的,也就是 c(0)~c(n-1) For i = 1 To n 当下标为c(n)的时候就越界了.改成 For i = 0 To n-1,然后后面的 i 值可能要相应调整为 i+1,怎么调还要看输出效果是否正确.
湖南省13689908891: vb.net数组问题.下面的程序运行错误,提示是索引超出数组界限,没搞明白?哪位高手指点下? - ?
笃窦康妇: 你对For Each的使用没有明确 你这里的意思是指,,i属于a数组,所以,i会是2,也会是4,也会是6,也会是8,也会是10,也会是12....如果 再用a(i)去 索引数组中的数据肯定会超出索引范围 你这个改,把 sum += a(i) 改成:sum += i 就可以了
湖南省13689908891: vb出现索引超出数组范围是什么情况??
笃窦康妇: 就是超过了你所定的那个数组数了,就有这个提示了你要是改成6可以就好了
湖南省13689908891: vb的程序升级到vb.net为什么会提示数组索引超出界限 - ?
笃窦康妇: 很可能是你的Vb程序中有Option Base语句. vb.net 的数组基数都是从0开始的,并且不支持 Option Base 语句.