SelStart At Mouse Position

[doctrin13th]

I have a textbox "txtNum" with the following codes

Private Sub txtNum_GotFocus()
txtNum.Text = Format(txtNum.Text, "General Number")
End Sub

Private Sub txtNum_LostFocus()
txtNum.Text = Format(txtNum.Text, "Standard")
End Sub

Now, when I click the text box, thus it gets focus, it is formatted as expected. However, the cursor is always at the beginning of the text.
How can I set the cursor position to where I click?

[Arnoutdv]

Is there a special reason for executing the code in the GotFocus event?

[westconn1]

However, the cursor is always at the beginning of the text.

you can force the cursor to a specific position using the selstart property

try like

Private Sub Text1_GotFocus()
s = Text1.SelStart
Text1.Text = Format(Text1.Text, "General Number")
Text1.SelStart = s
End Sub

[doctrin13th]

Is there a special reason for executing the code in the GotFocus event?

Say the input text is "1500.5". I want the textbox to format "1500.5" to "1,500.50" when it loses focus and format back again to General Number ("1500.5") when it gets focused, but still I want the textbox cursor (caret) be positioned where I click (e.g. between 1 and 5 in "1500.5")

[doctrin13th]

you can force the cursor to a specific position using the selstart property

try like

Private Sub Text1_GotFocus()
s = Text1.SelStart
Text1.Text = Format(Text1.Text, "General Number")
Text1.SelStart = s
End Sub

Thank you! There's the idea.Very close! However, the problem is the length of the text is different when focused and when loses focus making the SelStart property variable.

[SamOscarBrown]

does this take care of it? (text length changes because of the comma)---only works up to 999,999.9 (one comma)

Private Sub txtNum_GotFocus()
Dim s As Integer
Dim y As Integer
s = txtnum.SelStart
y = InStr(1, txtnum.Text, ",")
txtnum.Text = Format(txtnum.Text, "General Number")
If y > 0 Then
    txtnum.SelStart = s - 1
Else
    txtnum.SelStart = s
End If
End Sub

Private Sub txtNum_LostFocus()
txtnum.Text = Format(txtnum.Text, "Standard")
End Sub

EDIT: SORRY, won't work if selecting before first or second chars....still testing.

[SamOscarBrown]

This seems to work (up to 999,999,999.9 anyway)

Private Sub txtNum_GotFocus()
Dim s As Integer
Dim y As Integer
s = txtnum.SelStart
y = InStr(1, txtnum.Text, ",")
txtnum.Text = Format(txtnum.Text, "General Number")
If s <> 0 Then
    Select Case y
    Case 0
        txtnum.SelStart = s
    Case Else
        txtnum.SelStart = s - 1
    End Select
End If
End Sub

I used the Case statement because I was testing y, you can use an If instead if desired.

[doctrin13th]

Sam it doesn't seem to be accurate in position the caret to where I click

[westconn1]

see if this works correctly for you

Private Sub Text1_GotFocus()
s = Text1.SelStart
num = CDbl(Left(Text1.Text, s))
Text1.Text = Format(Text1.Text, "General Number")
Text1.SelStart = Len(num)
End Sub

[SamOscarBrown]

Sam it doesn't seem to be accurate in position the caret to where I click

Hmmmm. worked in all my test....oh well.....have a great day.

[Lord Orwell]

why don't you use a formatted textbox instead? It's a forms 2.0 control and allows you to not worry about how the text is formatted because the control does all the work for you.

[doctrin13th]

Hmmmm. worked in all my test....oh well.....have a great day.

With two textboxes, focus to the other textbox (not the txtNum)
Using this:
(This is your code)

Private Sub txtNum_GotFocus()
Dim s As Integer
Dim y As Integer
s = Txtnum.SelStart
y = InStr(1, Txtnum.Text, ",")
Txtnum.Text = Format(Txtnum.Text, "General Number")
If s <> 0 Then
    Select Case y
    Case 0
        Txtnum.SelStart = s
    Case Else
        Txtnum.SelStart = s - 1
    End Select
End If
End Sub

and

Private Sub Txtnum_LostFocus()
 Txtnum.Text = Format$(Txtnum.Text, "Standard")
End Sub

With "1,500,300.50" as the txtNum.Text property, try clicking between "3" and "0" in the "300". The caret is positioned between the two zeros in "300".

Anyways, thank you for your time.

[doctrin13th]

why don't you use a formatted textbox instead? It's a forms 2.0 control and allows you to not worry about how the text is formatted because the control does all the work for you.

Actually I'm developing my numeric textbox (ActiveX control) for custom behaviors and properties. Just like MartinLiss' numberbox but offers a choice whether to include digit grouping separator ",".