VB2005でフォーム1からフォーム2に変数を送るには？ (ID:145944)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

方法はいくらでもありますが・・・

例えば
Form1/Form2 にRichTextBox1を貼って、ボタンも配置し・・・

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Using objForm As Form2 = New Form2
            Dim dRet As DialogResult
            With objForm
                .Tag = CType(RichTextBox1.Text, Object)
                dRet = .ShowDialog()
                If dRet = Windows.Forms.DialogResult.OK Then
                    RichTextBox1.Text = CType(.Tag, String)
                End If
            End With
        End Using

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Me.Close()

End Sub

End Class

Public Class Form2

Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

RichTextBox1.Text = CType(Me.Tag, String)

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

With Me
            .Tag = CType(RichTextBox1.Text, Object)
            .DialogResult = Windows.Forms.DialogResult.OK
            .Close()
        End With

End Sub

End Class

フォームの生成に準じてTagで渡して、また戻してもらうとか。
何等かの処理判定で、DialogResultにOKか、以外かを返せば、
その結果を反映させるか破棄するかもできるし・・・

如何？

以上。

←解決時は質問者本人がここをチェックしてください。

戻る