Textbox Edit Mask

[oxbow123]

I have a textbox used to enter date, and I would like to use and edit mask __/__/____ so user don't have to enter "/"


Idem for numerix textbox, is there a method to allow only numeric value inside textbox ?


and last one an edit mask which put all in lower case exept the first letter in uppercase.

duPOnt => Dupont


Thanks

[Pirate]

This allows only numeric values .

Dim KeyAscii As Integer
        KeyAscii = Asc(e.KeyChar)
 
        Select Case KeyAscii
            Case Asc("0") To Asc("9")
 
                e.Handled = False
            Case Else
                e.Handled = True
        End Select

[Pirate]

Put that code into keypress event of the specified textbox .

[oxbow123]

Thanks

[skaterx2]

The textbox object has a property called CharacterCasing which you can set to force all characters to lower case.

[Pirate]

Originally posted by skaterx2
The textbox object has a property called CharacterCasing which you can set to force all characters to lower case.

This does the same .

TextBox1.Text = StrConv(str, VbStrConv.LowerCase)

[oxbow123]

And to put only the first caractere in uppercase :

aPpLe = Apple ???

[Pirate]

TextBox1.Text = StrConv(str, VbStrConv.ProperCase)

[oxbow123]

Thanks but it change the first letter of all words in the textbox

What I would like is to change only the first Letter of the first word.


I thinks I'll need to create a small function for that.

Do I need to create a class when I create a function that can be used by all my forms ?

What could be the code ?


Thanks to all for your support, I'll finish my application this WE.

It's great to find peoples who are sharing their knowledge

[Pirate]

You don't need to create new class , just paste the code below in a module file then you can call it from anywhere within your project .

Public Function MyFunction(ByVal ProcessStr As String) As String
Dim CaptL As String = UCase(RSet(ProcessStr, 1))
Dim ResultStr As String
 
ResultStr = CaptL + ProcessStr.Remove(0, 1)
Return ResultStr.ToString
End Function

Usage (one way like this ) :

MessageBox.Show(MyFunction(TextBox1.Text))

[oxbow123]

Great you are the best

[EyeTalion]

why not use the DateTimePicker?