Default command button

[jeffro]

I have made my cmdRun button a default button. My question is how can I get my textbox to capitalize once I press enter to run the program. I have a lost_focus routine and in my cmdRun sub I have the txtCubeCupName ucasing and trimming plus I have it so it setfocus. Does anyone have suggestions?

[thedee23]

Make sure you have your command button default property set to true and then in the cmdRun_click sub you want a statement like
txtCubeCupName.text = Trim$(UCase$(txtCubeCupName.text))

[jeffro]

I did that and it didn't work. Thank you for your help though. Any other suggestions?

[Chris_SE]

or how about after making cmdrun default use this
var = len(txtcubecupname)
sng1 = left(txtcubecupname,1)
sng2 = middle(txtcubecpname,2,var)
txtcubecupname = var
simpler code, though a bit longer

[thedee23]

Maybe I don't get your question but it works fine for me. What version of VB are you using?

[thedee23]

Chris_SE

Why are you populating the text box the the len of what the text box was before?

[jeffro]

I'm using Visual Basic 6.0

[thedee23]

Can you post your code?

[jeffro]

This is in my cmdRun sub:

If UCase(Trim(txtCubeCupName)) = "" Then
MsgBox "The Cube Cup Name must be entered."
txtCubeCupName.SetFocus
Exit Sub
End If

And then I have a Lost_Focus event:

Private Sub txtCubeCupName_LostFocus()
txtCubeCupName = UCase(Trim(txtCubeCupName))
End Sub

[thedee23]

In your cmdRun_click add the this line - cmdrun.setfocus. Look at the code below.....


Private Sub cmdRun_Click()
If UCase(Trim(txtCubeCupName)) = "" Then
MsgBox "The Cube Cup Name must be entered."
txtCubeCupName.SetFocus
Exit Sub
End If
cmdRun.SetFocus

End Sub
Private Sub txtCubeCupName_LostFocus()
txtCubeCupName = UCase(Trim(txtCubeCupName))
End Sub

[jeffro]

It still doesn't capitalize the data in the txtcubecupname.
But thanks for your help. Is this even possible?

[thedee23]

I am using the same code as you and when I press enter it capatilizes the text box like it is suppose to. Go in debug mode and make sure that your code is executing the cmdRun_click when you hit the enter button. If it doesn't then you must not have the cmdRun set to default

[HeSaidJoe]

put this in the keypress of the textbox in question:

'vb6
'capitalize all small case letters
'
    If Chr(KeyAscii) >= "a" And Chr(KeyAscii) <= "z" Then
        KeyAscii = KeyAscii - 32
    End If

[kedaman]

Here's an alternative to HeSaidJoes code that will capitalize all åäöüï characters

KeyAscii=Asc(Ucase(Chr(KeyAscii)))

[jeffro]

Hey thanks HeSaidJoe that keypress worked. Thanks thedee23 for being patient with me and all your help.

[Chris_SE]

or how about after making cmdrun default use this
var = len(txtcubecupname)
sng1 = left(txtcubecupname,1)
sng2 = middle(txtcubecpname,2,var)
var = sng1 & sng2
txtcubecupname = var

this should be the full thing