ダイアログの表示の際に縮小版を表示するには？ (ID:90202)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 下記の処理にてダイアログボックスを表示して画像を選択するプログラムを 作成しているのですが、指定した場所を開くことはできたのですが、 ファイルの種類がいつも一覧になっていて毎回縮小版にしなければなりません。 これをダイアログを開いたときに縮小版で表示することはできるのでしょうか？ ちなみに環境はWindows2000でVB6.0SP6です。 よろしくお願いします。 Const OFN_EXPLORER = &H80000 Const OFN_FILEMUSTEXIST = &H1000 Const OFN_PATHMUSTEXIST = &H800 Const OFN_HIDEREADONLY = &H4 Const OFN_DONTADDTORECENT = &H2000000 Const MAX_PATH = 260 Dim gsInitDir, giFilterIndex Private Function getFileName(sPath, sTitle) Dim cDlg As Object Set cDlg = Me.CommonDialog1 cDlg.InitDir = gsInitDir cDlg.FilterIndex = giFilterIndex cDlg.Filter = "All files (*.*)" cDlg.DialogTitle = sTitle cDlg.Flags = OFN_EXPLORER Or OFN_FILEMUSTEXIST Or _ OFN_PATHMUSTEXIST Or OFN_HIDEREADONLY Or OFN_DONTADDTORECENT cDlg.MaxFileSize = MAX_PATH cDlg.ShowOpen gsInitDir = cDlg.InitDir giFilterIndex = cDlg.FilterIndex getFileName = cDlg.FileName End Function