VB.Net用户控件需暴露哪些属性以支持设计器中文本基线对齐？

嘿，Mark！要让你的带TextBox和省略号按钮的UserControl在Visual Studio设计器里和普通TextBox一样支持边缘对齐、文本基线对齐，你需要暴露并同步几个关键属性，让设计器能正确识别控件的布局和文本特征。具体如下：

• Text 属性
  把内部TextBox的Text属性暴露为UserControl的公共属性，这样设计器能识别控件的文本内容，同时确保UserControl的文本和内部输入框保持一致。这是基线对齐的基础——设计器需要知道控件显示的文本是什么，才能匹配其他控件的基线位置。

  示例代码：

  <Browsable(True), Bindable(True), DesignerSerializationVisibility(DesignerSerializationVisibility.Visible)>
  Public Overrides Property Text As String
      Get
          Return txtInput.Text
      End Get
      Set(value As String)
          txtInput.Text = value
          MyBase.Text = value ' 同步UserControl自身的Text属性
      End Set
  End Property
  

• Font 属性
  文本基线的计算完全依赖于字体，所以必须把内部TextBox（最好也包括省略号按钮）的Font属性同步到UserControl的Font属性。这样设计器会用这个字体来计算基线位置，让你的UserControl和其他控件的文本基线完美对齐。

  示例代码：

  <Browsable(True), Bindable(True)>
  Public Overrides Property Font As Font
      Get
          Return txtInput.Font
      End Get
      Set(value As Font)
          txtInput.Font = value
          btnEllipsis.Font = value ' 同步省略号按钮的字体（可选但建议）
          MyBase.Font = value
      End Set
  End Property
  

• Padding 属性
  这个属性控制UserControl内部TextBox和省略号按钮与控件边界的间距。暴露并正确绑定它，能让设计器准确计算控件的有效边界，支持左、右、上、下边缘的对齐操作。同时你可以在属性的setter里自动调整内部控件的位置和大小，保证布局一致性。

  示例代码：

  <Browsable(True), Bindable(True)>
  Public Overrides Property Padding As Padding
      Get
          Return MyBase.Padding
      End Get
      Set(value As Padding)
          MyBase.Padding = value
          ' 自动调整内部控件位置和大小
          txtInput.Location = New Point(value.Left, value.Top)
          txtInput.Width = Me.ClientSize.Width - value.Left - value.Right - btnEllipsis.Width
          txtInput.Height = Me.ClientSize.Height - value.Top - value.Bottom
          btnEllipsis.Location = New Point(Me.ClientSize.Width - value.Right - btnEllipsis.Width, value.Top)
          btnEllipsis.Height = Me.ClientSize.Height - value.Top - value.Bottom
      End Set
  End Property
  

• TextAlign 属性
  暴露内部TextBox的TextAlign属性，确保UserControl的文本对齐方式和内部输入框一致。这能避免因文本对齐方式不同导致的基线偏移，让对齐更精准。

  示例代码：

  <Browsable(True), Bindable(True)>
  Public Property TextAlign As HorizontalAlignment
      Get
          Return txtInput.TextAlign
      End Get
      Set(value As HorizontalAlignment)
          txtInput.TextAlign = value
      End Set
  End Property
  

• Margin 属性
  虽然UserControl默认自带Margin属性，但要确保它在设计器中是可编辑的（默认已经是）。这个属性控制控件之间的外边距，支持设计器里的间距对齐操作，让你的UserControl和其他控件的间距保持一致。

另外，额外提个小技巧：可以重写UserControl的GetPreferredSize方法，让控件能根据内部内容自动调整大小，这样设计器里的对齐操作会更顺畅：

Public Overrides Function GetPreferredSize(proposedSize As Size) As Size
    Dim textWidth = TextRenderer.MeasureText(txtInput.Text, txtInput.Font).Width
    Dim totalWidth = textWidth + btnEllipsis.Width + Me.Padding.Left + Me.Padding.Right
    Dim totalHeight = Math.Max(txtInput.Font.Height, btnEllipsis.Font.Height) + Me.Padding.Top + Me.Padding.Bottom
    Return New Size(totalWidth, totalHeight)
End Function

这样设置后，你的UserControl在设计器里就会和普通TextBox一样，支持所有的对齐和基线匹配功能啦！

内容的提问来源于stack exchange，提问作者Mark Roworth