如何为代码指定的TextBox应用格式？Text属性赋值后格式不生效求解

问题分析 #

你通过Controls.Find定位TextBox后，直接给.Text赋值字符串无法应用格式，但.Value可以生效，核心原因是：

• .Text是纯字符串属性，直接赋值不会触发控件的格式解析逻辑；
• .Value（部分TextBox衍生控件如MaskedTextBox、绑定数据的TextBox支持）会基于控件的格式设置自动处理数值到字符串的转换。

可行解决办法 #

1. 针对支持.Value属性的控件（如MaskedTextBox）

直接赋值.Value而非.Text，同时确保控件已配置好格式规则：

Dim i As Integer = 1
Dim ctrl As Control()
Dim txtBox As String = "textbox" + CStr(i)

ctrl = Me.Controls.Find(txtBox, True)
' 先确认控件类型是MaskedTextBox或支持Value的TextBox
If TypeOf ctrl(0) Is MaskedTextBox Then
    CType(ctrl(0), MaskedTextBox).Mask = "0.000" ' 设置格式掩码
    CType(ctrl(0), MaskedTextBox).Value = 0.95 ' 赋值数值，控件自动应用格式
End If

2. 普通TextBox手动格式化字符串

如果是标准TextBox，先将数值按所需格式转换为字符串再赋值：

Dim i As Integer = 1
Dim ctrl As Control()
Dim txtBox As String = "textbox" + CStr(i)
Dim targetValue As Double = 0.95

ctrl = Me.Controls.Find(txtBox, True)
' 手动格式化字符串为保留三位小数的格式
CType(ctrl(0), TextBox).Text = targetValue.ToString("0.000")

3. 绑定数据源并配置格式

如果TextBox需要长期复用格式规则，可通过数据绑定实现，后续更新数据源即可自动应用格式：

Dim i As Integer = 1
Dim ctrl As Control()
Dim txtBox As String = "textbox" + CStr(i)
' 假设已有数据源对象（如DataTable或自定义实体）
Dim yourDataSource As New YourDataClass()

ctrl = Me.Controls.Find(txtBox, True)
' 创建绑定并设置格式
Dim binding As New Binding("Text", yourDataSource, "TargetField")
binding.FormatString = "0.000"
CType(ctrl(0), TextBox).DataBindings.Add(binding)

' 更新数据源，TextBox自动应用格式
yourDataSource.TargetField = 0.95

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