|
#2
ZHRXJR2016-07-12 09:40
做成二个文本框数组，分别是：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 |
只有本站会员才能查看附件，请 登录
只有本站会员才能查看附件，请 登录
只有本站会员才能查看附件，请 登录
小弟刚学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编辑过]