火曜日, 1月 10, 2006
[VB.NET]Form関連
■別Formや別モジュール内での別Formのコントロールへのアクセス方法
Form2からForm1のテキストボックスへ値を代入するには、次のようになる。
・VB6.0
Form1.Text1.text="変更OK!"
・VB.NET(別Formからアクセス)
[Form1内のForm2を呼出すコード]
Dim frm2 As New Form2
frm2.Owner = Me
frm2.ShowDialog()
frm2 = Nothing
[Form2内のコード]
Dim frm1 as Form1 = me.owner
frm1.TextBox1.text="変更OK!"
frm1 = Nothing
・VB.NET(別モジュールからアクセス)
[Form1内のForm2を呼出すコード]
Dim frm2 As New Form2
frm2.Owner = Me
frm2.ShowDialog()
frm2 = Nothing
[Form2内のコード]
Call SetText(Me.Owner)
[Module1内のコード]
Public Sub SetText(ByRef frm1 As Form1)
frm1.TextBox1.Text = "変更OK!"
frm1 = Nothing
End Sub
■参考サイト
【VB Tips And Sample】
http://www.geocities.jp/i_love_balard/myhome/index.html
Form2からForm1のテキストボックスへ値を代入するには、次のようになる。
・VB6.0
Form1.Text1.text="変更OK!"
・VB.NET(別Formからアクセス)
[Form1内のForm2を呼出すコード]
Dim frm2 As New Form2
frm2.Owner = Me
frm2.ShowDialog()
frm2 = Nothing
[Form2内のコード]
Dim frm1 as Form1 = me.owner
frm1.TextBox1.text="変更OK!"
frm1 = Nothing
・VB.NET(別モジュールからアクセス)
[Form1内のForm2を呼出すコード]
Dim frm2 As New Form2
frm2.Owner = Me
frm2.ShowDialog()
frm2 = Nothing
[Form2内のコード]
Call SetText(Me.Owner)
[Module1内のコード]
Public Sub SetText(ByRef frm1 As Form1)
frm1.TextBox1.Text = "変更OK!"
frm1 = Nothing
End Sub
■参考サイト
【VB Tips And Sample】
http://www.geocities.jp/i_love_balard/myhome/index.html