- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助] 能否做输入ＩＰ效果的TextBox (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=75078)
-- 发布时间：2015/9/26 0:13:00
-- [求助] 能否做输入ＩＰ效果的TextBox
此主题相关图片如下：textbox.bmp
能否做出输入ＩＰ效果的TextBox ：文本框中本来就有"."，而且只能输入数字，且输入完三位数字后焦点自动移动到后面。
-- 发布时间：2015/9/26 0:22:00
--
当然可以
在文本框的输入掩码处填入:000.000.000
-- 发布时间：2015/9/26 9:42:00
--
能否做出输入ＩＰ效果的TextBox ：文本框中本来就有"."，而且只能输入数字（也只能输入０－２５５），
且输入完三位数字(或者输入一位数字或者两位数字，然后按"."，焦点同样会移动到下一个该输入的位置)后焦点自动移动到后面。
[此贴子已经被作者于2015/9/26 15:22:18编辑过]
-- 发布时间：2015/9/28 9:23:00
--
TextChanged事件
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