Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

45568 / 76735

←次へ　｜　前へ→


	【36160】画像表示について

頭が痛い - 06/3/23(木) 11:48 -


	引用なし

	パスワード

現在、ユ－ザ－フォムにて
下記のコ－ドで４枚づつ画像を表示していますが
今後、フォルダ内の画像が増える為、現在のコ－ド
では表示しきれませんので、次・戻るの各コマンドボタン
を使用して４枚づつ画像を表示したいのですが、
御指導のほど、宜しくお願いします。

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

0 hits

▼

【36160】画像表示について 頭が痛い 06/3/23(木) 11:48

≪