[022.xls]



' [mjSumple] のコード
'■■ブックを開くときに複数のユーザーフォームを非表示で読み込む■■
'
Sub auto_open()
    Call psFormMainOpen
End Sub

Sub psFormMainOpen()
    
    'Loadはﾌｫｰﾑを読み込みますが、表示はしません
    Load frmForm1
    Load frmForm2
    Load frmForm3

    'ﾌｫｰﾑはShowで表示します
    frmMain.Show

End Sub

Sub Form1Open()
    frmForm1.Show
End Sub

Sub Form2Open()
    frmForm2.Show
End Sub

Sub Form3Open()
    frmForm3.Show
End Sub

'Hide はフォーム自体を非表示にします。
Sub Form1Close()
    frmForm1.Hide
End Sub

Sub Form2Close()
    frmForm2.Hide
End Sub

Sub Form3Close()
    frmForm3.Hide
End Sub



' [frmForm1] のコード

Private Sub cmdForm1Close_Click()
    Call Form1Close
End Sub


' [frmForm2] のコード

Private Sub cmdForm2Close_Click()
    Call Form2Close
End Sub


' [frmForm3] のコード

Private Sub cmdForm3Close_Click()
    Call Form3Close
End Sub

' [frmMain] のコード

Private Sub cmdForm1Open_Click()
    Call Form1Open
End Sub

Private Sub cmdForm2Open_Click()
    Call Form2Open
End Sub

Private Sub cmdForm3Open_Click()
    Call Form3Open
End Sub