Image1控件里的图片自动循环播放某一文件夹图片

dudley781

Image1控件里的图片怎么样实现自动循环播放某一文件夹图片

我D盘有几个图片分别1.jpg,2.jpg,3.jpg.........不超过10个
我想在EXCEL的Image1控件里每10秒切换一张图片，永远循环播放

蓝桥玄霜

建议上传Excel表格附件来说明问题。
没有表格附件的求助帖很少能获得满意的回复。

一把小刀闯天下

'窗体中加入1个image1控件

Option Explicit

Dim flag As Boolean

Private Sub UserForm_Activate()
  With Image1
    .Top = 1
    .Left = 1
    .AutoSize = True
  End With
  loadpic
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
  flag = True
End Sub

Function loadpic()
  Dim filename(), n
  If Not getfilename(filename, ThisWorkbook.Path, ".jpg") Then _
    MsgBox "当前目录未发现jpg文件！": Exit Function
  Do
    n = n + 1
    If n > UBound(filename) Then n = 1
    With Image1
      .Picture = loadpicture(filename(n))
      Width = .Width + 1
      Height = .Height + 1
    End With
    delay 1 '延时1s
    If flag Then Exit Function
  Loop
End Function

Function delay(dt)
  Dim t
  t = Timer
  Do
    If flag Then Exit Function
    DoEvents
  Loop Until Timer - t >= dt
End Function

Function getfilename(filename, pth, mark) As Boolean
  Dim f, n
  If Right(pth, 1) <> "\" Then pth = pth & "\"
  f = Dir(pth & "*.*")
  Do While Len(f) > 0
    If LCase(Right(f, Len(mark))) = LCase(mark) Then
      n = n + 1: ReDim Preserve filename(1 To n)
      filename(n) = pth & f
    End If
    f = Dir
  Loop
  If n > 0 Then getfilename = True
End Function

dudley781

由于今天上传不了RAR，所 以截了个图出来说明了下