[345.xls]



' [mjSumple] のコード
'■■ 文字列に合わせてラベルサイズを調整する ■■
'
'
Dim strMsg As String    'メッセージ用変数

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

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

'ラベルサイズを固定にする場合
Sub Msg0_Disp()
    With frmMsg.lblDisp
        .Width = 80       'ここで最初のﾗﾍﾞﾙｻｲｽﾞに戻してます
        .Caption = strMsg 'メッセージの表示
        .AutoSize = False 'サイズ固定は"False"
    End With
End Sub
'ラベルサイズを自動調整する場合
Sub Msg1_Disp()
    With frmMsg.lblDisp
        .Caption = strMsg 'メッセージの表示
        .AutoSize = 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