フォルダ選択ダイアログを表示する

.NET (VB)の内容
【注意書き】
●VB.NET を使っているものとします。
●動作環境は、Windows XX を使用しているとします。


.NET でも、フォルダ選択ダイアログを表示することが可能です。

この機能を使えば、簡単に、
フォルダを選択させるダイアログを表示させ、
フォルダを指定させたり、
ダイアログ表示中に、新しいフォルダを作成させたりする
アプリケーションなど簡単に作成できます。


フォームに次の様なコードを記述します


-----------VB.NETコーディングここから-------------------


1.フォームに、ボタンコントロール、
    フォルダブラウザダイアログ、
    を配置します。
    下記は、デフォルトのオブジェクトの名前と配置を示しています。

   ┏━━━━━━━┓┏━━━━━━━┓
   ┃Button1       ┃┃Button2       ┃
   ┗━━━━━━━┛┗━━━━━━━┛
 --------------------------------------------
    (フォーム外)
   ┏━━━━━━━━━━━┓
   ┃FolderBrowserDialog1  ┃
   ┗━━━━━━━━━━━┛



2.ボタンコントロールの
    Button1 text プロパティに「表示1」と記述します。
    Button2 text プロパティに「表示2」と記述します。

  ※説明用のためです。必須ではありません。

   ┏━━━━━━━┓┏━━━━━━━┓
   ┃表示1        ┃┃表示2        ┃
   ┗━━━━━━━┛┗━━━━━━━┛
 --------------------------------------------
    (フォーム外)
   ┏━━━━━━━━━━━┓
   ┃FolderBrowserDialog1  ┃
   ┗━━━━━━━━━━━┛


3.ボタンコントロールをダブルクリックして、
    コードの編集を開始して、
  次のコードを記述します。



    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



4.ビルドして実行します。


5.「表示1」ボタンを押します。


6.”新しいフォルダを作成する”ボタンを
  表示して、フォルダ選択ダイアログが
    表示される事を確認できます。


7.「表示2」ボタンを押します。


8.”新しいフォルダを作成する”ボタンを
  表示しないで、フォルダ選択ダイアログが
    表示される事を確認できます。


-----------VB.NETコーディングここまで-------------------

本サンプルでは、
”新しいフォルダを作成する”ボタンを表示する場合と
表示しない場合の2パターンのサンプルを体験できます。


”新しいフォルダを作成する”ボタンは、規定になっている為、
あえて明示的に指定しない場合は、
”新しいフォルダを作成する”ボタンは表示されるようです。




 

http://anetm.com/dev/d.cgi?SC=DTDTL&o=Oww

Copyright(c)2001-2006 Ai Net Makoto 記事・情報の無断転載を禁止します。