[リストへもどる]　　　[VBレスキュー(花ちゃん)]
一括表示
投稿時間：2007/01/08(Mon) 18:25
投稿者名：VB6愛用者
Ｅメール：
ＵＲＬ　：
タイトル：ダイアログの表示切替
初めての投稿になります。
よろしくお願いします。

私は、VB6.0を使っているのですが、Excelにデータをインポートする際、
OpenFileDialogのファイルを表示する部分の表示を、最初から指定したいのですが・・・

一覧 　　→　　 詳細
↑既定値　　　　↑表示したい方法

似たようなファイルばかりで、一番新しく更新したのをインポートする必要があるんです。
表示の切り替え方法を何か知っている人はいませんか？
よろしくお願いします。

投稿時間：2007/01/08(Mon) 23:15
投稿者名：花ちゃん
Ｅメール：
ＵＲＬ　：
タイトル：Re: ダイアログの表示切替
たしか、過去のログにあったはず。

投稿時間：2007/01/10(Wed) 16:56
投稿者名：VB6愛用者
Ｅメール：
ＵＲＬ　：
タイトル：Re^2: ダイアログの表示切替
> たしか、過去のログにあったはず。
過去のログが多すぎて探せないんですけど。
どうやったら効率よく探せますか？

投稿時間：2007/01/11(Thu) 09:14
投稿者名：花ちゃん
Ｅメール：
ＵＲＬ　：
タイトル：Re^3: ダイアログの表示切替
> > たしか、過去のログにあったはず。
> 過去のログが多すぎて探せないんですけど。
> どうやったら効率よく探せますか？

http://hanatyan.sakura.ne.jp/vbhlp/bbslog.htm

http://hanatyan.sakura.ne.jp/hazimeni.htm#google

http://tinyurl.com/yhxmzq

今の段階でこのような事を尋ねているようでは、初期の目的を達成する事は
相当困難(サブクラス化等の処理が必要)な事だと思うので他の方法を
考えられたらいかがですか？

ここのサンプル集の No.252 のように更新日順に並び変えて一覧を取得する等や
自分で作れないなら、No.278 No.415 を利用する等

投稿時間：2007/01/11(Thu) 16:48
投稿者名：VB6愛用者
Ｅメール：
ＵＲＬ　：
タイトル：Re^4: ダイアログの表示切替

> No.252 No.278 No.415

すべて「未掲載」と書かれていたのですが、
方法はわかりませんか？

投稿時間：2007/01/11(Thu) 20:28
投稿者名：花ちゃん
Ｅメール：
ＵＲＬ　：
タイトル：Re^5: ダイアログの表示切替
後はご自分で調べて下さい。

http://hanatyan.sakura.ne.jp/logbbs/wforum.cgi?mode=allread&no=3539&page=1200

http://hanatyan.sakura.ne.jp/logbbs/wforum.cgi?mode=allread&no=3408&page=1200

http://hanatyan.sakura.ne.jp/logbbs/wforum.cgi?mode=allread&no=2742&page=0

投稿時間：2007/01/13(Sat) 11:49
投稿者名：VB6愛用者
Ｅメール：
ＵＲＬ　：
タイトル：Re^6: ダイアログの表示切替
> 後はご自分で調べて下さい。
>
> http://hanatyan.sakura.ne.jp/logbbs/wforum.cgi?mode=allread&no=3539&page=1200
>
> http://hanatyan.sakura.ne.jp/logbbs/wforum.cgi?mode=allread&no=3408&page=1200
>
> http://hanatyan.sakura.ne.jp/logbbs/wforum.cgi?mode=allread&no=2742&page=0

わかりました。どうもありがとうございます。
これからもこのサイトを活用させていただきます。

投稿時間：2007/01/13(Sat) 18:36
投稿者名：スクリプトプログラマ
Ｅメール：
ＵＲＬ　：
タイトル：Re: ダイアログの表示切替
Excelなら、これが使えるのでは？

KB282087 -
[OFFXP] "開く" および "名前を付けて保存" ダイアログ ボックスのマイ プレース バーをカスタマイズする方法

StandardPlaces キーおよび UserDefinedPlaces キーに含まれるキーでは、以下の値を使用できます。

名前          種類        データ オプション
View          DWORD       {1=一覧、2=詳細、3=概要、4=プレビュー}

投稿時間：2007/01/23(Tue) 10:37
投稿者名：Edward
Ｅメール：
ＵＲＬ　：
タイトル：Re^2: ダイアログの表示切替
せっかく落ち着いた話を、ぶり返させて申し訳御座いません。
もっと、簡単な実現方法も有るようですが。
自分はSendMessageを使った方法で不明な点が有ったので。
何方か解る方、御指導下さい。
OpenDialogでもExplorerでも縮小版に設定出来ませんでした。
環境はWindows2000SP4 VisualBasic6SP5です。

viewICON = &H7029   '大きいアイコン
viewTILE = &H702A   '小さいアイコン(サイトによっては&H702Eと書かれている所も有る)
viewLIST = &H702B   '一覧
viewREPORT = &H702C '詳細
viewTHUMBNAIL = &H702D  '縮小版

Call SendMessage([OpenDialogまたはExplorerのウィンドウハンドル], WM_COMMAND, ByVal [上記の何れかの値], 0&)

投稿時間：2007/01/23(Tue) 11:24
投稿者名：Edward
Ｅメール：
ＵＲＬ　：
タイトル：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&)