tagCANDY CGI VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
[ツリー表示へ]  [ワード検索]  [Home]

タイトル Re^2: Form2からForm1のテキストボックスの内容を取得するほかの方法を教えて下し
投稿日: 2004/08/08(Sun) 03:33
投稿者tomi
[OSのVer]:Windows    [VBのVer]:VB.NET 2003  
花ちゃんへ
回答ありがとうございます

試してみたのですがどうもうまくいきません。
私のコードの書き方が悪いのかも・・・・・一応、コードを記入しておきます。

フォーム1コード
Private Sub Button1_Click(ByVal sender As System.Object, _
                                 ByVal e As System.EventArgs) Handles Button1.Click
        'Form1からForm2のラベルのテキストに記入
        frm2.textbox1.Text = TextBox1.Text
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, _
                           ByVal e As System.EventArgs) Handles MyBase.Load
        'Form2 を表示    
        frm2 = New Form2
        frm2.Show()
    End Sub

モジュール1コード
    Private frm2 As Form2   'モジュールレベルで宣言
このやり方ですと、frm2が宣言されてないというエラーが出てしまいます。


又、今回の質問のフォーム2のボタンイベントを発生させて、フォーム1のテキストボックス1内のテ
キストを、フォーム2のテキストボックス1に表示させようとしているコードは下記のように記入しま
したが、やはり、フォーム1、テキストボックス1内のプロパティーに直接記入しているテキストしか
表示できませんでした。

フォーム1テキストボックスプロパティーは a となっています

フォーム1コード
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
MyBase.Load
        TextBox1.Text = "b"
    End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button1.Click
        Dim frm2 As New Form2
        frm2.Show()
    End Sub

フォーム2コード
Private Sub Button1_Click(ByVal sender As System.Object, _
                                  ByVal e As System.EventArgs) Handles Button1.Click
        TextBox1.Text = frm1.TextBox1.Text
    End Sub

モジュール1コード
  Public frm1 As New Form1

以上のようなコードなのですが、デバックした際、フォーム1のテキストボックスには bと表示さ
れ、ボタンを押した際、フォーム2が表示されます。このときフォーム2のテキストボックスにはフォ
ーム2テキストボックスの、初期値のTextBox1が表示されています。そして、フォーム2のボタンをク
リックすると、テキストボックスの中には a が表示されます。
大変ご迷惑をおかけいたしますが、今一度、よろしくお願い致します。

- 関連一覧ツリー をクリックするとツリー全体を一括表示します)

古いスレッドにレスはつけられません。