VB6.0用掲示板の過去のログ(No.2)−VBレスキュー(花ちゃん)
[記事リスト]
[新規投稿]
[新着記事]
[ワード検索]
[管理用]
| 投稿日 | ： 2007/06/11(Mon) 12:42 |
| 投稿者 | ： なべ |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： Re^2: 画像の自動読み込み |
>
> １．指定されたフォルダ内にある画像ファイルを列挙して変数に保持
> ↓
> ２．必要ならばファイルの番号順にソート
> ↓
> ３．ループさせて順番に画像を表示・処理
１と２はできたんですが、３．の"順番に画像を表示"する部分がどうにもできません。
今は左のカテゴリの中から指定フォルダの画像の名前を表示させるプログラムを改良しているところです。
Private Sub Command1_Click()
Dim strMyFile() As String
Dim strBMPFile As String
Dim intKen As Integer
Dim i As Integer
Dim kakutyousi As String
kakutyousi = "bmp"
'ディレクトリー内の全ファイル・フォルダを読み込む
strBMPFile = Dir$(File1.Path & "\", vbDirectory Or vbHidden Or vbSystem)
'strBMPFileが空になるまで繰り返し
Do While strBMPFile <> ""
'=====名前の表示=====
If StrComp(Right$(strBMPFile, 3), kakutyousi, 1) = 0 Then
intKen = intKen + 1
ReDim Preserve strMyFile(intKen)
'ファイル名を配列に格納
strMyFile(intKen) = strBMPFile
End If
strBMPFile = Dir$ '次のファイル名を読み込み
'====================
Loop
For i = 1 To intKen
Text1.Text = Text1.Text & strMyFile(i) & vbCrLf
この「名前の表示」の部分を画像表示にしたいのですが、どんな関数を使えばいいのでしょうか？
- 関連一覧ツリー
（★ をクリックするとツリー全体を一括表示します）
- 返信フォーム
（この記事に返信する場合は下記フォームから投稿して下さい）