VB .NET - форма заголовка полнотекстового выравнивания слева - PullRequest
Новая
       26

VB .NET - форма заголовка полнотекстового выравнивания слева

0 голосов
/ 26 августа 2018

У меня есть этот код для выравнивания заголовка формы, но я не могу полностью выровнять его, когда я оставляю пробел, чтобы он оставался полностью работающим, но он добавляет 3 точки в конце, есть ли у кого-нибудь идеи по исправлениюэто?

Форма FIXED SINGLE STYLE

Спасибо всем за время 

Private Sub ALINHAMENTO()

    Dim g As Graphics = Me.CreateGraphics()
    Dim startingPoint As Double = (Me.Width / 2) - (g.MeasureString(Me.Text.Trim, Me.Font).Width / 2)
    Dim widthOfASpace As Double = g.MeasureString(" ", Me.Font).Width
    Dim tmp As String = " "
    Dim tmpWidth As Double = 0

    Do
        tmp += " "
        tmpWidth += widthOfASpace
    Loop While (tmpWidth + widthOfASpace) < startingPoint

    Me.Text = Me.Text.Trim & tmp

End Sub

RUNNING

Решение, основанное на идееиз: Оливье Жако-Дескомб 

Private Sub ALINHAMENTO()

    Dim g As Graphics = Me.CreateGraphics()
    Dim startingPoint As Double = (Me.Width / 1.3) - (g.MeasureString(Me.Text.Trim, Me.Font).Width / 1)
    Dim widthOfASpace As Double = g.MeasureString(" ", Me.Font).Width
    Dim tmp As String = " "
    Dim tmpWidth As Double = 0

    Do
        tmp += " "
        tmpWidth += widthOfASpace
    Loop While (tmpWidth + widthOfASpace) < startingPoint

    Me.Text = Me.Text.Trim & tmp

End Sub
...