タイトル : Re^3: 単純にこうすればいいんですね 投稿日 : 2007/08/02(Thu) 16:48 投稿者 : ピケ
せっかくなので、インターフェースを使用した場合のソースをのせておきます。 あえて説明はしませんが、お暇な時にでも解析して下さい。 Public Class Form1 Inherits System.Windows.Forms.Form Private m_Form As Form = Nothing Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Select Case TextBox1.Text Case "0" Me.m_Form = New Form2 Case "1" Me.m_Form = New Form3 End Select Me.m_Form.Show() End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click CType(Me.m_Form, IForm).Buttun_Click() End Sub End Class Public Class Form2 'Form3も同じ Inherits System.Windows.Forms.Form : Implements IForm Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Me.Buttun_Click() End Sub Public Sub Buttun_Click() Implements IForm.Buttun_Click MessageBox.Show("Form2") End Sub End Class Public Interface IForm Sub Buttun_Click() End Interface |