Select all text in a combobox when a user clicks it

[MartyL354]

Select all text in a combobox when it is clicked (not as obvious as it may look)

In the Got Focus event I use:
If cmbClient.Value & "" <> "" Then
cmbClient.SelStart = 0
cmbClient.SelLength = Len(cmbClient.Value)
End If

That works fine if the user tabs to the combobox but not if they click it.

I tried putting the same code in the Click event of the combobox but it doesn't work.

Thanks,

Marty

 

[gemma-the-husky]

try the gotfocus event

 

[flect]

Gemma: marty has said he's already using gotfocus

the following works for me

Private Sub txtControl_MouseUp(Button As Integer)
   Me.txtControl.SelStart = 0
   Me.txtControl.SelLength = Len(Me.StockEnv.Text)
End Sub

so i'm guessing the following should work for you

Private Sub cmbClient_MouseUp(Button As Integer)
If cmbClient.Value & "" <> "" Then
Me.cmbClient.SelStart = 0
Me.cmbClient.SelLength = Len(Me.cmbClient.Value)
End If

 

[MartyL354]

Thanks flect. That did the trick.