「フォルダの選択ダイアログを表示する」への評価、コメント

ShowNewFolderButtonプロパティをfalseにすると｢新しいフォルダの作成｣ボタンは表示されませんが
、ALT+Nで新しいフォルダが追加されてしまうのはバグなんでしょうか。

.NetFramework4.5.2+VS2017ですが。

ポイントは別スレッドの完了待ち（Await）する前にダイアログ表示することと、時間差（コンピュータの性能依存ですが、500ms以内に表示が完了すること想定してます「Sleep(500)」）でキー操作をすることで目的のフォルダに強制移動させていること。

読み解けるひとには難しくないコードではありますが、一応簡単に解説


ちゃんと読み解いてませんが、スタックオーバーフローのやつは、ツリーを読み解いて再選択してキー操作で移動しているだけに見えるので、もっと単純に別スレッドで無理やりキー操作してみました。

スタックオーバーフローのサンプルはメンドクサイことをしてる気がします。

以下はお馬鹿さんコードであることは理解してますが、お気楽実装できます。

Friend filepath as string = "c:\"
Friend filename as string = "aaa.txt"
Private Async Sub Button1_Click(sender As Object, e As RoutedEventArgs) Handles Button1.Click
Dim Task1 As Task = Task.Run(Sub()
'非同期処理
System.Threading.Thread.Sleep(500)
System.Windows.Forms.SendKeys.SendWait("{DOWN}{UP}")
End Sub)

Using dlg = New FolderBrowserDialog
'Dim a = DialogResult
dlg.SelectedPath = filepath
If dlg.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
filepath = dlg.SelectedPath.TrimEnd("\") & "\"
Else
MessageBox.Show("キャンセルしました")
End If
End Using
Await Task1

Me.TextBox1.Text = filepath & filename


End Sub

「Win32 APIのSHBrowseForFolderによる方法」のマイクロソフトへのページのリンクがなく、詳細が不明です。

評価：良い
判り易かった

評価：悪い
C++に関する記述がない

VB.netで初期フォルダを設定し、可視領域までスクロールする方法はあります。
もっとも、ツリービューをサブクラス化するなど、かなり下位レベルのコーディングが必要です。

> フォルダ選択の際、不具合があるみたいです。
> 選択できるけど、スクロールしないという問題です。

ご報告有り難うございます。SelectedPathに指定したフォルダがツリービューの下の方にある場合、ダイアログが表示された時、そこまでスクロールしてくれないことがあるみたいですね。C#での解決法が、以下のページにありました。

c# - Why FolderBrowserDialog dialog does not scroll to selected folder? - Stack Overflow
http://stackoverflow.com/questions/6942150/why-folderbrowserdialog-dialog-does-not-scroll-to-selected-folder

ここにあるコードは、フォルダ選択ダイアログのウィンドウタイトルが英語の「Browse For Folder」であると決めつけていますので、この部分を日本語の「フォルダーの参照」に変える必要がありそうです。

選択できるけど、スクロールしないという問題です。
↓

フォルダ選択の際、不具合があるみたいです。

https://connect.microsoft.com/VisualStudio/feedback/details/518103/bffm-setselection-does-not-work-with-shbrowseforfolder-on-windows-7

C++で申し訳ないですが、コールバック処理で以下の様にして対処しています。
※保証はできませんが…
static int CALLBACK SHBrowseForFolderCallbackProc(HWND hwnd, UINT uMsg, LPARAM lParam, LPARAM lpData)
{

if (uMsg == BFFM_INITIALIZED){
::SendMessage(hwnd, BFFM_SETSELECTION, (WPARAM)TRUE, lpData);
}else
if (uMsg == BFFM_SELCHANGED){
// 毎回、選択
::SendMessage(hwnd, BFFM_SETSELECTION, (WPARAM)TRUE, lpData);
LPARAM pos = (LPARAM)::SendMessage(hwnd, TVM_GETNEXTITEM, TVGN_CARET, 0);
::SendMessage(hwnd, TVM_ENSUREVISIBLE, 0, pos);
::Sleep(0);
}

return 0;
}

失礼しました。VB2010とかFrameWork4.0の問題ではないらしく、WindowsXPだとダイアログ画面のタイトルが「フォルダの参照」となりWindows7だと「フォルダーの参照」になるようです。処理上は関係ないことなのでどちらでも良いですが、記述の統一という点からはタイトルバーの表示内容が変更できないのは如何なものかと思うのですが･･･

vb2010＋FrameWork4.0で開発していますが、FolderBrowserDialogのタイトル部分が「フォルダの参照」ではなく「フォルダーの参照」になります。タイトル部分は変更できないみたいですね･･･。マニュアル作成時に他の説明部分は全て「フォルダ」なのにここだけ「フォルダー」って･･･表記統一できなくて困りますよね。

> Widnows7で実行しているとき、fbd.SelectedPath にユーザーフォルダ以下を指定してもうまく表示がされないのですが、これは回避できないのでしょうか…

試してみましたが、「マイミュージック」などのフォルダは問題なく表示されました。権限のないフォルダを指定した時は、無視されました。

評価：良い
簡潔で分かりやすいです。

ただ、Widnows7で実行しているとき、fbd.SelectedPath にユーザーフォルダ以下を指定してもうまく表示がされないのですが、これは回避できないのでしょうか…

評価：良い
欲しかった情報が見つかって良かったです。

評価：良い
助かりました！

SelectedPath で選択はできるのですが、スクロールしないので深い階層ですと探すの大変なんですがスクロールする方法はありませんか？

評価：良い
わかりやすいです。

評価：良い
よく使う参照ボタン。
とても役にたつ記事でした。

.NET 2.0でも FolderBrowserDialogクラスはこのページの説明にあるとおりに使えました。

評価：良い
VBを始めたばかりです。手軽に参照できるTipsはなかなか他にないので、とても重宝しています。

評価：良い
最初はクラスの作り方がわからなかったので、できなかったのですが
現在は、できるようになりました。

評価：良い
非常に助かりました
使用頻度高いダイアログなのに、なんで無いのでしょう…＞1.0

評価：良い
有料のソースコードをまず発見し，自分でしこしこと実装しなきゃいけないかと諦めていたときに，ここを発見！
非常に助かりました．

評価：良い
参考になりました

評価：良い
ヘルプ読むのが面倒だったので助かりました

評価：良い
何かと必要なので大変助かります。

>public string BrowseDialog(string description， Form owner)
>の間違いだと思います。

確認しました。ご報告ありがとうございました。

.NET Framework 1.0のサンプルの[C#]

で
public void BrowseDialog(string description， Form owner)
は
public string BrowseDialog(string description， Form owner)
の間違いだと思います。