投稿日 | : 2007/01/23(Tue) 11:24 |
投稿者 | : Edward |
Eメール | : |
URL | : |
タイトル | : Re^3: ダイアログの表示切替 |
危険を伴うかもしれないので、念の為に訂正しておきます。
直接、OpenDialogやExplorerのウィンドウハンドルにメッセージを送るのではなくて
OpenDialogやExplorerの子ウィンドウにですね。
viewICON = &H7029 '大きいアイコン
viewTILE = &H702A '小さいアイコン(サイトによっては&H702Eと書かれている所も有る)
viewLIST = &H702B '一覧
viewREPORT = &H702C '詳細
viewTHUMBNAIL = &H702D '縮小版
hwnd = FindWindowEx([OpenDialogやExplorerのウィンドウハンドル], 0, "SHELLDLL_DefView", vbNullChar)
Call SendMessage(hwnd, WM_COMMAND, ByVal [上記の何れかの値], ByVal 0&)