UC知道VB判断网址输入
来源：百度知道 编辑：UC知道 时间：2024/05/30 09:26:15
我要用VB判断网址输入是否正确,如果不正确,做一个提示
if text....... then
msgbox.....如果正确判断
else
msgbox ....如果不正确判断
end if
if text....... then
msgbox.....如果正确判断
else
msgbox ....如果不正确判断
end if
Private Sub Command1_Click()
If Jianca(Text1.Text) Then
MsgBox "网址正确"
Else
MsgBox "网址不正确"
End If
End Sub
Function Jianca(st As String) As Boolean
ss = Split(st, ".")
nss = UBound(ss)
If nss = 3 Then
For i = 0 To 3
If Val(ss(i)) < 0 Or Val(ss(i)) >= 1000 Or (Not IsNumeric(ss(i))) Then Exit For
Next
If i = 4 Then Jianca = True
End If
End Function
呵呵,我看成是IP了,算了,不改了