同じダイアログからファイルまたはフォルダを選択する「簡単な」方法はありますか？
私が作成する多くのアプリでは、ファイルまたはフォルダーの両方を入力として許可しています。今まで、私は常にファイルまたはフォルダの選択ダイアログを切り替えるためのスイッチを作成するか、ドラッグアンドドロップ機能のみを使用することになります。
これはとても基本的なことのように思われるので、これは以前に作成されたものだと思いますが、グーグルで検索しても多くの情報は得られません。したがって、最初から始めてカスタム選択ダイアログを作成する必要があるように見えますが、このような些細な作業のために車輪の再発明を行っても問題は発生しません。
誰かヒントや既存の解決策はありますか？
UIの一貫性を保つために、OpenFileDialog（またはFolderBrowserDialog）を拡張できると便利です。
技術的には可能です。FolderBrowseDialog で使用されるシェル ダイアログには、ファイルとフォルダーの両方を返す機能があります。残念ながら、その機能は .NET では公開されていません。リフレクションでさえ、必要なオプション フラグを突くことはできません。
これを機能させるには、BROWSEINFO.ulFlags (値 = 0x4000) で BIF_BROWSEINCLUDEFILES フラグをオンにして P/Invoke SHBrowseForFolder() を呼び出す必要があります。P/Invoke はザラザラしています。Reflector の助けを借りて、別のソースまたは FolderBrowseDialog クラス自体からコードをコピー アンド ペーストすることをお勧めします。
上記のヒントに基づいて、次の場所で標準のフォルダー ブラウザー ダイアログを使用するいくつかの実用的なコードを見つけました。
拡張フォルダ ブラウザ ダイアログのクラス
Imports System
Imports System.Text
Imports System.Windows.Forms
Imports System.Runtime.InteropServices
Public Class DirectoryDialog
Public Structure BROWSEINFO
Public hWndOwner As IntPtr
Public pIDLRoot As Integer
Public pszDisplayName As String
Public lpszTitle As String
Public ulFlags As Integer
Public lpfnCallback As Integer
Public lParam As Integer
Public iImage As Integer
End Structure
Const MAX_PATH As Integer = 260
Public Enum BrowseForTypes As Integer
Computers = 4096
Directories = 1
FilesAndDirectories = 16384
FileSystemAncestors = 8
End Enum
Declare Function CoTaskMemFree Lib "ole32" Alias "CoTaskMemFree" (ByVal hMem As IntPtr) As Integer
Declare Function lstrcat Lib "kernel32" Alias "lstrcat" (ByVal lpString1 As String, ByVal lpString2 As String) As IntPtr
Declare Function SHBrowseForFolder Lib "shell32" Alias "SHBrowseForFolder" (ByRef lpbi As BROWSEINFO) As IntPtr
Declare Function SHGetPathFromIDList Lib "shell32" Alias "SHGetPathFromIDList" (ByVal pidList As IntPtr, ByVal lpBuffer As StringBuilder) As Integer
Protected Function RunDialog(ByVal hWndOwner As IntPtr) As Boolean
Dim udtBI As BROWSEINFO = New BROWSEINFO()
Dim lpIDList As IntPtr
Dim hTitle As GCHandle = GCHandle.Alloc(Title, GCHandleType.Pinned)
udtBI.hWndOwner = hWndOwner
udtBI.lpszTitle = Title
udtBI.ulFlags = BrowseFor
Dim buffer As StringBuilder = New StringBuilder(MAX_PATH)
buffer.Length = MAX_PATH
udtBI.pszDisplayName = buffer.ToString()
lpIDList = SHBrowseForFolder(udtBI)
hTitle.Free()
If lpIDList.ToInt64() <> 0 Then
If BrowseFor = BrowseForTypes.Computers Then
m_Selected = udtBI.pszDisplayName.Trim()
Else
Dim path As StringBuilder = New StringBuilder(MAX_PATH)
SHGetPathFromIDList(lpIDList, path)
m_Selected = path.ToString()
End If
CoTaskMemFree(lpIDList)
Else
Return False
End If
Return True
End Function
Public Function ShowDialog() As DialogResult
Return ShowDialog(Nothing)
End Function
Public Function ShowDialog(ByVal owner As IWin32Window) As DialogResult
Dim handle As IntPtr
If Not owner Is Nothing Then
handle = owner.Handle
Else
handle = IntPtr.Zero
End If
If RunDialog(handle) Then
Return DialogResult.OK
Else
Return DialogResult.Cancel
End If
End Function
Public Property Title() As String
Get
Return m_Title
End Get
Set(ByVal Value As String)
If Value Is DBNull.Value Then
Throw New ArgumentNullException()
End If
m_Title = Value
End Set
End Property
Public ReadOnly Property Selected() As String
Get
Return m_Selected
End Get
End Property
Public Property BrowseFor() As BrowseForTypes
Get
Return m_BrowseFor
End Get
Set(ByVal Value As BrowseForTypes)
m_BrowseFor = Value
End Set
End Property
Private m_BrowseFor As BrowseForTypes = BrowseForTypes.Directories
Private m_Title As String = ""
Private m_Selected As String = ""
Public Sub New()
End Sub
End Class
拡張ダイアログを実装するコード
Sub Button1Click(ByVal sender As Object, ByVal e As EventArgs)
Dim frmd As DirectoryDialog = New DirectoryDialog()
' frmd.BrowseFor = DirectoryDialog.BrowseForTypes.Directories
' frmd.BrowseFor = DirectoryDialog.BrowseForTypes.Computers
frmd.BrowseFor = DirectoryDialog.BrowseForTypes.FilesAndDirectories
frmd.Title = "Select a file or a folder"
If frmd.ShowDialog(Me) = DialogResult.OK Then
MsgBox(frmd.Selected)
End If
End Sub
標準の OpenFileDialog を使用してフォルダーを選択できます。これを行う方法を示した CodeProject の記事を次に示します ( http://www.codeproject.com/KB/dialog/OpenFileOrFolderDialog.aspx )。
完了しました。組み込みのFolderBrowserDialogの再利用可能な派生物であるFolderBrowserDialogExを使用できます。これにより、パス、さらには UNC パスを入力できます。フォルダー、またはファイルとフォルダーを参照できます。それを使用して、コンピューターまたはプリンターを参照できます。組み込みの FBD に基づいていますが、... より優れています。より柔軟に。GUI でフォルダをクリックすると、テキスト ボックスにパスが表示されます。パスを入力すると、フォルダがアクティブになります。組み込みのダイアログに欠けている多くのオプション。
完全なソース コード。無料。MS パブリック ライセンス。
それを使用するコード：
var dlg1 = new Ionic.Utils.FolderBrowserDialogEx();
dlg1.Description = "Select a folder to extract to:";
dlg1.ShowNewFolderButton = true;
dlg1.ShowEditBox = true;
//dlg1.NewStyle = false;
dlg1.SelectedPath = txtExtractDirectory.Text;
dlg1.ShowFullPathInEditBox = true;
dlg1.RootFolder = System.Environment.SpecialFolder.MyComputer;
// Show the FolderBrowserDialog.
DialogResult result = dlg1.ShowDialog();
if (result == DialogResult.OK)
{
txtExtractDirectory.Text = dlg1.SelectedPath;
}
私の知る限り、.NET フレームワークには、これをすぐに実行できるものはありません。
.NET ファイル ダイアログはCommonDialogから派生します。
継承されたクラスは、ShowDialog を呼び出して特定のコモン ダイアログ ボックスを作成することによって RunDialog を実装する必要があります。継承されたクラスは、HookProc をオーバーライドして、特定のダイアログ ボックス フック機能を実装できます。
すべての組み込みダイアログは、アクションに対応するシェル API を使用します。PrintDialog、OpenFileDialog、SaveFileDialog など...
ほとんどの場合、この機能を手動で構築する必要があります。
http://www.pinvoke.net/default.aspx/shell32.shbrowseforfolder
このサンプルで変更した場合のリンクは gerat です
bi.ulFlags = BIF_NEWDIALOGSTYLE | BIF_SHAREABLE;
為に
bi.ulFlags = BIF_NEWDIALOGSTYLE | BIF_SHAREABLE | BIF_BROWSEINCLUDEFILES;
あなたはあなたが望むものを手に入れるでしょう
特定のファイルの種類のみを表示する場合は、次の記事(C# のソース コードを含む) が役に立ちます。
また、FolderBrowser ダイアログを「カスタマイズ」するために使用できるその他のオプションについても説明します。