Form1のTextBoxの内容をForm2のLabelに表示するには？

解決

VB初心者 2006-03-28 01:41:14 No: 130804

.NETで、Form1で入力してForm2で確認する画面を作りたいのですが、
どうしてもForm2の確認画面のLabel1にForm1のTextBox1が表示できません。
'Form1の入力
Private Sub Button1_Click()
Dim F2 As New Form2
F2.ShowDialog(Me)

Private Sub Form1_Load()
Dim F1 As New Form1
F1 = Me

'Form2の入力
Private Sub Form2_Load()
Dim F1 As New Form1
Label1.Text = F1.TextBox1.Text

'Module1の入力
Module Module1
Public F1 As Form1
End Module
色々調べて試しましたが、うまくいきません。
よろしくお願いします。

我龍院忠太 2006-03-28 02:57:37 No: 130805

結論から言うと、
Dim F1 As New Form1
が不要では。
せっかくF1をグローバルで宣言してるのに、
更にローカルで宣言してる。

グローバルで宣言せずに、
Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles MyBase.Load
Me.Label1.Text = DirectCast(Me.Owner, Form1).TextBox1.Text
End Sub
と言う手もありかな。

VB初心者 2006-03-28 03:06:13 No: 130806

返信ありがとうございます。
始めて３日目なもので・・・
ご教授ありがとうございます。
Dim F1 As New Form1は消しました。
色々といじくっていたら、Form2の
Dim F1 As New Form1を消したところ
表示できました!!
参考になりました。
ありがとうございました。ｍ(_ _)ｍ