|
現在、ユ−ザ−フォムにて
下記のコ−ドで4枚づつ画像を表示していますが
今後、フォルダ内の画像が増える為、現在のコ−ド
では表示しきれませんので、次・戻るの各コマンドボタン
を使用して4枚づつ画像を表示したいのですが、
御指導のほど、宜しくお願いします。
Private Sub CommandButton2_Click()
Dim i As Long
myDir = Application.GetOpenFilename("JPEG,*.jpg")
If VarType(myDir) = vbBoolean Then Exit Sub
myDir = Left$(myDir, Len(myDir) - Len(Dir(myDir)))
myFile = Dir(myDir & "*.jpg")
For i = 1 To 4
If Len(myFile) > 0 Then
Set Me("Image" & i).Picture _
= LoadPicture(myDir & myFile)
myFile = Dir()
Else
Set Me("Image" & i).Picture = Nothing
End If
Next
End Sub
|
|