Question

我想将主表单文本与标题栏的中心对齐。我不知道如何开始这个。我也“搜索”了这个问题并找不到解决方案。

Answer 1

这适用于我的评论链接中提到的警告：

Public Class Form1
 Private Sub Form1_Load(sender As Object, e As System.EventArgs) Handles Me.Load
    CenterMe()
 End Sub
 Private Sub Form1_Resize(sender As Object, e As System.EventArgs) Handles Me.Resize
    CenterMe()
 End Sub
 Private Sub CenterMe()
    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 = tmp & Me.Text.Trim & tmp

    Me.Refresh()
 End Sub
End Class

主窗体文本以vb.net形式对齐

1 个答案: