**********
Main
**********
Public Class Form1
Dim AA As New UCNT1.UserControl1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox1.Text = AA.BTEST
End Sub
End Class
**********
User2 Prop
**********
Public Class Class1
Private _test As String
Public Property Test() As String
Get
Return _test
End Get
Set(ByVal value As String)
_test = value
End Set
End Property
End Class
Public Class UserControl2
Private ATEST As New Class1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
ATEST.Test = "OK"
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
ATEST.Test = "NG"
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
TextBox1.Text = ATEST.Test
End Sub
Public Function BTEST() As String
Return ATEST.Test
End Function
End Class
**********
User2 Grob
**********
Public Class UserControl1
Private _test As String
Private Sub New()
' この呼び出しは、Windows フォーム デザイナで必要です。
InitializeComponent()
' InitializeComponent() 呼び出しの後で初期化を追加します。
End Sub
Private Sub UserControl1_Disposed(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Disposed
MyBase.Dispose()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
_test = "OK"
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
_test = "NG"
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
TextBox1.Text = _test
End Sub
Private Function BTEST() As String
Return _test
End Function
End Class
