VBレスキュー(花ちゃん)
VB2005用トップページへVBレスキュー(花ちゃん)のトップページVB6.0用のトップページ各掲示板

メニューへ戻ります。 フォーム関係のメニュー
1.フォームの表示に関する基本的な操作色々
2.Form1 から Form2 を表示する
3.Form1 からForm2 のテキストボックスの内容を読み書きする
4.Form2 からForm1 のテキストボックスの内容を読み書きする
5.円形のフォームを作成する
6.画像の形(自由な)のフォームを作成
7.
8.
9.
10.
11.
12.
 .
20.その他、当サイト内に掲載のフォームに関するサンプル


4.Form2 からForm1 のテキストボックスの内容を読み書きする(34_Frm_04) (旧、SampleNo.087)
1.Form2 からForm1 のテキストボックスの内容を読み書きする(34_Frm_04)
2.
3.
4.
5.
6.

 下記プログラムコードに関する補足・注意事項 
動作確認:Windows 8.1 (Windows 7) / VB2013 (VB2010) / Framework 4.5.1 / 対象の CPU:x86
Option :[Compare Text] [Explicit On] [Infer On] [Strict On]
Imports :追加なし
参照設定:
追加なし
使用コン:Form1(Button1/TextBox1)  Form2(Button1/Button2)
トロール:
このサンプル等の内容を無断で転載、掲載、配布する事はお断りします。(私の修正・改訂・削除等が及ばなくなるので)
必要ならリンクをはるようにして下さい。(引用の場合は引用元のリンクを明記して下さい)
このページのトップへ移動します。 1.Form2 からForm1 のテキストボックスの内容を読み書きする
Form1 に記入する部分

'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 Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
'Form2 を表示する
    If f2 Is Nothing OrElse f2.IsDisposed Then
        f2 = New Form2(Me)
    End If
    f2.Show()
End Sub

Private f2 As Form2

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    'Form2 のコンストラクターのコードを記入すればエラーの波線は消えます
    f2 = New Form2(Me)
    f2.Show()
End Sub


Form2 に記入する部分


Private frm1 As New Form1

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

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

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

このページのトップへ移動します。 2.


このページのトップへ移動します。 3.


このページのトップへ移動します。 4.


このページのトップへ移動します。 5.


このページのトップへ移動します。 6.


このページのトップへ移動します。 検索キーワード及びサンプルコードの別名(機能名)
フォーム2からフォーム1のテキストボックスの内容を読み書きする





このページのトップへ移動します。