[348.xls]



' [mjSumple] のコード
'■■ ラベルの境界線の表示を切り替える ■■
'
'
Dim strMsg As String    'メッセージ用変数

'フォームを表示します
Sub frmMsg_Show()
    'メッセージを変数にセット
    strMsg = "Borderstyleプロパティのサンプルです。"

    'フォームの表示
    frmMsg.Show
End Sub

'ラベルの境界線を表示する場合
Sub Msg0_Disp()
    With frmMsg.lblDisp
        .Caption = strMsg 'メッセージの表示
        .BorderStyle = 1 '表示するは "1"
    End With
End Sub
'ラベルの境界線を表示しない場合
Sub Msg1_Disp()
    With frmMsg.lblDisp
        .Caption = strMsg 'メッセージの表示
        .BorderStyle = 0 '表示しないは "0"
    End With
End Sub



' [frmMsg] のコード

Private Sub cmdMsg1_Click()
    Call Msg0_Disp
End Sub

Private Sub cmdMsg2_Click()
    Call Msg1_Disp
End Sub