Excel VBA質問箱 IV

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

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


45565 / 76732 ←次へ | 前へ→

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

引用なし
パスワード
   現在、ユ−ザ−フォムにて
下記のコ−ドで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

1 hits

【36160】画像表示について 頭が痛い 06/3/23(木) 11:48 質問
【36161】Re:画像表示について ぱっせんじゃー 06/3/23(木) 12:07 発言
【36162】Re:画像表示について ぱっせんじゃー 06/3/23(木) 12:09 発言
【36163】Re:画像表示について ぱっせんじゃー 06/3/23(木) 12:11 発言
【36164】Re:画像表示について ぱっせんじゃー 06/3/23(木) 12:14 発言
【36165】Re:画像表示について 頭が痛い 06/3/23(木) 12:39 発言
【36166】Re:画像表示について ぱっせんじゃー 06/3/23(木) 12:46 発言
【36170】Re:画像表示について Kein 06/3/23(木) 16:05 回答
【36206】Re:画像表示について 頭が痛い 06/3/24(金) 13:26 発言

45565 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free