VB6.0急求

发布网友发布时间：2024-09-29 11:22

我来回答

共2个回答

热心网友时间：2024-11-10 02:33

将该语句注释掉，从VB出错界面给出的文字中说：

属性数组索引无效（错误 381）

正在使用一个不适当的属性数组索引值。此错误产生的原因及解决方法如下：

试图为属性数组索引设置一个超出允许范围的值。把属性数组的索引值改为一个有效的设置值。例如，对 ListBox
而言，List 属性的索引值必须在 0 到 32,766 之间。

其所说属性与使用属性不一致。

测试代码，除此句需注释外，另有一处漏了End Sub句。

Private Sub Form_Activate()
     Dim i As Integer
     Option1(0).Value = True
     Combo1.Text = Year(Now())
     Combo2.Text = Month(Now())
     Combo3.Text = Day(Now())
     For i = 1900 To Combo1.Text
         Combo1.AddItem i
     Next i
     For i = 1 To 12
         Combo2.AddItem i
     Next i
     For i = 1 To 31
         Combo3.AddItem i
     Next i
    Check1.Value = 0
    Rem 默认学历为中专
    'List1.Selected(0) = True
    HScroll1.Value = 0
    Rem 工作年份的上限为30年
    HScroll1.Max = 30
    Text1.Text = 0
    Text2.Text = ""
    Rem 联系电话输入最长为11位数字
    Text2.MaxLength = 11
    End Sub

Private Sub Command1_Click()
    Dim psw As String
    psw = InputBox("请输入密码（注意大小写）", "密码")
    If psw <> Form1.Text2.Text Then
          Frame1.Enabled = False
          Timer1.Enabled = True
          MsgBox "密码不正确，5秒后自动退出程序！"
    Else
      Form2.Hide
      Form3.Show
      Form3.Caption = Form1.Text & "的个人信息概况"
      Form3.Text1.Text = IIf(Option1.Value = True, "男", "女")
      Rem 出生日期
      Form3.Text2.Text = Combo1.Text & "年" & Combo2.Text & "月" & Combo3.Text & "日"
      Rem 婚否
      Form3.Text3.Text = IIf(Check1.Value = 1, "已婚", "未婚")
      Rem 学历
      Form3.Text4.Text = List1.List(List1.ListIndex)
      Form3.Text5.Text = Form2.Text1.Text  '工作年份
      Form3.Text6.Text = Form2.Text2.Text   '联系电话
    End If
    Rem 联系电话输入最长为11位数字
End Sub

Private Sub Text2_keypress(KeyAscii As Integer)
   If KeyAscii < Asc("0") Or KeyAscii > Asc("9") Then
      MsgBox "非法数据，请输入数字！"
      KeyAscii = 0
   End If
End Sub

Private Sub HScroll1_Change()
    Text1.Text = HScroll1.Value
End Sub

热心网友时间：2024-11-10 02:33

这个属性List1.Selected(0)不能被赋值。

在
List1.Selected(0) = True
前添加
List1.AddItem "中专", 0
或
list1.list(0)="中专"

因为列表框是空的，没有内容，你要选择第一项就会出错。