| |
お世話になっております。
wtrです。
現在、私は以下のようなスクリプトにて
InputBoxでフィルタ入力(同時にフィルタバー表示)を行っているのですが
それについて、いくつか要望がありまして投稿させて頂きました。
'-- フィルタ入力.vbs (Ctrl+Shift+F に割り当て)
f = Trim(InputBox("フィルタを入力してください。", "フィルタ入力"))
If f <> "" Then
Open "*" & f & "*"
Config.FilterBar = True
If GetItemCount = 0 Then
Beep
MsgBox "フィルタに一致する項目が見つかりませんでした。" & vbCrLf & "フィル
タを解除します。", vbCritical
Open ""
Config.FilterBar = False
End If
Command "ファイル一覧にフォーカス"
Command "先頭にスクロール"
End If
'-- フィルタ解除.vbs (Esc に割り当て)
If Config.FilterBar Then
Open ""
Config.FilterBar = False
Beep
MsgBox "フィルタを解除しました。", vbInformation
Command "ファイル一覧にフォーカス"
Command "先頭にスクロール"
End If
■要望１
上記スクリプトでは、InputBox入力後にフィルタバーを表示させ
フィルタ解除でフィルタバーを非表示にさせているのですが
私としては、フィルタバーは常にアドレスバーの下に表示させたいのですが
表示のたびに、アドレスバーの右部に移動してしまいます。
前回非表示にしたバーの位置を記憶させるオプション等を追加することは可能でしょ
うか。
■要望２
上記スクリプトでは、別タブに切り替えた状態でフィルタを解除すると
元タブのフィルタ状態が維持されたまま、フィルタバーが非表示になってしまいます。
そこで、すべてのタブのフィルタを無条件に解除するメソッドかコマンドを追加する
ことは可能でしょうか。
■要望３
上記スクリプトでは、フィルタ後に一番上のファイル(フォルダ)を選択させています。
その為、未選択時にステータスバーに表示される「フィルタによる非表示○○個」が
見えなくなってしまいます。
そこで、選択中・未選択中にかかわらずステータスバーの右部に
上記メッセージを表示するオプションを追加することは可能でしょうか。
■要望４
これは、上記スクリプトとは直接関係ないのですが
やはり、フィルタバーとステータスバーだけではフィルタ中か否かが微妙に分かりづ
らい時がある為、
オプションの「色」設定に「フィルタ中のファイル」が設定出来ると便利かなと思い
ました。
(他の色設定との表示優先度が問題になるのかもしれませんが)
以上です。
長文になってしまい申し訳ありません。
ご検討のほど、よろしくお願い致します。
|
|