[360.xls]



' [mjSumple] のコード
'■■ テキストボックスのフォント・色を設定する ■■
'
'

'フォームを表示します
Sub frmSumple_Show()
    
    '
    With frmSumple.txtInput0
        .Font.Name = "ＭＳ 明朝"            'フォントの指定
        .ForeColor = RGB(255, 0, 255)      '文字色をマゼンタに
        .Text = "これは表示サンプル１です。" '表示文字の指定
    End With
    '
    With frmSumple.txtInput1
        .Font.Name = "ＭＳ ゴシック"        'フォントの指定
        .Font.Bold = True                  '太字指定
        .Text = "これは表示サンプル２です。" '表示文字の指定
    End With
    
    With frmSumple.txtInput2
        .Font.Name = "ＭＳ Ｐ明朝"          'フォントの指定
        .ForeColor = RGB(0, 0, 255)        '文字色を青に
        .Font.Italic = True                 '斜体指定
        .Text = "これは表示サンプル３です。"
    End With
    
    'フォームの表示
    frmSumple.Show
End Sub