求助!控件数组问题。。

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
...全文
58 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)中的更正类似,自己处理。
vf6.0,要考二级没系统的下哈 Microsoft Visual FoxPro 6.0 for Windows 的常见问题 这些是有关 Microsoft Visual FoxPro 最常见的问题。在您求助 Microsoft 产品支持服务之前,请先查阅这张列表。 若想打印这些附注,请从“文件”菜单中选择“打印”命令。此文档分为以下四部分: --------------------------------------------------------------------- 部分 1. 技术支持与市场 部分 2. Visual FoxPro 6.0 新增功能 部分 3. 从其他版本的 FoxPro 和 Visual FoxPro 中移植 部分 4. Visual FoxPro 常见问题 --------------------------------------------------------------------- 部分 1. 技术支持与市场 问题 1-1: 从何处可以获得产品的更新版本? 答案: 在 Visual FoxPro 的 Web 站点上即可获得产品的更新信息,其中包括有关 Service Pack 和更新的示例、向导及其他代码的信息,该站点的网址为: www.microsoft.com/vfoxpro 请定期查看该网站,以便下载产品的最新版本。 问题 1-2: 从何处可以得到有关 Visual FoxPro 的详细资料? 答案: 通过 Microsoft Visual FoxPro Web 站点是随时获得各种最新产品发布信息的最佳途径。在此站点上不仅有新的产品公告,而且还提供了产品的更新信息、技术文章、白皮书、专业开发人员设计的优秀示例、会议公告、以及与其他许多 FoxPro web 站点的各种链接。 问题 1-3: 如何获得技术支持,以及如何报告软件错误? 答案: Microsoft Visual FoxPro Web 站点已经链接到了多种联机支持选项,其中包括覆盖面广阔的有关所有产品 Microsoft Knowledge Base(Microsoft 知识库)。您还可以阅读一份有关常见问题的清单。除联机支持之外,还可以直接通过电话获得技术支持。“帮助”菜单中的选项可列出技术支持的电话号码。这些电话号码也可用于报告产品中的错误。 问题 1-4. 什么是 Knowledge Base?如何使用它? 答案: Knowledge Base 是内容广泛的论文集,覆盖了如何使用产品的各种特性、已知的软件错误及其解决方案或回避的方法、以及其他有助于使用各种 Microsoft 产品的有用信息。通过以下站点可访问整个 Knowledge Base: support.microsoft.com 问题 1-5: 是否会有 Visual FoxPro 6.0a? 答案: Microsoft 公司一向承诺为用户提供高质量的产品。如果确实需要,我们将提供 Visual FoxPro 6.0 的错误修订版。但是,修订版不会使用 6.0a 版的形式。Visual FoxPro 6.0 中任何错误的修正都将包含在 Visual Studio Service Pack 中。同时还会在 Visual FoxPro 的 www.microsoft.com/vfoxpro 或 Visual Studio 的www.microsoft.com/vstudio 的 Web 站点上发布修订公告。 问题 1-6: Microsoft 公司为应用程序的开发提供了一些优秀的解决方案。怎样才能知道应该向客户推荐和使用哪种产品? 答案: 在选择适用某项任务的产品时,需要考虑多方面的因素。Microsoft Visual FoxPro web 站点上有一份优秀的策略背景论文,它比较了 Visual FoxPro、Visual Basic、SQL Server 和 Access 等 Microsoft 产品之间的不同。 问题 1-7: 哪里可以找到 Visual FoxPro 的使用示例? 答案: Visual FoxPro 6.0 产品中带有丰富的示例,其中有一些是针对 6.0 版特有功能的新示例。与 Visual FoxPro 以前的版本不同,这些示例将与所有 Visual Studio 示例安装在一起。您必须运行 MSDN Library 的“自定义”安装来安装这些示例。在 Visual FoxPro 中可使用新的 HOME(2) 函数方便地找到已安装示例的位置。 除了产品中所自带的示例外,Microsoft Visual FoxPro web 站点还将经常提供新的示例。

7,785

社区成员

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

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