求助，下面的代码有什么问题。停在第二章图片就没变化了，就3张图。 - VB6论坛

编程论坛 → 开发语言 → 『 VB6论坛』 → 求助，下面的代码有什么问题。停在第二章图片就没变化了，就3张图。

标题：求助，下面的代码有什么问题。停在第二章图片就没变化了，就3张图。

只看楼主

fingermaster

等　级：新手上路
帖　子：3
专家分：0
注　册：2012-8-11
结帖率：0

楼主

问题点数：0 回复次数：3

求助，下面的代码有什么问题。停在第二章图片就没变化了，就3张图。

Private Sub Form_Click()

     P1(i).Visible = False
     i = i + 1
     P1(i).Visible = True

     If i = 3 Then
     i = 0
     End If


End Sub

Private Sub Form_Load()

Dim i As Integer
i = 0
P1(i).Visible = True

End Sub

搜索更多相关主题的帖子: False　图片　

2012-09-01 18:18

Artless

等　级：贵宾
威　望：103
帖　子：4211
专家分：28888
注　册：2009-4-8

第 2 楼

得分:0

停在第二章图片就没变化了?

无知

2012-09-02 11:11

lowxiong

等　级：贵宾
威　望：27
帖　子：652
专家分：3402
注　册：2008-5-7

第 3 楼

得分:0

dim i as integer  'i设为全程变量

Private Sub Form_Click()

     P1(i).Visible = False
     i = i + 1
     P1(i).Visible = True

     If i = 3 Then
     i = 0
     End If


End Sub

Private Sub Form_Load()

Dim i As Integer
i = 0
P1(i).Visible = True

End Sub

2012-09-03 07:26

tang688

等　级：贵宾
威　望：16
帖　子：1219
专家分：35
注　册：2004-12-25

第 4 楼

得分:0

3楼正解

2012-09-03 10:52

参与讨论请移步原网站贴子：https://bbs.bccn.net/thread-380498-1-1.html