Solved

text selected in textbox when got focus

Posted on 2001-07-03
29
214 Views
Last Modified: 2012-06-21
0
Comment
Question by:RSiebeling
  • 16
  • 9
  • 2
  • +2
29 Comments
 
LVL 5

Expert Comment

by:jklmn
ID: 6248152
Try this:

Private Sub Text1_GotFocus()
Text1.SelStart = 0
Text1.SelLength = Len(Text1)
End Sub
0
 
LVL 51

Expert Comment

by:Ryan Chong
ID: 6248158
SelectedText = Text1.SelText
0
 
LVL 51

Expert Comment

by:Ryan Chong
ID: 6248159
or add

Sendkeys "{Home}+{End}" ?
0
Revamp Your Training Process

Drastically shorten your training time with WalkMe's advanced online training solution that Guides your trainees to action.

 

Author Comment

by:RSiebeling
ID: 6248168
I have done that,
that works,
but I also want that when you click with the mouse
in the textbox no text is selected, and the cursor is at the location of the mouse,

I have tried it with the following code in the click event
text1.selstart=0
text1.sellength=0

but thats not what i want, then the user sees that the text is selected and deselected and thats not what I want
0
 

Author Comment

by:RSiebeling
ID: 6248172
I see now that my question was not posted correctly,
Im sorry about that
0
 
LVL 51

Expert Comment

by:Ryan Chong
ID: 6248182
Hi RSiebeling,

Basically, when you click on the textbox, no text is selected
0
 

Author Comment

by:RSiebeling
ID: 6248184
I see now that my question was not posted correctly,
Im sorry about that
0
 

Author Comment

by:RSiebeling
ID: 6248195
thats true,

but i want that the text is selected when the user presses tab and the textbox got the focus,

just like the standard windows textbox controls,
(every microsoft textbox behaves just like i said)
0
 
LVL 1

Expert Comment

by:kavithag
ID: 6248198
Text _ Gotfocus Event:

text1.SelStart = 0
text1.SelLength = Len(txtDevCode.Text)
0
 
LVL 51

Expert Comment

by:Ryan Chong
ID: 6248204
Hi,

the simplest way is:

Private Sub Text1_GotFocus()
    Sendkeys "{Home}+{End}"
End Sub

Private Sub Text1_Click()
    Sendkeys "{Home}+{End}"
End Sub


..
0
 

Author Comment

by:RSiebeling
ID: 6248205
I have done that,
that works,
but I also want that when you click with the mouse
in the textbox no text is selected, and the cursor is at the location of the mouse,

0
 

Author Comment

by:RSiebeling
ID: 6248213
i have the following code in my application

Private Sub NAWNaam_Click()
    NAWNaam.SelStart = 0
    NAWNaam.SelLength = 0
   
End Sub

Private Sub NAWNaam_GotFocus()
    NAWNaam.SelStart = 0
    NAWNaam.SelLength = Len(NAWNaam)
   
End Sub

it works good when the user presses tab,
but when the user clicks with the mouse in the textbox,
the text is first selected and then it is deselected,
and I dont want to see that

0
 
LVL 51

Expert Comment

by:Ryan Chong
ID: 6248221
Hi, are you mean the cursor move as well as the mouse move?
0
 
LVL 51

Expert Comment

by:Ryan Chong
ID: 6248234
Hi RSiebeling,

This not working?
_______________________

Private Sub NAWNaam_Click()
   SendKeys "{Home}+{End}"
End Sub

Private Sub NAWNaam_GotFocus()
   SendKeys "{Home}+{End}"
End Sub

or not what you want?
0
 

Author Comment

by:RSiebeling
ID: 6248239
no i want the textbox control to behave just like the standard windows textbox control (like in word / excel / access / notepad / wordpad)

for example if you look at the wordpad,
if you go to format -> paragraph,

if you use tab to set the focus to another textbox, all the text in the textbox will be selected,
and if you use the mouse to set the focus to another textbox, no text is selected and the cursor is being placed at the position of the mouse
0
 

Author Comment

by:RSiebeling
ID: 6248247
0
 

Author Comment

by:RSiebeling
ID: 6248253
no thats not what i want,

i want that when the user clicks on the the textbox ,
no text is selected and the cursor is being placed at the location of the mouse,

just look at wordpad
0
 

