Default command button

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?

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))

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

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

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

Chris_SE

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

I'm using Visual Basic 6.0

Can you post your code?

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

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

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

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

put this in the keypress of the textbox in question:

Code:

---

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

---

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

Code:

---

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

---

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

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