Изменение шрифта в MsgBox - VB

Узнай цену своей работы

Формулировка задачи:

Кто знает: как можно изменить шрифт (сам шрифт, размер, начертание) для MsgBox? a) единым разом для всех Msgbox данного проекта (во всех модулях) b) внутри отдельного MsgBox (различное написание отдельных частей сообщения).

Решение задачи: «Изменение шрифта в MsgBox»

textual
Листинг программы
Private Sub Form_Load()
    Dim Text As String
    Me.AutoRedraw = True
    Me.FontName = "Arial"
    Me.FontSize = 32
    Text = "Многострочный" & vbNewLine & "текст"
    Me.Width = Me.TextWidth(Text) + (Me.Width - Me.ScaleWidth)
    Me.Height = Me.TextHeight(Text) + (Me.Height - Me.ScaleHeight)
    Me.Print Text
End Sub

Оцени полезность:

14   голосов , оценка 4.357 из 5