Question

vb中怎么让image1到image5一张一张的依次出现在窗体上

Answer 1

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

Private Sub Timer1_Timer()
i = i + 1
Select Case i
Case 1
Image1.Visible = True
Case 2
Image2.Visible = True
Case 3
Image3.Visible = True
Case 4
Image4.Visible = True
Case 5
Image5.Visible = True
i = 0
Timer1.Enabled = False
End Select
End Sub