[原创]用Excel设计图片览预框

andysky

我的新书中第164个实例

lo450tZa.rar (1.12 MB, 下载次数: 96)

2008-1-25 10:30 上传

点击文件名下载附件
[原创]用Excel设计图片览预框

[此贴子已经被作者于2008-1-25 10:30:45编辑过]

andysky

Private Sub UserForm_Initialize()
    Dim jpg As String, s As String, n As Long, path As String
    On Error GoTo err
    Me.BackColor = &HFFC0C0
    Me.ListBox1.BackColor = &HFFFF80
    path = ThisWorkbook.path & "\图片\"
    s = Dir(path & "\*.jpg")
    While Len(s) > 0
    n = n + 1
    s = Dir()
    Wend
  '  Image1.Picture = LoadPicture(ThisWorkbook.path & "\" & "图片\1.jpg")
    jpg = Dir(ThisWorkbook.path & "\图片\*.jpg")
    ListBox1.AddItem "图片列表"
    For I = 1 To n
      ListBox1.AddItem jpg
     jpg = Dir
    Next I
    Exit Sub
err:
End Sub

LangQueS

andysky版1楼的附件打不开。

andysky

QUOTE:

以下是引用LangQueS 在2008-1-25 10:22:34的发言：

andysky版1楼的附件打不开。

好像用迅雷下才可以下载成功

LangQueS

用迅雷可以下载，谢谢andysky版。