[343.xls]



' [mjSumple] のコード
'■■ ラベルに表示する文字列を右端で折り返す ■■
'
'
Dim strMsg As String

'フォームを表示します
Sub frmMsg_Show()
    'メッセージを変数にセット
    strMsg = ""
    strMsg = strMsg & "文字を折り返さないと途中で表示が切れてしまいますが、"
    strMsg = strMsg & "右端で折り返す指定にすれば、長いメッセージも表示できます。"
    
    'フォームの表示
    frmMsg.Show
End Sub

'右端で折り返さない場合
Sub Msg0_Disp()
    With frmMsg.lblDisp
        .Caption = strMsg
        .WordWrap = False  '←折り返さないは"False"
    End With
End Sub
'右端で折り返す場合
Sub Msg1_Disp()
    With frmMsg.lblDisp
        .Caption = strMsg
        .WordWrap = True  '←折り返しは"True"
    End With
End Sub



' [frmMsg] のコード

Private Sub cmdMsg1_Click()
    Call Msg0_Disp
End Sub

Private Sub cmdMsg2_Click()
    Call Msg1_Disp
End Sub