'加上一个定时器Timer1和一个图片框Picture1,图片命名为: 0.jpg 1.jpg ... 6..jpg
Dim ii As Integer
Private Sub Form_Load()
Timer1.Interval = 100
Picture1.AutoSize = True
End Sub
Private Sub Timer1_Timer()
ii = (ii + 1) Mod 7
Picture1.Picture = LoadPicture(App.Path & "/" & CStr(ii) & ".jpg")
End Sub
汗..VB又不是只有代码就行的.
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024