static txt As String = "" Dim idx As Integer = e.sender.SelectionStart Dim ary() As String = e.sender.text.split(".") For Each s As String In ary s = val(s) * 10 ^ (3 - s.length) If s < 0 OrElse s > 255 Then e.sender.Text = txt Return End If Next txt = e.sender.text
加好友 
发短信
Post By：2015/9/28 9:23:00 [显示全部帖子]
