validating text

[krusty]

am currently working on an inventory system for the I.T department. The system is used to store information about all the computers in the company including the username, OS Version, IP Address e.t.c Now i want to validate a text box such that the user can only enter a valid IP address in the usual format *.*.*.* e.g 123.456.67.0. Does anyone have any sample code to do that?

[sendtoanurag]

Put this code for validation

If Text1 Like "###.###.##.#." Then
'Do ur work
Else
Text1.setFocus
Alert User
End If


'# for numbers

[krusty]

Put this code for validation

If Text1 Like "###.###.##.#." Then
'Do ur work
Else
Text1.setFocus
Alert User
End If


'# for numbers

thanks alot mate the code somehow works but there is one hitch, i can only enter an IP address that has 3 values througout. eg 123.456.678.901
What if the IP address is something like 123.34.456.4.
the IP addresses vary but your code is only allows one way of entering them.
all in all thanks alot partner, atleast now i have a clue so modifing the code wont be very difficult

[krusty]

whats wrong with my code?
Private Sub txtIP_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtIP.LostFocus
If txtIP.Text Like "###.###.###.###" Then
MsgBox(" IP Address is OK!!", MsgBoxStyle.Information)
Else
MsgBox("Invalid IP Address", MsgBoxStyle.Critical)
txtIP.Focus()
txtIP.Clear()
End If
End Sub

[sendtoanurag]

I've used it in my projetc
But be sure to add exception handler

Public Function ValidateIp(ByVal strIPAddress As String) As Boolean

Dim IPAddress
Dim lngNum As Long
Dim lngNumCount As Long

IPAddress = Split(strIPAddress, ".", , vbTextCompare)
If IsArray(IPAddress) Then
For lngNum = LBound(IPAddress) To UBound(IPAddress)
lngNumCount = lngNumCount + 1
IPAddress(lngNum) = CByte(IPAddress(lngNum))
Next
ValidateIp = (lngNumCount = 4)
End If
End Function