トップ  >  サンプルソース  >  MsgBoxのフォントサイズ(VBS/VBA)

MsgBoxのフォントサイズ(VBS/VBA)

2011年01月17日

MsgBoxのフォントサイズを変更するサンプル(ソース/コード)です。 NonMsgVb6.dll を使用しています。最近は、ディスプレイの解像度が大きくなって来ているので相対的にメッセージボックスが小さくなって見えます。

これぐらい大きいメッセージボックスをあまり見ないので押したくなりませんか。
MsgBoxのフォントサイズ
ちなみにこのメッセージボックスのフォントサイズは16ポイントです。
もっと大きくなるのですがブログの横幅の制限でこのサイズにしています。

関連サンプル:MessageBoxのフォントサイズ(C#/VB.NET)

' --------------------------------------------------------
' MsgBoxのフォントを変更するサンプル(VBS)
' MsgBoxオブジェクト
Public NonMsgVb6

' 大きいフォントのMsgBox初期化
NonMsgVb6_Init
    
' 大きいフォントのMsgBox表示
bnt = NonMsgVb6.MsgBoxPlus( _
    "ヨーキー景吾はかわいい", _
    vbYesNo + vbQuestion, _
    "ヨーキー景吾")

' クリックしたMsgBoxのボタン判定
If bnt = vbYes Then
    MsgBox "vbYes"
ElseIf bnt = vbNo Then
    MsgBox "vbNo"
End If
' --------------------------------------------------------

' --------------------------------------------------------
' MsgBoxのフォントを変更するサンプル(VBA)
' MsgBoxオブジェクト
Public NonMsgVb6

Private Sub CommandButton1_Click()
    ' 大きいフォントのMsgBox初期化
    NonMsgVb6_Init

    ' 大きいフォントのMsgBox表示
    bnt = NonMsgVb6.MsgBoxPlus( _
        "ヨーキー景吾はかわいい", _
        vbYesNo + vbQuestion, _
        "ヨーキー景吾")
    
    ' クリックしたMsgBoxのボタン判定
    If bnt = vbYes Then
        MsgBox "vbYes"
    ElseIf bnt = vbNo Then
        MsgBox "vbNo"
    End If
End Sub
' --------------------------------------------------------

' --------------------------------------------------------
' MsgBoxのフォントを変更するサンプル(VBS/VBA共通)
' [Regsvr32.exe NonMsgVb6.dll]を実行しています
Public Sub NonMsgVb6_Init()
    ' オブジェクト生成
    Set NonMsgVb6 = CreateObject("NonMsgVb6.MsgBoxClass")

    ' メッセージフォント名("MS Pゴシック",
    ' "MS P明朝","MS ゴシック","MS 明朝")
    NonMsgVb6.MsgFontName = "MS Pゴシック"
    ' メッセージフォントサイズ
    NonMsgVb6.MsgFontSize = 20
    ' メッセージフォント太文字
    NonMsgVb6.MsgFontBold = False
    ' メッセージフォント斜体
    NonMsgVb6.MsgFontItalic = False
    ' メッセージフォント取消線
    NonMsgVb6.MsgFontStrikethru = False
    ' メッセージフォント下線
    NonMsgVb6.MsgFontUnderline = False
    ' メッセージ幅微調整1(0.9~(1.02)~1.1)
    NonMsgVb6.MsgWidthP1 = 1.02
    ' メッセージ幅微調整2(-50~(+5.0)~+50)
    NonMsgVb6.MsgWidthP2 = 5
    ' メッセージ高微調整1(0.9~(1.02)~1.1)
    NonMsgVb6.MsgHeightP1 = 1.02
    ' メッセージ高微調整2(-50~(+5.0)~+50)
    NonMsgVb6.MsgHeightP2 = 5

    ' ボタンフォント名("MS Pゴシック",
    ' "MS P明朝","MS ゴシック","MS 明朝")
    NonMsgVb6.BtnFontName = "MS Pゴシック"
    ' ボタンフォントサイズ
    NonMsgVb6.BtnFontSize = 20
    ' ボタンフォント太文字
    NonMsgVb6.BtnFontBold = False
    ' ボタンフォント斜体
    NonMsgVb6.BtnFontItalic = False
    ' ボタンフォント取消線
    NonMsgVb6.BtnFontStrikethru = False
    ' ボタンフォント下線
    NonMsgVb6.BtnFontUnderline = False
    ' ボタン幅微調整1(0.9~(1.02)~1.1)
    NonMsgVb6.BtnWidthP1 = 1.02
    ' ボタン幅微調整2(-50~(+5.0)~+50)
    NonMsgVb6.BtnWidthP2 = 5
    ' ボタン高微調整1(0.9~(1.02)~1.1)
    NonMsgVb6.BtnHeightP1 = 1.02
    ' ボタン高微調整2(-50~(+5.0)~+50)
    NonMsgVb6.BtnHeightP2 = 5

    ' メッセージボックス表示位置
    ' CenterScreenまたはCenterParent
    NonMsgVb6.StartPosition = False

    ' NonMsgVb6有効
    NonMsgVb6.Enable = True
End Sub
' --------------------------------------------------------
スポンサーサイト

デスクトップのモザイク(ツール) | トップページへ戻る | ローカル プロキシ(ツール)

このページのトップに戻る

コメント

名前
題名
メールアドレス
WEBサイト
 
コメント
パスワード
  管理者にだけ表示を許可する

このページのトップに戻る

トラックバック

このページのトップに戻る