First char after a blank space in Uppercase? [RESOLVED]

[Sanko]

Hi again.
I making a project for school

in a textbox i must enter a name and it show the first character after a blank space in Uppercase

if i enter mike jordan the textbox must show Mike Jordan

I do a function but i have problems using the Backspace and Delete keys. The teacher want to do this with the keypress event, so i do this function but with my programing skill i cant do more. I hope you can help me.

This is the function maybe it can be optimized for a better code and i put the vb project.

[kleinma]

How about

Text1.Text = StrConv(Text1.Text, vbProperCase)

[DiGiTaIErRoR]

Yea...

I was gonna say...

That's an awful lot of code.

But simply for educational purposes I'll show you a good way of pattern searching.

i = instr(mystr," ")
'find first occurance of a space in the string also InstrRev(starts from end)
'loops while there is an occurance
While i
 'grabs the left part of the string upto the space, then grabs the letter after the space Ucase's it then adds the remaining string
 mystr = left$(mystr,i) & ucase(mid$(mystr,i+1,1)) & mid$(mystr, i+2)
'increment i to find the next occurance, if not found loop ends
i = instr(i+1,mystr," ")
Wend

[Sanko]

DiGiTaIErRoR and kleinma

Anyone of you donwloaded the zip? and see the vb project

[Spajeoly]

Please excuse me for being white, but, what zip?

[Sanko]

Here is the zip

[BuggyProgrammer]

Private Sub Text1_KeyPress(KeyAscii As Integer)
    If Len(Text1.Text) = 0 Then
        KeyAscii = Asc(UCase(Chr(KeyAscii)))
    ElseIf Mid(Text1.Text, Text1.SelStart, 1) = " " Then
        KeyAscii = Asc(UCase(Chr(KeyAscii)))
    End If
End Sub