Private Sub IP_input_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles txt_IPinput1.TextChanged, txt_IPinput4.TextChanged, txt_IPinput3.TextChanged, txt_IPinput2.TextChanged
Hi,
Checks to see if 3 characters have been entered in each textbox and if TRUE sets the focus to the next control in the hierachy.
By the nature of the Sub name above it is allowing 3 characters to be entered at the most as in inputting an IP address into separate textboxes without the dots.
However it doesn't check if the input is a mixture of letters and numbers or just letters
i.e. non-numeric or whether the value entered exceeds 255.
Private Sub IP_input_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) _
Handles txt_IPinput1.TextChanged, txt_IPinput2.TextChanged, _
txt_IPinput3.TextChanged, txt_IPinput4.TextChanged
' If length is 3 then focus next control
If isnumeric(myControl.text)=True And _
Cint(myControl.text)>=0 And _
Cint(myControl.text)<=255 And _
myControl.text.Length = 3 Then
Call focusNext()
Else
CintMsgBox("Please enter a number as a string as only between 000 & 255")
End If
End Sub
The above modified code should work better for IP input.
Regards,
S_DS.
Although the above will improve your code it doesn't sort out your problem which arises because you have Option Strict On (which isn't a problem!) and you are implicitly making a narrowing conversion (which Option Strict On prevents) when you write the bit "sender.text"
If you change sender.text to control.text which you have already declared at the start of the sub you should find the problem goes away.
Hi,
Thanks Dave i didn't spot that, i was amending the original post code.
Been in work last night, not had much sleep. Zzzzz.
I'll edit my post now. :-)
All the best to you for 2007. 
Regards,
S_DS
thanks everyone & Happy New Year i wanted to bring my code further so i tried to select all in the text box so that the user can edit it but it seems that it always selects the last 2 numbers only. i used: Else
That improved my code
MessageBox.Show("An Error has Occurred!" ...)
control.SelectAll()
...
That ought to work.
Looking at the code posted above again I've noticed a couple of problems with it. 1. it produces the messagebox after each number entered; 2. it generates an exception if you enter anything other than numbers.
The following works for me:
Private Sub IP_input_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles txt_IPinput1.TextChanged, txt_IPinput2.TextChanged, txt_IPinput3.TextChanged, txt_IPinput4.TextChanged
Dim control As TextBox = CType(sender, TextBox)
If control.Text.Length = 3 Then
If IsNumeric(control.Text) = True AndAlso CInt(control.Text) >= 0 AndAlso CInt(control.Text) <= 255 Then
SelectNextControl(control, True, True, True, False)
Else
MsgBox("Please enter a number between 000 & 255")
control.SelectAll()
End If
End If
End Sub
Since you asked about latebinding the following may be useful links -
Option Strict: http://msdn2.microsoft.com/en-us/library/zcd4xwzs.aspx
VB Internals: http://msdn2.microsoft.com/en-us/library/aa289509(vs.71).aspx#vbtchmicrosoftvisualbasicnetinternalsanchor3
Late Binding: http://msdn.microsoft.com/library/default.asp?url=/library/en-us/vbcn7/html/vaconEarlyLateBinding.asp
Late Bound Expressions: http://msdn.microsoft.com/library/default.asp?url=/library/en-us/vbls7/html/vblrfvbspec9_8.asp
A video about latebinding in VB .NET :http://msdn.microsoft.com/msdntv/episode.aspx?xml=episodes/en/20051201vbasicpv/manifest.xml
Hope this helps.
Shyam
As I could assume from the code, you try to get an IP address from user.
Instead of all this code, you can use just a MaskedTextBox to do all this work on its own.
