ダイアログの表示の際に縮小版を表示するには？

苦労人 2005-06-02 03:07:34 No: 90202

下記の処理にてダイアログボックスを表示して画像を選択するプログラムを
作成しているのですが、指定した場所を開くことはできたのですが、
ファイルの種類がいつも一覧になっていて毎回縮小版にしなければなりません。
これをダイアログを開いたときに縮小版で表示することはできるのでしょうか？

ちなみに環境は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

はいこーん 2005-06-02 03:53:59 No: 90203

http://www.dotnet247.com/247reference/msgs/8/44788.aspx

クラゲ URL 2005-06-02 04:51:44 No: 90204

ごみプロです。

http://helloweb.ddo.jp/CabTemp/縮小表示コモンダイアログ.lzh

苦労人 2005-06-02 18:21:57 No: 90205

みなさんありがとうございます。

はいこーんさんのサイトを見たのですがちょっとどこを見たらいいのかわかりませんでした・・・

クラゲさんわざわざプログラムを作っていただいて恐縮です。
ダウンロードして実行してみたのですが通常のダイアログ表示でどうも
うまく縮小版になっていないようです。
どこか変更する必要があるのでしょうか？

m 2005-06-04 01:07:12 No: 90206

XPだけかも・・・

http://www.vbaccelerator.com/home/VB/Code/Libraries/Common_Dialogs/Common_Dialog_Direct/bugTrak1419-6.asp

クラゲ URL 2005-06-04 04:43:47 No: 90207

Win2000 (SP4), XP (SP2)では、
うまく表示されるみたいですね。
その他は、よくわかりません。
申し訳ない TT