Какой шрифт и его размер используются в MsgBox, и можно ли его изменить? - PullRequest
Новая
       47

Какой шрифт и его размер используются в MsgBox, и можно ли его изменить?

0 голосов
/ 20 июня 2019

Я пытаюсь отформатировать текст для отображения в MsgBox и мне нужно знать соответствующие размеры символов.

Есть ли способ управления форматом внутри MsgBox. Или вы знаете, что шрифт и размер шрифта, который использует MsgBox. 

Function Pixels(Data) As Double
    ' Return sum of  PIXEL_SIZES from the string "Data".

    Knt = 0
    Pixels = 0
    For I = 1 To Len(Data)
        Arg = Mid(Data, I, 1)
        Char_Value = Asc(Arg)
        If Char_Value >= 32 Or Char_Value <= 126 And Len(Arg) = 1 Then
            Knt = Knt + 1
            J = Char_Value - 32
            Ptr = PIXEL_DATA(J)
            Width_ = Text_Before(Ptr, "|")
            Pixels = Pixels + Width_

        Else
            msg1 = "The char " & I & " is not an asci value:"
            Msg2 = "The character value is " & Chr(Arg) & "."
            Call Msg_Err(Prog, msg1, Msg2)
            Stop

        End If

    Next I

End Function ' Pixels()
...