■86048 / inTopicNo.6) |
Re[1]: フォルダを選択するダイアログ |
□投稿者/ 魔界の仮面弁士 (1502回)-(2017/12/14(Thu) 13:40:37)
|
■No86037 (ヤンゴン さん) に返信
> http://officetanaka.net/excel/vba/tips/tips39.htm
> ここにあるようなダイアログを使いたいと考えています。
> しかし、この方法はVBAのためVB.NETでは使うことができませんでした。
Microsoft.WindowsAPICodePack.Shell.dll を参照設定し、
CommonOpenFileDialog クラスの IsFolderPicker プロパティを True にすれば OK かと。
Imports Microsoft.WindowsAPICodePack.Dialogs
Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Using dlg As New CommonOpenFileDialog()
dlg.IsFolderPicker = True
If dlg.ShowDialog() = CommonFileDialogResult.Cancel Then
Return
End If
TextBox1.Text = dlg.FileName
End Using
End Sub
End Class
|
|