VB.NET：在绘制到控件之前查找要绘制的文本的大小

我正在创建用户控件并为其添加文本大小属性。在绘制控件之前，我需要知道文本大小有多大，以便我可以将它与控件的高度和宽度相关联。VB.NET：在绘制到控件之前查找要绘制的文本的大小

我假设这是一个Windows API命令。但是我一直无法找到它的任何信息。

Public Sub DrawImage(ByVal gr As Graphics) 
     If Me.Image Is Nothing Then Return 
     Dim r As Rectangle = New Rectangle(8, 8, Me.ImageSize.Width, Me.ImageSize.Height) 
     Select Case Me.ImageAlign 
      Case ContentAlignment.TopLeft 
       r = New Rectangle(4, 4, Me.ImageSize.Width, Me.ImageSize.Height) 
      Case ContentAlignment.TopCenter 
       r = New Rectangle((Me.Width/2 - Me.ImageSize.Width/2)/2, 4, Me.ImageSize.Width, Me.ImageSize.Height) 
      Case ContentAlignment.TopRight 
       r = New Rectangle(Me.Width - 4 - Me.ImageSize.Width, 4, Me.ImageSize.Width, Me.ImageSize.Height) 
      Case ContentAlignment.MiddleLeft 
       r = New Rectangle(8, Me.Height/2 - Me.ImageSize.Height/2, Me.ImageSize.Width, Me.ImageSize.Height) 
      Case ContentAlignment.MiddleCenter 
       r = New Rectangle(Me.Width/2 - Me.ImageSize.Width/2, Me.Height/2 - Me.ImageSize.Height/2, Me.ImageSize.Width, Me.ImageSize.Height) 
      Case ContentAlignment.MiddleRight 
       r = New Rectangle(Me.Width - 8 - Me.ImageSize.Width, Me.Height/2 - Me.ImageSize.Height/2, Me.ImageSize.Width, Me.ImageSize.Height) 
      Case ContentAlignment.BottomLeft 
       r = New Rectangle(8, Me.Height - 8 - Me.ImageSize.Height, Me.ImageSize.Width, Me.ImageSize.Height) 
      Case ContentAlignment.BottomCenter 
       r = New Rectangle(Me.Width/2 - Me.ImageSize.Width/2, Me.Height - 8 - Me.ImageSize.Height, Me.ImageSize.Width, Me.ImageSize.Height) 
      Case ContentAlignment.BottomRight 
       r = New Rectangle(Me.Width - 8 - Me.ImageSize.Width, Me.Height - 8 - Me.ImageSize.Height, Me.ImageSize.Width, Me.ImageSize.Height) 
     End Select 
     gr.DrawString("Header", New Font("MS SANS SERIF", 8.25, FontStyle.Regular, GraphicsUnit.Point, 1, True), Brushes.Black, 0, 0) 

     'gr.DrawImage(Me.Image, r) 
    End Sub

正如你可以看到@ gr.DrawString，我需要知道文字有多大预测是让我能规模的控制和中心控制中的文本。

来源

2012-10-15 Ccorock

尝试MeasureString（）

gr.MeasureString("Header", New Font("MS SANS SERIF", 8.25, FontStyle.Regular, GraphicsUnit.Point, 1, True)).Width

来源

2012-10-15 15:37:19 Ceres

VB.NET：在绘制到控件之前查找要绘制的文本的大小

回答

相关问题