タイトル | : Re^2: Form2からForm1のテキストボックスの内容を取得するほかの方法を教えて下し |
記事No | : 1012 |
投稿日 | : 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 が表示されます。 大変ご迷惑をおかけいたしますが、今一度、よろしくお願い致します。
|