Question

VB如何使用Timer1计时来切换image1的图片?切换多张.求源代码!

Answer 1

Private Sub Form_Load() Timer1.Interval = 1000 '这里是换图的间隔 End Sub Private Sub Timer1_Timer() Static i As Integer i = i + 1 Image1.Picture = LoadPicture(App.Path & "\" & i & ".jpg") If i = 5 Then '有多少张就改多少 i = 0 End If End Sub 代码如上，注释也写了，还有不懂的再问我。 追问： 请问下定义 数组 是怎么定义的? 回答： 数组 一样的，只不过更简单化一点： dim a(1,2) as ingeter 这里面有六个数，即(0,0)、(0,1)、(0,2)、(1,0)、(1,1)、(1,2)。 当然你也可以这样定义： dim a(4) as ingeter 这里面有五个数，即0、1、2、3、4。 数组一般是从0开始的，如果你要从1开始的话，可以这样定义： dim a(1 to 5) as ingeter 这样就有1、2、3、4、5五个数。 追问： 谢了,方便留下你的QQ么?以后有不懂再请教你 回答： 可以，243303453