每个文本框输入只允许为数字，范围为0~255，超过255提示，按小数点会自动跳到下一个文本框。还有批量添加输入的IP段到ACCESS和批量删除应该怎么写？显示控件是msflexgird
小弟刚学VB，只会写到这里，请大神们帮帮忙哈。
Private Sub Text1_Change()
If Len(Text1.Text) = 3 Then Text2.SetFocus
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 8 Then Exit Sub
If KeyAscii < 48 Or KeyAscii > 57 Then KeyAscii = 0
End Sub

[此贴子已经被作者于2016-7-11 13:04编辑过]

做成二个文本框数组，分别是：Text1(0)、Text1(1)、Text1(2)、Text1(3)、Text2(0)、Text2(1)、Text2(2)、Text2(3)，然后在Change事件中检测数据是否大于255或小于0就可以。

Private Sub Text1_Change(Index As Integer)
Dim X As Integer
X = Index
If Val(Text1(X).Text) > 255 Or Val(Text1(X).Text) < 0 Then
    MsgBox "IP地址范围为0到255之间，不能大于255，也不能小于0！"
    Text1(X).Text = ""
    Text1(X).SetFocus
End If
End Sub