C# と VB.NET の質問掲示板

ASP.NET、C++/CLI、Java 何でもどうぞ

C# と VB.NET の入門サイト

Re[9]: DialogResultに自作のEnumを使用するには？

分類:[.NET 全般]　

VB.NETに関する質問です。

フォーム上に複数のボタンが配置されたフォームを
ShowDialogを使ってダイアログとして表示し、
そのいずれかのボタンを押すことで
フォームを閉じ、どのボタンを押したかを返り値として取得したいのですが、
ボタンの数が少ない場合には、
DialogResultを使うことができるのですが
数が多くなってくると不便です。

そのため、自分で定義したEnumを返り値として取得したいのですが
どのようにすれば良いですか？

2023/03/16(Thu) 14:56:56 編集(投稿者)

■No101567 (tip さん) に返信
> フォーム上に複数のボタンが配置されたフォームを
> ShowDialogを使ってダイアログとして表示し、
> そのいずれかのボタンを押すことで
> フォームを閉じ、どのボタンを押したかを返り値として取得したいのですが、
> ボタンの数が少ない場合には、
> DialogResultを使うことができるのですが
> 数が多くなってくると不便です。

FontDialog や OpenFileDialog を真似てみてはいかがでしょう。(自分はそうしています)

FontDialog は OK/Cancel ボタンしかありませんが(Apply ボタンも表示できますが)、
Font プロパティを使って、「どのフォントが選択されたのか」を表すことができます。

OpenFileDialog は OK(開く)/Cancel ボタンしかありませんが(Help も表示できますが)、
FileName / FileNames プロパティを使って、「どのファイルが選択されたのか」を表すことができます。

自作ダイアログでも同様に、ShowDialog メソッド自体は
Cancel されたかどうかだけを表すように、「どのボタンが押されたのか」
という情報は、別の Enum 値をもつプロパティで返すようにします。

もしも ShowDialog と追加のプロパティの 2 つを併用するのが面倒なのであれば、
それらの呼び出しを一つのメソッドに押し込めて

　Public Shared Function ShowButtonsDialog(owner As IWin32Window) As ボタン種別
　　Using dlg As New 自Form()
　　　If dlg.ShowDialog(owner) = DialogResult.Cancel Then
　　　　Return ボタン種別.None
　　　Else
　　　　'Return Me.SelectedButtonValue
　　　　Return dlg.SelectedButtonValue
　　　End If
　　End Using
　End Function

あるいは

　Public Function ShowButtonsDialog(owner As IWin32Window) As ボタン種別
　　If Me.ShowDialog(owner) = DialogResult.Cancel Then
　　　Return ボタン種別.None
　　Else
　　　Return Me.SelectedButtonValue
　　End If
　End Function

などとしても良いでしょう。
メソッドに引数を追加して、ダイアログに表示する内容(Label や Icon など)を
呼び出し元から設定できるようにしておいても良いですね。

さらには、OpenFileDialog の FileOk イベントや FontDialog の Apply イベントのように
独自のイベントを追加するという手もあります。その場合、モーダル画面を
閉じていないまま、子画面側で操作されたときに、それに応じた処理を
呼び出し元画面に対してリアルタイム反映させるといった実装も可能です。

ありがとうございます。

SelectedButtonValueというのは
自Formの外で定義した変数という意味でしょうか？

dlg.ShowDialogを実行すると
すぐにdlgのインスタンスは消えてしまうため、
dlgの実行中にdlgの外側で定義したSelectedButtonValueに値を代入し
dlgが消えた後でも変数を取得できるようにする、という意味で合っていますか？

■No101569 (tip さん) に返信
> SelectedButtonValueというのは
> 自Formの外で定義した変数という意味でしょうか？

ダイアログとして呼ばれる側のフォーム側に追加した Property です。
自動実装プロパティでも構いません。

Form 外で保持するのは、管理が煩雑になってしまうので避けた方が良いでしょう。

> dlg.ShowDialogを実行すると
> すぐにdlgのインスタンスは消えてしまうため、

