Highlight Textbox text when user clicks inside the textbox

[Chris Macro]

I got the below code from another thread but it only works when you click the textbox, not the actual text:

<font face=Calibri><SPAN style="color:#00007F">Private</SPAN> <SPAN style="color:#00007F">Sub</SPAN> HighPercent_Enter()<br>  <br>    <SPAN style="color:#00007F">With</SPAN> HighPercent<br>        .SetFocus<br>        .SelStart = 0<br>        .SelLength = Len(HighPercent.Text)<br>    <SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">With</SPAN><br>        <br><SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN></FONT>

 

[Andrew Poulsom]

Try using the MouseDown event procedure.

 

[Chris Macro]

When I use the MouseDown event I get the following compile error: "Procedure declaration does not match description of event or procedure having the same name"

<font face=Calibri><SPAN style="color:#00007F">Private</SPAN> <SPAN style="color:#00007F">Sub</SPAN> HighPercent_MouseDown()<br>  <br>    <SPAN style="color:#00007F">With</SPAN> HighPercent<br>        .SetFocus<br>        .SelStart = 0<br>        .SelLength = Len(HighPercent.Text)<br>    <SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">With</SPAN><br>        <br><SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN></FONT>

 

[Andrew Poulsom]

Select the event from the right hand dropdown above the code window and you will get:

Private Sub HighPercent_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

End Sub

 

[Chris Macro]

Are there other events that you have to pull down from the dropdown? I've never had to do that with any others that I've used. Also, is there a way to cover 4 individual textboxes with this code, or do I need to make a separate MouseDown event for each textbox? Thanks for the help!

 

[Andrew Poulsom]

It's always best to select from the dropdown. Then you will never get the error you saw.

You could use a Class module to apply the same code to multiple TextBoxes.

 

[Chris Macro]

Good advice, I will use that dropdown menu from now on. Could you give me an example of how to use a class module? I've never used one before.

 

[Andrew Poulsom]

Here's an example:

http://www.mrexcel.com/forum/excel-questions/65901-multiple-textboxes-same-code.html

 

[Chris Macro]

Thanks for the example code. I tried it out and I keep getting a "User-defined type not defined" on this line:

Dim TBs() as New TBClass

Class Module (Named: Analysis_Events)

<font face=Calibri><SPAN style="color:#00007F">Public</SPAN> <SPAN style="color:#00007F">WithEvents</SPAN> TBGroup <SPAN style="color:#00007F">As</SPAN> MSForms.TextBox<br><SPAN style="color:#007F00">' Anytime a MouseDown event occurs to any TextBox, the sub fires</SPAN><br><SPAN style="color:#00007F">Private</SPAN> <SPAN style="color:#00007F">Sub</SPAN> TBGroup_MouseDown(<SPAN style="color:#00007F">ByVal</SPAN> Button <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Integer</SPAN>, _<br>    <SPAN style="color:#00007F">ByVal</SPAN> Shift <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Integer</SPAN>, <SPAN style="color:#00007F">ByVal</SPAN> X <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Single</SPAN>, <SPAN style="color:#00007F">ByVal</SPAN> Y <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Single</SPAN>)<br>    <br>    <SPAN style="color:#00007F">With</SPAN> TBGroup<br>        .SetFocus<br>        .SelStart = 0<br>        .SelLength = Len(TBGroup.Text)<br>    <SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">With</SPAN><br><SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN><br></FONT>

UserForm Module (Named: Analysis)

<font face=Calibri><SPAN style="color:#00007F">Dim</SPAN> TBs() <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">New</SPAN> TBClass<br><br><SPAN style="color:#00007F">Private</SPAN> <SPAN style="color:#00007F">Sub</SPAN> userform_Initialize()<br><br><SPAN style="color:#00007F">Dim</SPAN> TBCount <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Integer</SPAN><br><SPAN style="color:#00007F">Dim</SPAN> Ctrl <SPAN style="color:#00007F">As</SPAN> Control<br>    <br>    TBCount = 0<br>    <SPAN style="color:#00007F">For</SPAN> <SPAN style="color:#00007F">Each</SPAN> Ctrl <SPAN style="color:#00007F">In</SPAN> Analysis.Controls<br>        <SPAN style="color:#00007F">If</SPAN> TypeName(Ctrl) = "TextBox" <SPAN style="color:#00007F">Then</SPAN><br>            TBCount = TBCount + 1<br>            <SPAN style="color:#00007F">ReDim</SPAN> <SPAN style="color:#00007F">Preserve</SPAN> TBs(1 <SPAN style="color:#00007F">To</SPAN> TBCount)<br>            <SPAN style="color:#00007F">Set</SPAN> TBs(TBCount).TBGroup = Ctrl<br>        <SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">If</SPAN><br>    <SPAN style="color:#00007F">Next</SPAN> Ctrl</FONT>

 

[Andrew Poulsom]

In the link I posted it says:

' Class module named TBClass

If you change that you will have to change:

Dim TBs() As New TBClass