UC知道用VB时遇到的简单问题！
来源：百度知道 编辑：UC知道 时间：2024/06/14 10:35:22
做一个简单的图片播放器！
控件： 图片框数组 Index：0－3 分别装入了图片
计时器：Timer1 属性 2000
代码如下：是对着书上抄的！
Dim i As Integer, sg As Integer
Private Sub Form_Load()
Dim j As Integer
For j = 0 To 3
Picture1(j).Left = 0
Picture1(j).Top = 0
Picture1(j).Height = Picture1(0).Height
Picture1(j).Width = Picture1(0).Width
Next j
Picture1(1).Visible = False
Picture1(2).Visible = False
Picture1(3).Visible = False
Picture1(0).Visible = True
Timer1.Enabled = True
sg = 0
End Sub
Private Sub Timer1_Timer()
Randomize '初始化随机函数
Picture1(sg).Visible = False '让当前显示的图片不可见
i = Int(Rnd * 4) '产生下一幅要显示图片的下标值
Picture1(i).Visible = True
sg = i '保留下在显示图片的下标值
End Sub
可运行后就是光显示picture1(0)的图片，不会显示其它的！ 你们看看那里错了！给个解释，谢谢！
VB妮可 - 总监 八级 你说的很对！ 可我复制好后，一点击右键它都自动选中了第一个图片框，没办法！
你给我说说应该怎么办？？谢谢你
控件： 图片框数组 Index：0－3 分别装入了图片
计时器：Timer1 属性 2000
代码如下：是对着书上抄的！
Dim i As Integer, sg As Integer
Private Sub Form_Load()
Dim j As Integer
For j = 0 To 3
Picture1(j).Left = 0
Picture1(j).Top = 0
Picture1(j).Height = Picture1(0).Height
Picture1(j).Width = Picture1(0).Width
Next j
Picture1(1).Visible = False
Picture1(2).Visible = False
Picture1(3).Visible = False
Picture1(0).Visible = True
Timer1.Enabled = True
sg = 0
End Sub
Private Sub Timer1_Timer()
Randomize '初始化随机函数
Picture1(sg).Visible = False '让当前显示的图片不可见
i = Int(Rnd * 4) '产生下一幅要显示图片的下标值
Picture1(i).Visible = True
sg = i '保留下在显示图片的下标值
End Sub
可运行后就是光显示picture1(0)的图片，不会显示其它的！ 你们看看那里错了！给个解释，谢谢！
VB妮可 - 总监 八级 你说的很对！ 可我复制好后，一点击右键它都自动选中了第一个图片框，没办法！
你给我说说应该怎么办？？谢谢你
呵呵,没看清题目呵..
测试通过,唯一可能会发生问题的就是:
你要检查,你创建4个pic控件数组时,有没有将pic都放在了第1个PIC里面
因为VB中,PIC是可以当框架的.,如果你不小心是将比如pic(2)放在了pic(0)中,那么2就肯定不会显示了.因为隐藏pic(0)时,2也隐藏了.
picture1...这个是写入图片的.picture1(0)这是写入的图片数组里的第一张图片...