IP地址文本框正则限制问题：无法输入多个小数点

你遇到的核心问题是当前的正则表达式限制了输入内容最多只能包含一个小数点，导致输入第二个小数点时会被判定为非法字符而被移除。我们来一步步修复这个问题：

问题根源分析 #

你当前使用的正则^[0-9]*\.?[0-9]*$逻辑是：允许任意数量的数字，后面可选一个小数点，再跟任意数量的数字。这个规则天然只能接受0或1个小数点，完全不符合IP地址需要3个分隔符的要求。

修复后的代码实现 #

我们替换为更贴合IP地址规则的正则，同时优化文本变更时的光标处理（避免修改文本后光标乱跑）：

Private Sub Ip_TextChanged(sender As Object, e As TextChangedEventArgs) Handles _ip.TextChanged
    ' 记录当前光标位置，避免修改文本后光标错位
    Dim cursorPosition As Integer = sender.SelectionStart
    Dim originalText As String = sender.Text

    ' 匹配合法IP段的正则：最多3个小数点，每个段是0-255的数字，禁止连续小数点、首尾小数点
    Dim ipRegex As String = "^(?:(?:25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)\.){0,3}(?:25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)?$"
    
    ' 如果当前文本不匹配规则，移除最后输入的字符
    If Not System.Text.RegularExpressions.Regex.IsMatch(originalText, ipRegex) Then
        If originalText.Length > 0 Then
            sender.Text = originalText.Remove(originalText.Length - 1, 1)
            ' 修正光标位置：如果光标不在末尾，回退一位；否则保持在末尾
            sender.SelectionStart = Math.Max(0, cursorPosition - 1)
        End If
    Else
        ' 文本合法时，保持光标位置不变
        sender.SelectionStart = cursorPosition
    End If
End Sub

关键细节说明 #

• 正则表达式解析：
  • 25[0-5]：匹配250-255的合法数字段
  • 2[0-4][0-9]：匹配200-249的合法数字段
  • [01]?[0-9][0-9]?：匹配0-199的合法数字段（支持单个数字、两位数字格式）
  • (?:...)\.{0,3}：允许0到3个带小数点的合法段
  • 最后的(?:...)：允许最后一个不带小数点的合法段
• 光标位置处理：修改文本前记录光标位置，修改后智能恢复（字符被移除时回退一位），提升用户输入流畅度
• 边界情况拦截：自动禁止连续小数点（如10..10）、首尾小数点（如.10.10.10或10.10.10.）以及超过255的段值

这样修改后，用户就能正常输入完整的10.10.10.10格式的IP地址，同时保留了禁止输入字母的限制，还额外增加了IP段合法性校验。

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