求助!控件数组问题。。

zhi254898034 2008-03-30 01:34:54
兄弟姐妹们,帮我看看这个程序哪里出错啦!
Private Sub Command1_Click(Index As Integer)
Timer1.Enabled = True
Command1.Enabled = False
Command2.Enabled = True
End Sub

Private Sub Command2_Click(Index As Integer)
Timer1.Enabled = False
Command1.Enabled = True
Command2.Enabled = False
Command1.Enabled = True
Text1.Text = Label2.Caption + "" + Label3.Caption + "" + Label4.Caption + "" + Label5.Caption
End Sub

Private Sub Command3_Click(Index As Integer)
End
End Sub

Private Sub Form_Load()
Timer1.Interval = 100
End Sub

Private Sub Timer1_Timer()
Randomize
Label2.Caption = Fix(Rnd * 90) + 10
Label3.Caption = Fix(Rnd * 90) + 10
Label4.Caption = Fix(Rnd * 90) + 10
Label5.Caption = Fix(Rnd * 90) + 10
End Sub
...全文
57 6 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
6 条回复
切换为时间正序
请发表友善的回复…
发表回复
Aaron_MY 2008-03-30
  • 打赏
  • 举报
回复
你这个程序其实没有用到控件数组,只要把Index As Integer删掉就不会报错了
Private Sub Command1_Click()
Timer1.Enabled = True
Command1.Enabled = False
Command2.Enabled = True
End Sub

Private Sub Command2_Click()
Timer1.Enabled = False
Command1.Enabled = True
Command2.Enabled = False
Command1.Enabled = True
Text1.Text = Label2.Caption + "" + Label3.Caption + "" + Label4.Caption + "" + Label5.Caption
End Sub

Private Sub Command3_Click()
End
End Sub

Private Sub Form_Load()
Timer1.Interval = 100
End Sub

Private Sub Timer1_Timer()
Randomize
Label2.Caption = Fix(Rnd * 90) + 10
Label3.Caption = Fix(Rnd * 90) + 10
Label4.Caption = Fix(Rnd * 90) + 10
Label5.Caption = Fix(Rnd * 90) + 10
End Sub

这样就没有错了。
cbm6666 2008-03-30
  • 打赏
  • 举报
回复
呵呵, 看得出来, 不过没关系,两年多以前我也与你现在一样.

把代码发给我看看吧,我帮你改 samliu0812@126.com
zhi254898034 2008-03-30
  • 打赏
  • 举报
回复
不好意思啊,我是才学。不太会用啊!
MatrixKnight 2008-03-30
  • 打赏
  • 举报
回复
具体报什么错?
我看代码里好像根本就没用到控件数组,除了函数调用时参数用了数组索引.
cbm6666 2008-03-30
  • 打赏
  • 举报
回复
可能是 Command1(0) 楼主不会加 Command1(1) Command1(2) 不然怎么冒出一个Command2又是数组.

还有Label为何又不用 Label1(0) Label1(1).......

是否楼主不会使用 ? 是的话我再帮你改代码
舉杯邀明月 2008-03-30
  • 打赏
  • 举报
回复
Private Sub Command1_Click(Index As Integer)
Timer1.Enabled = True
Command1.Enabled = False
Command2.Enabled = True
End Sub

改成:
Private Sub Command1_Click(Index As Integer)
Timer1.Enabled = True
Command1(Index).Enabled = False
Command2(Index).Enabled = True
End Sub

  要注意一下:你的控件数组Command1和Command2的成员个数是不是一样多的。不一样的话,你要注意处理“下标越界”的问题。


  Command2_Click(Index As Integer)中的更正类似,自己处理。

7,785

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