Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Text box selection
I have a form with a text box containing a date formatted as mm/dd/yyyy.
When the box gets focus, I want the mm/dd part to be selected for replacement. So far, I have the following: Private Sub TextBox1_Enter() TextBox1.SelStart = 0 TextBox1.SelLength = 5 End Sub Private Sub UserForm_initialize() TextBox1.Value = "01/01/4000" TextBox2.Value = "04/03/1999" End Sub When the form comes up, textbox1 has focus and 01/01 is highlighted. But when I press <enter, <tab, or click on a text box to enter it, it seems that '_Enter()' doesn't fire at that time. How can I get the first 5 characters highlighted every time I enter the text box? |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Text box selection
Tim
Change the EnterFieldBehavior to 1 for the Textboxes and it should work. -- Dick Kusleika MVP - Excel Excel Blog - Daily Dose of Excel www.dicks-blog.com "Tim Coddington" wrote in message ... I have a form with a text box containing a date formatted as mm/dd/yyyy. When the box gets focus, I want the mm/dd part to be selected for replacement. So far, I have the following: Private Sub TextBox1_Enter() TextBox1.SelStart = 0 TextBox1.SelLength = 5 End Sub Private Sub UserForm_initialize() TextBox1.Value = "01/01/4000" TextBox2.Value = "04/03/1999" End Sub When the form comes up, textbox1 has focus and 01/01 is highlighted. But when I press <enter, <tab, or click on a text box to enter it, it seems that '_Enter()' doesn't fire at that time. How can I get the first 5 characters highlighted every time I enter the text box? |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Text box selection
Thanks. That helps alot except for when you click on the box to enter it.
Is there any way to make it work then also? "Dick Kusleika" wrote in message ... Tim Change the EnterFieldBehavior to 1 for the Textboxes and it should work. -- Dick Kusleika MVP - Excel Excel Blog - Daily Dose of Excel www.dicks-blog.com "Tim Coddington" wrote in message ... I have a form with a text box containing a date formatted as mm/dd/yyyy. When the box gets focus, I want the mm/dd part to be selected for replacement. So far, I have the following: Private Sub TextBox1_Enter() TextBox1.SelStart = 0 TextBox1.SelLength = 5 End Sub Private Sub UserForm_initialize() TextBox1.Value = "01/01/4000" TextBox2.Value = "04/03/1999" End Sub When the form comes up, textbox1 has focus and 01/01 is highlighted. But when I press <enter, <tab, or click on a text box to enter it, it seems that '_Enter()' doesn't fire at that time. How can I get the first 5 characters highlighted every time I enter the text box? |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Text box selection
Tim
You could use the MouseDown event also, but you'll need a way to limit that to only when the textbox is first selected. I'm not sure if there are any problems with this, but here's something you could try: Dim bEntered As Boolean Private Sub TextBox1_Change() bEntered = False End Sub Private Sub TextBox1_Enter() Me.TextBox1.SelStart = 0 Me.TextBox1.SelLength = 3 bEntered = True End Sub Private Sub TextBox1_MouseDown(ByVal Button As Integer, _ ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) If bEntered Then Me.TextBox1.SelStart = 0 Me.TextBox1.SelLength = 3 bEntered = False End If End Sub -- Dick Kusleika MVP - Excel Excel Blog - Daily Dose of Excel www.dicks-blog.com "Tim Coddington" wrote in message ... Thanks. That helps alot except for when you click on the box to enter it. Is there any way to make it work then also? "Dick Kusleika" wrote in message ... Tim Change the EnterFieldBehavior to 1 for the Textboxes and it should work. -- Dick Kusleika MVP - Excel Excel Blog - Daily Dose of Excel www.dicks-blog.com "Tim Coddington" wrote in message ... I have a form with a text box containing a date formatted as mm/dd/yyyy. When the box gets focus, I want the mm/dd part to be selected for replacement. So far, I have the following: Private Sub TextBox1_Enter() TextBox1.SelStart = 0 TextBox1.SelLength = 5 End Sub Private Sub UserForm_initialize() TextBox1.Value = "01/01/4000" TextBox2.Value = "04/03/1999" End Sub When the form comes up, textbox1 has focus and 01/01 is highlighted. But when I press <enter, <tab, or click on a text box to enter it, it seems that '_Enter()' doesn't fire at that time. How can I get the first 5 characters highlighted every time I enter the text box? |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
How to determine the text selection? | Excel Discussion (Misc queries) | |||
Text Alighnment Across Selection | Excel Discussion (Misc queries) | |||
Text selection will not turn off | Excel Discussion (Misc queries) | |||
Copy Selection - Transpose Selection - Delete Selection | Excel Discussion (Misc queries) | |||
losing text from text box when pasting selection to word | Excel Discussion (Misc queries) |