tagCANDY CGI VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
[ツリー表示へ]  [ワード検索]  [Home]

タイトル 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

- 関連一覧ツリー をクリックするとツリー全体を一括表示します)

古いスレッドにレスはつけられません。