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. 如何創造隨機出現的效果
arrow
arrow
    全站熱搜

    vbqa 發表在 痞客邦 留言(2) 人氣()