Question

我怎么才能用timer控件 和picture box 做可以自动换图片的相册，谢谢 谢谢。

Answer 1

'添加一个FileListBox控件、一个Timer控件、一个PictureBox控件。
'基本原理：利用FileListBox列出的文件列表扫描、打开文件
Option Explicit
Dim mypath As String
Private Sub Form_Load()
mypath = "D:\我的照相机\101MSDCF\" '按实际相册目录地址填写！
File1.Path = mypath
File1.Visible = False
File1.ListIndex = 0
End Sub
Private Sub Form_Resize()
Picture1.Width = Form1.ScaleWidth
Picture1.Height = Form1.ScaleHeight
End Sub
Private Sub Timer1_Timer()
If File1.ListIndex = File1.ListCount - 1 Then File1.ListIndex = 0 Else _
File1.ListIndex = File1.ListIndex + 1
Picture1.Picture = LoadPicture(mypath & File1.List(File1.ListIndex))
End Sub