[342.xls]



' [mjSumple] のコード
'■■ ラベルに表示する文字列を設定する ■■
'
'
Dim Msg(2) As Variant


Sub frmMsg_Show()
    '各メッセージを配列変数にセット(0〜2)
    Msg(0) = "おはようございます！"
    Msg(1) = "こんにちは！"
    Msg(2) = "こんばんは！"
    'フォームの表示
    frmMsg.Show
End Sub


Sub Msg0_Disp()
    frmMsg.lblDisp.Caption = Msg(0)
End Sub

Sub Msg1_Disp()
    frmMsg.lblDisp.Caption = Msg(1)
End Sub

Sub Msg2_Disp()
    frmMsg.lblDisp.Caption = Msg(2)
End Sub



' [frmMsg] のコード

Private Sub cmdMsg1_Click()
    Call Msg0_Disp
End Sub

Private Sub cmdMsg2_Click()
    Call Msg1_Disp
End Sub

Private Sub cmdMsg3_Click()
    Call Msg2_Disp
End Sub