Form1 からForm2 のテキストボックスの内容を読み書きする - VBレスキュー(花ちゃん) VS,VB.NET,VB2005,VB2008,VB2010,サンプル,Tips

★　Form1 からForm2 のテキストボックスの内容を読み書きする（プロパティ使用）

Form1 に記入して下さい。

Private Sub Button1_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button1.Click
'Form1 からForm2 のテキストボックスに書き込む
f2.MyForm2TextBox = "Form1 からの書込みです。"
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button2.Click
'Form1 からForm2 のテキストボックスの内容を読み込む
MessageBox.Show(f2.MyForm2TextBox)
End Sub

Private f2 As New Form2

Private Sub Form1_Load(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles MyBase.Load
f2.Show()
End Sub

Form2 に記入して下さい。

'TextBox1のプロパティの値を設定及び取得するためのプロパティ
Public Property MyForm2TextBox() As String
Get 'TextBox1.Text の内容を取得
Return TextBox1.Text
End Get
'TextBox1.Text に書き込み
Set(ByVal Value As String)
TextBox1.Text = Value
End Set
End Property

Form1 からForm2 のテキストボックスの内容を読み書きする(2個) (SNo.086)
使用コントロール	（Form1 =　Button1 Button2　TextBox1）（Form2 =　TextBox1）
その他条件	WindowsXP(Vista)　Visual Basic 2005(VB2008)
★　Form1 からForm2 のテキストボックスの内容を読み書きする（プロパティ使用） Form1 に記入して下さい。 Private Sub Button1_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button1.Click 'Form1 からForm2 のテキストボックスに書き込む f2.MyForm2TextBox = "Form1 からの書込みです。" End Sub Private Sub Button2_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button2.Click 'Form1 からForm2 のテキストボックスの内容を読み込む MessageBox.Show(f2.MyForm2TextBox) End Sub Private f2 As New Form2 Private Sub Form1_Load(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles MyBase.Load f2.Show() End Sub Form2 に記入して下さい。 'TextBox1のプロパティの値を設定及び取得するためのプロパティ Public Property MyForm2TextBox() As String Get 'TextBox1.Text の内容を取得 Return TextBox1.Text End Get 'TextBox1.Text に書き込み Set(ByVal Value As String) TextBox1.Text = Value End Set End Property