ソリュージョン内のフォームを行き来したい (ID:145527)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

？？？？？
特攻隊長まるるうさん・・・
すみません、？を出さなければならないほどわかりません。初心者掲示板のほうで検索したのですが・・・それでもわからないのです。
出されたコードを貼り付けてみると型が定義されていない、とエラーが出て、Form1にすべてのコードを記述するとボタンが機能しないのです。
    Public Event FormChange(ByRef sender As Form, ByVal TargetFormNum As Class1.FormsNum)
    Public Event ExitThread()
のClass1.FormsNumと、
    Private mForms As ArrayList
    Private mClosingCancel As Boolean
    Private Sub New()
        Dim F1 As New Form1 'プログラム起動時に全てのインスタンス生成
        Dim F2 As New Form2
        Dim F3 As New Form3
        'プログラム終了イベント
        AddHandler F1.ExitThread, AddressOf Form_ExitThread
        AddHandler F2.ExitThread, AddressOf Form_ExitThread
        AddHandler F3.ExitThread, AddressOf Form_ExitThread
        '表示フォーム変更イベント
        AddHandler F1.FormChange, AddressOf Form_FormChange
        AddHandler F2.FormChange, AddressOf Form_FormChange
        AddHandler F3.FormChange, AddressOf Form_FormChange
        'Closing イベント
        AddHandler F1.Closing, AddressOf Form_Closing
        AddHandler F2.Closing, AddressOf Form_Closing
        AddHandler F3.Closing, AddressOf Form_Closing
        Me.mForms = New ArrayList(New Form() {F1, F2, F3})

Me.mClosingCancel = True
        F1.Show()
    End Sub
のForm1,2,3でエラーになります。
  せっかく過去ログのコードも出していただいてアドバイスももらったのに、１００％中１０％程度しかわかりません。・・・。
  コードは別々のプロジェクト内に記述？１つのプロジェクトに収める？Sub Mainのフォームから別のフォームに飛ぶ記述は？難しい・・・

←解決時は質問者本人がここをチェックしてください。

戻る