Tekst selecteren combobox

[pkuipers]

Hallo,
ik kan op internet niet vinden hoe ik in een combobox als ik op de invoerregel klikt met mijn linkermuisknop dat dan de tekst gelijk geselecteerd wordt. Dit gebeurt wel als je met de tab knop werkt.
Misschien dat ik het op internet niet zo goed geformuleerd heb, maar mijn Engels is niet uitstekend te noemen.

Groetjes en alvast bedankt,

Peter

 

[edmoor]

Heb je die ComboBox op een werkblad of in een Userform?

 

[pkuipers]

Heb je die ComboBox op een werkblad of in een Userform?

Hallo edmoor, in een Userform.

 

[edmoor]

Dan kan dat zo:

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

 

[pkuipers]

Dan kan dat zo:

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

Bedankt edmoor, werkt prima.

Groetjes, Peter

 

[edmoor]

Graag gedaan.

NB:
Als je direct op het vorige bericht reageert is het niet nodig om de Quote knop te gebruiken.

 

[pkuipers]

Oke, sorry.

 

[edmoor]

Geen probleem