Author Comment

by:RSiebeling
ID: 6248254
no thats not what i want,

i want that when the user clicks on the the textbox ,
no text is selected and the cursor is being placed at the location of the mouse,

just look at wordpad
0
 
LVL 51

Expert Comment

by:Ryan Chong
ID: 6248263
Hi, try this:

Private Sub NAWNaam_GotFocus()
   NAWNaam.SelStart = Len(NAWNaam)
   SendKeys "{Home}+{End}"
End Sub
0
 

Author Comment

by:RSiebeling
ID: 6248280
no thats not working,

when i click with the mouse in the textbox,
text is selected from the position of the mouse till the end of the text in the textbox
0
 
LVL 5

Accepted Solution

by:
jklmn earned 50 total points
ID: 6248281
OK, try this instead:

Private fromMouse As Boolean

Private Sub Text1_GotFocus()
If fromMouse Then
fromMouse = False
Else
Text1.SelStart = 0
Text1.SelLength = Len(Text1)
End If
End Sub

Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
fromMouse = True
End Sub
0
 

Author Comment

by:RSiebeling
ID: 6248285
no thats not working,

when i click with the mouse in the textbox,
text is selected from the position of the mouse till the end of the text in the textbox
0
 
LVL 51

Expert Comment

by:Ryan Chong
ID: 6248291
Hi, how?

Private Sub NAWNaam_Click()
    SendKeys "+{End}"
End Sub

Private Sub NAWNaam_GotFocus()
   NAWNaam.SelStart = Len(NAWNaam)
   SendKeys "{Home}+{End}"
End Sub
0
 

Author Comment

by:RSiebeling
ID: 6248296
no thats not working,

when i click with the mouse in the textbox,
text is selected from the position of the mouse till the end of the text in the textbox
0
 

Author Comment

by:RSiebeling
ID: 6248302
thats it,
now its working like i want
0
 

Author Comment

by:RSiebeling
ID: 6248304
thats it,
now its working like i want
0
 
LVL 3

Expert Comment

by:nigelrowe
ID: 6248313
how about...

Private Sub Text1_Click()
    Text1.SelStart = 0
    Text1.SelLength = Len(Text1.Text)
End Sub


The problem here is that you will have to deselect by using the arrow keys first, any other key will delete the whole lot
0
 
LVL 51

Expert Comment

by:Ryan Chong
ID: 6248325
Hi RSiebeling,

i wonder what you want now, actually remove all the code then try the code below will do the same thing, isn't it ?

But nvm lah :)

Private Sub NAWNaam_GotFocus()
  NAWNaam.SelStart = Len(NAWNaam)
  SendKeys "{Home}+{End}"
End Sub
0
 

Author Comment

by:RSiebeling
ID: 6248381
try this
Private fromMouse As Boolean

Private Sub Text1_GotFocus()
If fromMouse Then
fromMouse = False
Else
Text1.SelStart = 0
Text1.SelLength = Len(Text1)
End If
End Sub

Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
fromMouse = True
End Sub

thats what i want
0

Featured Post

Secure Your Active Directory - April 20, 2017

Active Directory plays a critical role in your company’s IT infrastructure and keeping it secure in today’s hacker-infested world is a must.
Microsoft published 300+ pages of guidance, but who has the time, money, and resources to implement? Register now to find an easier way.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

Title # Comments Views Activity
How to create a duplicate finder Application 9 127
Determine Range to Select 5 58
Visual Studio 2005 text editor 10 49
Create Files based on Cell Values in a Range in Excel 12 44
The debugging module of the VB 6 IDE can be accessed by way of the Debug menu item. That menu item can normally be found in the IDE's main menu line as shown in this picture.   There is also a companion Debug Toolbar that looks like the followin…
Article by: Martin
Here are a few simple, working, games that you can use as-is or as the basis for your own games. Tic-Tac-Toe This is one of the simplest of all games.   The game allows for a choice of who goes first and keeps track of the number of wins for…
Get people started with the process of using Access VBA to control Excel using automation, Microsoft Access can control other applications. An example is the ability to programmatically talk to Excel. Using automation, an Access application can laun…
Show developers how to use a criteria form to limit the data that appears on an Access report. It is a common requirement that users can specify the criteria for a report at runtime. The easiest way to accomplish this is using a criteria form that a…

730 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question