フォルダ選択ダイアログを表示する 【注意書き】●VB.NET を使っているものとします。●動作環境は、Windows XX を使用しているとします。.NET でも、フォルダ選択ダイアログを表示することが可能です。この機能を使えば、簡単に、フォルダを選択させるダイアログを表示させ、フォルダを指定させたり、ダイアログ表示中に、新しいフォルダを作成させたりするアプリケーションなど簡単に作成できます。フォームに次の様なコードを記述します-----------VB.NETコーディングここから-------------------１．フォームに、ボタンコントロール、 フォルダブラウザダイアログ、 を配置します。 下記は、デフォルトのオブジェクトの名前と配置を示しています。 ┏━━━━━━━┓┏━━━━━━━┓ ┃Button1 ┃┃Button2 ┃ ┗━━━━━━━┛┗━━━━━━━┛ -------------------------------------------- （フォーム外） ┏━━━━━━━━━━━┓ ┃FolderBrowserDialog1 ┃ ┗━━━━━━━━━━━┛２．ボタンコントロールの Button1 text プロパティに「表示１」と記述します。 Button2 text プロパティに「表示２」と記述します。 ※説明用のためです。必須ではありません。 ┏━━━━━━━┓┏━━━━━━━┓ ┃表示１ ┃┃表示２ ┃ ┗━━━━━━━┛┗━━━━━━━┛ -------------------------------------------- （フォーム外） ┏━━━━━━━━━━━┓ ┃FolderBrowserDialog1 ┃ ┗━━━━━━━━━━━┛３．ボタンコントロールをダブルクリックして、 コードの編集を開始して、 次のコードを記述します。 Private Sub Button1_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button1.Click Dim FolderBrowserDialog1 As New FolderBrowserDialog FolderBrowserDialog1.ShowDialog() End Sub Private Sub Button2_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button2.Click Dim FolderBrowserDialog1 As New FolderBrowserDialog '新しいフォルダを作成するボタンを非表示にしています FolderBrowserDialog1.ShowNewFolderButton = False FolderBrowserDialog1.ShowDialog() End Sub４．ビルドして実行します。５．「表示１」ボタンを押します。６．”新しいフォルダを作成する”ボタンを 表示して、フォルダ選択ダイアログが 表示される事を確認できます。７．「表示２」ボタンを押します。８．”新しいフォルダを作成する”ボタンを 表示しないで、フォルダ選択ダイアログが 表示される事を確認できます。-----------VB.NETコーディングここまで-------------------本サンプルでは、”新しいフォルダを作成する”ボタンを表示する場合と表示しない場合の２パターンのサンプルを体験できます。”新しいフォルダを作成する”ボタンは、規定になっている為、あえて明示的に指定しない場合は、”新しいフォルダを作成する”ボタンは表示されるようです。
Copyright(c)2001-2004 Ai Net Makoto 記事・情報の無断転載を禁止します。
