新しいフォームへのデータを渡したい

質問

Visual studio 2005にてフォームアプリケーションを作成しています。

メインとなるフォーム(form.vb)と、ダイアログ表示用のフォーム(dialog.vb)を使い、メインでの値をダイアログ用のフォームの方で表示させたいのです。

メインのTextBox1にテキストを入力させ、「実行」ボタンを押すとダイアログ表示用フォームが立ち上がり、ダイアログのTextBox1に同じものを表示させたい・・・という寸法です。

できるだけ簡素なコードでこれを行うにはどうすればいいでしょうか？
よろしくお願いします。

回答No.6

redfox63 · ベストアンサー

ダイアログがモーダル表示ならShowDialogをモードレスならShowをオーバーロードしてみましょう

Dailog1というフォームなら
Public Overloads Function ShowDialog( sText as String ) as DialogResult
　　Me.TextBox1.Text
　　return MyBase.ShowDialog()
End Function

Public Overloads Sub Show( sText as String)
　　me.TextBox1.Text = sText
　　MyBase.Show()
End Sub
といった具合にします

呼び出し側では
Dailog1.Show( TextBox1.Text )
または
Dialog1.ShowDialog(TextBox1.Text)
といった具合にします

回答No.5

ProKaseifu

動かすだけなら・・・

Private Sub 表示ボタン_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 表示ボタン.Click
Dialog1.TextBox1.Text = Me.TextBox1.Text
Dialog1.Show()
End Sub

これでいけるはず。

ただし、No2さんの言っているようにモジュール設計的には
推奨できませんね。

回答No.4

ttkai00

私の先の回答の意図が全く伝わっていないようです…

> Form1の方に
> Dim member As String = Form2.TextBox1.Text
> Form2の方に
> Dim member As String
> TextBox1.Text = member

基本的なところから勉強した方が良いように思います。変数・クラス・プロパティといった概念を正しく理解されていればこんなコードは出てこないはずです。この場合、Form2 で宣言した member と Form1 で宣言した member は全く別物ですから、設定した TextBox1.Text が Form2 の Load で空の文字で上書きしてしまうことになります。

この書き方をするのであれば、Form2 の方で何も設定しなければ動作はすると思います。ただしこれは私の意図したコードではありません。

Form2 の持ち物である TextBox1 のプロパティを Form1 側から設定するのは設計上あまりよろしくありません。そこでプロパティを使う方法を紹介しました。

私が意図していたのはこういうコードです。

[Form1]
' ダイアログを表示する箇所
Using frm As New Form2()
frm.TextBoxText = Me.TextBox1.Text
frm.ShowDialog()
End Using

[Form2]
' プロパティの宣言
Private _textBoxText As String

Public Property TextBoxText() As String
Get
Return _textBoxText
End Get
Set
_textBoxText = Value
End Set
End Property

' --- 以下はForm_Load 内に記述 ---

Me.TextBox1.Text = TextBoxText

回答No.3

ProKaseifu

方法がわからないというのはどこの部分がわからないのですか？

メインフォームからダイアログを表示させる部分がわからなのでしょうか？

それともダイアログのTextBox1に値を表示する方法がわからないのでしょうか？

補足

ご回答ありがとうございます。

ダイアログの表示はできるのですが、そのダイアログのTextBoxに文字列を表示する方法が分からないのです。

回答No.2

ttkai00

いろいろ方法はありますが、ダイアログのフォームのクラスに TextBox1 に表示する文字列という意味合いのプロパティを作ってやるのが普通だと思います。

呼び出し側は ShowDialog の前にそのプロパティを設定して、呼び出される方は Load イベントで TextBox1 にその値を設定します。

参考URL：

http://support.microsoft.com/kb/308230/ja

補足

Form1の方に
Dim member As String = Form2.TextBox1.Text
Form2の方に
Dim member As String
TextBox1.Text = member

と書いてみましたができませんでした。。。

回答No.1

ProKaseifu

ためしにサンプル作成してみて、その内容に対して「これよりもいいほうほうがありますか？」と質問してみたほうがよいかと。

見方によっては問題の丸投げとも見えますよ。

補足

すいません、方法自体が分からなくて、サンプルが作れないんです。