Question

急求vb中怎样使三个图片来回的变换 有timer的那种 要有具体的程序啊！！

Answer 1

Private Sub Timer1_Timer()
Static n As Integer
Dim a(0 To 2) As String
a(0) = "1.jpg"
a(1) = "2.jpg"
a(2) = "3.jpg"
n = n + 1
Picture1.Picture = LoadPicture(a(n Mod 3))
Picture2.Picture = LoadPicture(a((n + 1) Mod 3))
Picture3.Picture = LoadPicture(a((n + 2) Mod 3))
End Sub

Answer 2

Dim i As Long
Private Sub Form_Load()
Timer1.Interval = 1000
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
i = i + 1
Picture1.Picture = LoadPicture("d:\" + Trim(Str(i Mod 3)) + ".bmp")
End Sub

'再d盘下要有三个图片，名称分别为0,1,2图片的扩展名为.bmp

Answer 3

'form1窗体中放置四个picturebox控件，一个timer控件
Option ExplicitDim t As Long
Private Sub Form_Load()
Picture1.BackColor = vbRed
Picture2.BackColor = vbGreen
Picture3.BackColor = vbBlack
Timer1.Interval = 500
Timer1.Enabled = True
t = 0
End Sub

Private Sub Timer1_Timer()
If t = 0 Then
Picture4.PaintPicture Picture1.Image, 0, 0‘如果Picture1中有图片，可用Picture1.Picture
ElseIf t = 1 Then
Picture4.PaintPicture Picture2.Image, 0, 0
ElseIf t = 2 Then
Picture4.PaintPicture Picture3.Image, 0, 0
End If
t = (t + 1) Mod 3
End Sub

追问

我试了 图片不转换呢 是怎么回事儿呢啊？？

追答

如果Picture1中有图片，可用Picture1.Picture
如果Picture2中有图片，可用Picture2.Picture
如果Picture3中有图片，可用Picture3.Picture

追问

恩恩？ 不过这样
Private Sub Timer2_Timer()
Dim i As Integer
For i = 1 To 100
If i Mod 3 = 1 Then
Image8.Picture = Image5.Picture
ElseIf i Mod 3 = 2 Then
Image8.Picture = Image6.Picture
Else
Image8.Picture = Image7.Picture
End If
Next i
End Sub
这样不行吗 ？？

追答

FOR 循环执行太快，且内部没有变换控制权，你无法看清变化，即使加入了控制权代码，执行还是太快，且执行完FOR就不会再一次循环了。
还是timer控件好用。

追问

你的程序我也试了 也木有变化的啊 愁死我了都

追答

'form1窗体中放置四个picturebox控件，一个timer控件
Option Explicit
Dim t As Long
Private Sub Form_Load()
    Picture1.BackColor = vbRed
    Picture2.BackColor = vbGreen
    Picture3.BackColor = vbBlack
    Timer1.Interval = 500
    Timer1.Enabled = True
    t = 0
End Sub

 
Private Sub Timer1_Timer()
    If t = 0 Then
        Picture4.PaintPicture Picture1.Image, 0, 0 '如果Picture1中有图片，可用Picture1.Picture
    ElseIf t = 1 Then
        Picture4.PaintPicture Picture2.Image, 0, 0
    ElseIf t = 2 Then
        Picture4.PaintPicture Picture3.Image, 0, 0
    End If
    t = (t + 1) Mod 3
End Sub

这个代码，我运行过了好的：