[Bluen]

I wanted to show an error message if the data (can be words or letters) entered but I don't have any idea on how:
-specify the types of characters used (whether numbers or letters)
-to limit the number of characters used
-and then go back to the form (where the error occur)

Additional info:
field name which need to have those message: ID(only numbers) and name(only letters)

[CharlieMay]

I have a snippet that should help with what you are wanting to do. Check it out and see if it helps you.

[Bluen]

Thanks, I'm still experimenting it

[Bluen]

could you or someone explain this

If chkStr.IndexOf(eChar) > -1 OrElse eChar = vbBack Then

[CharlieMay]

The chkStr is a string of characters to check against. -1 means it didn't find the character you are typing (didn't return an index) or if the keypress is the back space. The indexes will be 0 or above if a match is found.

So Basically, if an index of 0 or more is returned or the backspace key is pressed ...

This post has been edited by CharlieMay: 05 August 2010 - 07:00 AM

[Bluen]

what about my question on how to limit the number of characters used?

[CharlieMay]

Use the textboxes maxlength property

[Bluen]

What are the sender and textbox in this source code actually?

ByVal eChar As Char) As Boolean
        Dim chkstr As String = "$0123456789."
        If chkstr.IndexOf(eChar) > -1 OrElse eChar = vbBack Then
            If CType(sender, TextBox).Text.IndexOf(".") > -1 Then
                If CType(sender, TextBox).TextLength - CType(sender, TextBox).Text.IndexOf(".") > 2 And eChar <> vbBack Then
                    Return True
                End If
            End If
            If eChar = "$" Then
                If CType(sender, TextBox).TextLength > 0 Then
                    Return True
                Else
                    Return False
                End If
            End If
            If eChar = "." Then
                If CType(sender, TextBox).Text.IndexOf(eChar) > -1 Then
                    Return True
                Else
                    Return False
                End If
            End If
            Return False
        Else
            Return True
        End If
    End Function

[emresutisna]

Sender is the object that send the signal of hapened event. For example :

Private Sub btnOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOK.Click

On above code, the sender is btnOK. You use : CType(sender, textbox) because you implement the method on a TextBox so you have to convert the type of sender (commonly declare as System.Object) to a TextBox.

Hope it's clear and helping you

[AdamSpeight2008]

Why do cast the same argument multiple times?

CType(sender, TextBox)

Dim tb As TextBox=CType(sender, TextBox)

What if the type of sender can not be cast to a Textbox?
So it is even better to us a trycast, then test for for nothing.

  Dim tb As TextBox = TryCast(sender, TextBox)
  If tb Is Nothing Then Throw New ArgumentNullException("Sender is null")