[349.xls]



' [mjSumple] のコード
'■■ ラベルの背景色を透明にする ■■
'
'
Dim strMsg As String    'メッセージ用変数

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

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

'ラベルの背景色を透明にする場合
Sub Msg0_Disp()
    With frmMsg.lblDisp
        .Caption = strMsg 'メッセージの表示
        .BackStyle = 0 '透明にするは "0"
    End With
End Sub
'ラベルの背景色を不透明にする場合
Sub Msg1_Disp()
    With frmMsg.lblDisp
        .Caption = strMsg 'メッセージの表示
        .BackStyle = 1 '不透明にするは "1"
    End With
End Sub





' [frmMsg] のコード

Private Sub cmdMsg1_Click()
    Call Msg0_Disp
End Sub

Private Sub cmdMsg2_Click()
    Call Msg1_Disp
End Sub