え。そんなことはないですよね?
インスタンス自体は、むしろ消えずに残るはず。

ShowDialog メソッドの解説にも書かれていますが、モーダルダイアログとして
呼び出された場合、たとえダイアログが ×ボタンで閉じられたり、Close メソッドで
閉じられたとしても、dlg のフォームは単に非表示になるだけです。

そのままではインスタンスが残ってしまうので、明示的に Dispose を呼び出すか、
Using で囲っておくことが求められます。

2023/03/16(Thu) 14:54:15 編集(投稿者)

これって以下のように自Formのインスタンスを二回生成するという意味でしょうか？

Public Class Form1

　Public Sub aaa()

　　Using dlg As New 自Form()
　　　Dim ButtonState = dlg.ShowButtonsDialog(Me)
　　End Using

　End Function

End Class

Public Class 自Form

　Public Shared Function ShowButtonsDialog(owner As IWin32Window) As ボタン種別
　　Using dlg As New 自Form()
　　　If dlg.ShowDialog(owner) = DialogResult.Cancel Then
　　　　Return ボタン種別.None
　　　Else
　　　　Return Me.SelectedButtonValue
　　　End If
　　End Using
　End Function

End Class

■No101571 (tip さん) に返信
> 2023/03/16(Thu) 14:54:15 編集(投稿者)
>
> これって以下のように自Formのインスタンスを二回生成するという意味でしょうか？

違うでしょ。

プロパティープロシージャを定義して利用しろって言ってるんだと思いますけど。
↓
https://learn.microsoft.com/ja-jp/dotnet/visual-basic/programming-guide/language-features/procedures/property-procedures

>>ダイアログとして呼ばれる側のフォーム側に追加した Property です。

てことだから。

■No101571 (tip さん) に返信
> これって以下のように自Formのインスタンスを二回生成するという意味でしょうか？

あー。掲示板上に直書きしたので、おかしなことになっていますね。
Shared 版の実装は、
　　Return Me.SelectedButtonValue
ではなく
　　Return dlg.SelectedButtonValue
の間違いです。元投稿は編集しておきます。

呼び出されるダイアログ側には、 No101568 の
　Public Shared Function ShowButtonsDialog(owner As IWin32Window) As ボタン種別
　Public Function ShowButtonsDialog(owner As IWin32Window) As ボタン種別
のいずれか一方のみを用意します。
同じ名前で両方の実装をオーバーロードすることはできないので、
両方共存させたい場合は、別の Function 名にしておいてください。

呼び出し元からは、標準の ShowDialog の代わりに、
ShowButtonsDialog を呼び出すようにします。

たとえば前者 (Shared メソッド版)の実装なら、呼び出し元からは
　Dim result = CustomDialogForm.ShowButtonsDialog(Me)
だけで呼べます。

後者 (インスタンスメソッド版)の実装なら、
　Using dlg As New CustomDialogForm(…)
　　Dim result = dlg.ShowButtonsDialog(Me)
　End Using
という感じです。

独自のイベント処理を盛り込んだり、他にもいろいろなプロパティがある場合は、
後者の実装の方が融通が利くでしょう。一方、ボタン種別以外のやり取りが不要なら
前者の実装のみを用意した上で、ダイアログのコンストラクタも Private にしておきます。

ありがとうございます。

インスタンス版を使った場合ですが、
CustomDialogFormの外と中で二回CustomDialogFormのインスタンスを生成することになると思いますが
合っていますか？

■No101574 (tip さん) に返信
> インスタンス版を使った場合ですが、
> CustomDialogFormの外と中で二回CustomDialogFormのインスタンスを生成することになると思いますが

なりません。わざわざ再生成せずとも、自身のインスタンスを Me で取得できますよね?

理解できました
どうもありがとうございました。

■No101576 (tip さん) に返信
> 理解できました
> どうもありがとうございました。
>

C# と VB.NET の質問掲示板

ASP.NET、C++/CLI、Java 何でもどうぞ

C# と VB.NET の入門サイト

Re[9]: DialogResultに自作のEnumを使用するには？

過去ログには書き込み不可