calling all VBA experts

[Steve Biehl - Cimquest Inc]

how do you make a form that you can tab thru the text boxes and have the values in the boxes be highlighted. I've written a VBA/VB Script function for Mastercam that starts with default values in the text boxes but the user can tab thru them and enter new data. Currently I highlight, with the mouse, the value in the box and overwrite it. Really want to be able to tab and then just type the new value.

 

How???

[Bullines]

In the VBA Editor, go Insert | User Form. You'll then have a form editor similar to VB6's. You can then add controls and code for that form. When you add Edit Controls (or any other controls for that matter) that you want to be able to tab to, make sure that each control has its Tab Stop property set to True. The Tab Index property determines the tab order.

 

To preselect text when you enter a text box, add something similar to the following to your text box's GotForus() sub:

 

code:

---

Private Sub WickedText_GotFocus()

WickedText.SelStart = 0

WickedText.SelLength = Len(WickedText.Text)

End Sub

---

HTH.

[Steve Biehl - Cimquest Inc]

Bullines,

I've got the form setup fine. 'Tab Stop' is True, 'Tab Index' is set for correct order.

 

The issue is that tabbing from field to field doesn't highlight the default value in the field. So you have to delete the default value or highlight the value and overwrite.

 

Is there a way to have the value highlight when you tab to the field?

[Steve Biehl - Cimquest Inc]

Sorry, slow typist. Didn't see the edit to your posting. I'll check it out and et back to you.

 

Thanks,

[Steve Biehl - Cimquest Inc]

Got a compilation error on .SelStart

 

???

[Steve Biehl - Cimquest Inc]

code:

---

 Private Sub txtParams_GotFocus(Index As Integer)

txtParams.SelStart = 0

txtParams.SelLength = Len(txtParams.Text)

End Sub

---

[Bullines]

Is txtParams a control array or a single text box?

[Steve Biehl - Cimquest Inc]

txtParams is a control array.

 

What would the code look like?

[Bullines]

How about:

 

code:

---

Private Sub txtParams_Enter(Index As Integer)

txtParams(Index).SelStart = 0

txtParams(Index).SelLength = Len(txtParams.Text)

End Sub

---

[Steve Biehl - Cimquest Inc]

Still doesn't like the

.SelStart

 

'Compile error:

method or data member not found'

[Bullines]

Hmmm, I know how to crete a control array in VB6. But how did you do it with VBA? What did you use to create the form? I don't think i follow what you've done.

 

code:

---

Private Sub txtParams_Enter(Index As Integer)

txtParams(Index).SelStart = 0

txtParams(Index).SelLength = Len(txtParams(Index).Text) '<- correction

End Sub

---

 

[ 08-12-2004, 07:20 PM: Message edited by: Bullines ]

[Steve Biehl - Cimquest Inc]

This worked, Went back to the 'GotFocus' from one of your first posts.

 

code:

---

 Private Sub txtParams_GotFocus(Index As Integer)

txtParams(Index).SelStart = 0

txtParams(Index).SelLength = Len(txtParams(Index).Text)

End Sub

---

Thanks for the help.

[Mick from CNC Software Inc.]

Steve,

 

I would create a function so that you don't have to write so much code in all of your textbox gotfocus events.

 

Module level function:

code:

---

Public Sub SelectAllText(p_Txt As TextBox)

 

On Error Resume Next

 

p_Txt.SelStart = 0

p_Txt.SelLength = Len(p_Txt.Text)

 

End Sub

---

One line of code is all we need now:

code:

---

Private Sub txtNestingOptions_GotFocus(Index As Integer)

SelectAllText txtNestingOptions(Index)

End Sub

---

[Bullines]

If we're talking VBA, that would be the only way, right Mick? I'm almost cetain that VBA doesn't directly support the creation of control arrays the way VB does. From poking around Office, I think that's true, what with all the ambiguity errors I got while trying to follow what Steve was trying

[Mick from CNC Software Inc.]

Bullines,

 

VBA does not directly support control arrays and it has auto highlighting when tabbing through textbox's anyway

 

My example above is from VB and that is what Steve is using, not VBA as he had mentioned, there is a difference

[Bullines]

This I know...since it's Enter() in VBA and GotFocus() in VB

[Mick from CNC Software Inc.]