Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
TextBox Question
How do I put text in a textbox and make it go away as soon as the user clicks
in the field to enter their own information? I know how to put text in the field but you have to highlight it and delete it if you want to enter new information. |
#2
Posted to microsoft.public.excel.misc
|
|||
|
|||
TextBox Question
Where did you get the TextBox from? The Drawing Toolbar on the worksheet?
The Control Toolbox toolbar on the worksheet? The Control Toolbox in the VB editor for placement on a UserForm? Rick "Jim" wrote in message ... How do I put text in a textbox and make it go away as soon as the user clicks in the field to enter their own information? I know how to put text in the field but you have to highlight it and delete it if you want to enter new information. |
#3
Posted to microsoft.public.excel.misc
|
|||
|
|||
TextBox Question
Control Toolbox In VB - A UserForm
"Rick Rothstein (MVP - VB)" wrote: Where did you get the TextBox from? The Drawing Toolbar on the worksheet? The Control Toolbox toolbar on the worksheet? The Control Toolbox in the VB editor for placement on a UserForm? Rick "Jim" wrote in message ... How do I put text in a textbox and make it go away as soon as the user clicks in the field to enter their own information? I know how to put text in the field but you have to highlight it and delete it if you want to enter new information. |
#4
Posted to microsoft.public.excel.misc
|
|||
|
|||
TextBox Question
As you know, Tab'bing into the TextBox automatically highlights (selects)
the text by default so that the user can type over (replace) it or click into it to edit it. You can make a mouse click into the TextBox do the same thing... will that be acceptable? If so, copy/Paste the following code into your UserForm's code window... '*************** START OF CODE *************** Dim ClickedOnceAlready As Boolean Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) ClickedOnceAlready = False End Sub Private Sub TextBox1_MouseDown(ByVal Button As Integer, _ ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) If Not ClickedOnceAlready Then ClickedOnceAlready = True With TextBox1 .SelStart = 0 .SelLength = Len(.Text) End With End If End Sub '*************** END OF CODE *************** Rick "Jim" wrote in message ... Control Toolbox In VB - A UserForm "Rick Rothstein (MVP - VB)" wrote: Where did you get the TextBox from? The Drawing Toolbar on the worksheet? The Control Toolbox toolbar on the worksheet? The Control Toolbox in the VB editor for placement on a UserForm? Rick "Jim" wrote in message ... How do I put text in a textbox and make it go away as soon as the user clicks in the field to enter their own information? I know how to put text in the field but you have to highlight it and delete it if you want to enter new information. |
#5
Posted to microsoft.public.excel.misc
|
|||
|
|||
TextBox Question
Thanks, I modified it a little to just delete what text was already there.
Really appreciate it. thanks again '*************** START OF CODE *************** Dim ClickedOnceAlready As Boolean Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) ClickedOnceAlready = False End Sub Private Sub TextBox1_MouseDown(ByVal Button As Integer, _ ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) If Not ClickedOnceAlready Then ClickedOnceAlready = True With TextBox1 TextBox1.value = "" End With End If End Sub '*************** END OF CODE *************** "Rick Rothstein (MVP - VB)" wrote: As you know, Tab'bing into the TextBox automatically highlights (selects) the text by default so that the user can type over (replace) it or click into it to edit it. You can make a mouse click into the TextBox do the same thing... will that be acceptable? If so, copy/Paste the following code into your UserForm's code window... '*************** START OF CODE *************** Dim ClickedOnceAlready As Boolean Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) ClickedOnceAlready = False End Sub Private Sub TextBox1_MouseDown(ByVal Button As Integer, _ ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) If Not ClickedOnceAlready Then ClickedOnceAlready = True With TextBox1 .SelStart = 0 .SelLength = Len(.Text) End With End If End Sub '*************** END OF CODE *************** Rick "Jim" wrote in message ... Control Toolbox In VB - A UserForm "Rick Rothstein (MVP - VB)" wrote: Where did you get the TextBox from? The Drawing Toolbar on the worksheet? The Control Toolbox toolbar on the worksheet? The Control Toolbox in the VB editor for placement on a UserForm? Rick "Jim" wrote in message ... How do I put text in a textbox and make it go away as soon as the user clicks in the field to enter their own information? I know how to put text in the field but you have to highlight it and delete it if you want to enter new information. |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Private Textbox Exit Sub question... | Excel Worksheet Functions | |||
Textbox question | Excel Discussion (Misc queries) | |||
Textbox question | Excel Discussion (Misc queries) | |||
Textbox question? | Excel Discussion (Misc queries) | |||
UserForm TextBox/ComboBox question | Excel Discussion (Misc queries) |