玄関へお回り下さい。
Form2 からForm1 のテキストボックスの内容を読み書きする(2個)         (SNo.087)
使用コントロール Form1= Button1  TextBox1 　　Form2= Button1  Button2　TextBox1
その他条件 WindowsXP(Vista)　Visual Basic 2005(VB2008)
　
★　Form2 からForm1 のテキストボックスの内容を読み書きする（プロパティ使用）
　（Form1 に記入して下さい）
Private Sub Form1_Load(ByVal sender As System.Object, _
                       ByVal e As System.EventArgs) Handles MyBase.Load
    'Form2 のコンストラクターのコードを記入すればエラーの波線は消えます
    f2 = New Form2(Me)
    f2.Show()
End Sub

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

Private f2 As Form2

Private Sub Button1_Click(ByVal sender As System.Object, _
                          ByVal e As System.EventArgs) Handles Button1.Click
'Form2 を表示する
    If f2 Is Nothing OrElse f2.IsDisposed Then
        f2 = New Form2(Me)
    End If
    f2.Show()
End Sub
　（Form2 に記入して下さい）

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

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

Private frm1 As New Form1

'Form2 のコンストラクター 
Public Sub New(ByVal f1 As Form1)
    InitializeComponent()
    '呼び出しの後にコンストラクターコードを追加
    frm1 = f1
End Sub
　
　





2004/05/06
2005/10/11


VBレスキュー(花ちゃん)
VB.NET2003　　VB2005