1. 如何檢查資料夾的所有 *.jpg / *.bmp
然後放入 Array.
Sub ShowPic(tt)
On Error GoTo err
Dim Filename As String
Dim arr(3)
arr(1) = "98105845_1.jpg"
arr(2) = "98105825_1.jpg"
arr(3) = "98105885_1.jpg"
Filename = App.Path & "\pictures\" & arr(tt)
If Filename = "" Or Dir(Filename) = "" Then
Else
MDIMain.Picture = LoadPicture()
MDIMain.Picture = LoadPicture(Filename, 2)
End If
Exit Sub
err:
MsgBox "Picture Error "
End Sub
2. 如何創造隨機出現的效果
然後放入 Array.
Sub ShowPic(tt)
On Error GoTo err
Dim Filename As String
Dim arr(3)
arr(1) = "98105845_1.jpg"
arr(2) = "98105825_1.jpg"
arr(3) = "98105885_1.jpg"
Filename = App.Path & "\pictures\" & arr(tt)
If Filename = "" Or Dir(Filename) = "" Then
Else
MDIMain.Picture = LoadPicture()
MDIMain.Picture = LoadPicture(Filename, 2)
End If
Exit Sub
err:
MsgBox "Picture Error "
End Sub
2. 如何創造隨機出現的效果
全站熱搜
留言列表