VBA, Word 2007, text in text box op user form selecteren

[jackfish]

Beste forumleden,

Ik wil graag dat alle text in een textbox op een userform wordt geselecteerd als erop wordt geklikt. Onderstaande code werkt goed als je werkt met Tab, Enter of als je de muisaanwijzer vooraan de textbox spiegelt (pijl wijst dan naar rechts) en dan klikt.

Gewoon een keer klikken op de text werkt echter niet. Wat doe ik niet goed?

Private Sub TextBox1_Enter()
    With TextBox1
        .SelStart = 0
        .SelLength = Len(TextBox1.Text)
    End With
End Sub

 

[edmoor]

Probeer het eens met Private Sub TextBox1_MouseUp()
Dus:

Private Sub TextBox1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    With TextBox1
        .SelStart = 0
        .SelLength = Len(TextBox1.Text)
    End With
End Sub

 

[jackfish]

Wat gek, ik had gereageerd maar kennelijk mijn reactie niet opgeslagen. Excuses en dank voor het idee.

Het selecteren werkt zo prima alleen als je de muis op een specifieke plaats wilt zetten in de tekstregel, dan werkt het (logischerwijs) niet. Is daar nog een mouw aan te passen in VBA?