呼び出すには？ (ID:111666)

名前

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

本文

ランダムとかは自分で考えてほしいですが、とりあえず
最初の質問の回答の一つという事で…
フォームは MainForm Form1 Form2 …という名前で
作成してください。あとは適当に数を増やしても動作
するでしょう。

'//////////////////////////////////////////////////////////
'MainFormコード
Option Explicit

' 公開メソッド
Public Sub Child_Click(ByVal ChildFormsName As String)
    Dim i As Integer
    
    For i = 1 To Forms.Count - 2
        If ChildFormsName = "Form" & CStr(i) Then
            Forms_Show (i + 1)
        End If
    Next i
End Sub

' ボタン押下イベント
Private Sub Command1_Click()
    Forms_Show 1
End Sub

' Form表示用
Private Sub Forms_Show(ByVal FormNumBer As Integer)
    Dim FormX As Form
    
    For Each FormX In Forms
        With FormX
            If .Name = "Form" & CStr(FormNumBer) Then
                .Show vbModeless
                Exit Sub
            End If
        End With
    Next
End Sub

Private Sub Form_Load()
    ' 全ての Form を Load しておく
    Load Form1
    Load Form2
    Load Form3
'    Load Form4
'    Load Form5
End Sub
'//////////////////////////////////////////////////////////

'//////////////////////////////////////////////////////////
'Form1〜？コード(共通)
Option Explicit

' ボタン押下イベント
Private Sub Command1_Click()
    MainForm.Child_Click (Me.Name)
End Sub
'//////////////////////////////////////////////////////////

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

戻る