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

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


※返信する前に利用規約をご確認ください。




  


  このエントリーをはてなブックマークに追加