tekst automatisch selecteren in combobox

[sylvester-ponte]

hallo,

ik heb een userform met daarin een 2 comboboxen
is het mogenlijk dat als ik wissel (door met de muis te klikken) tussen deze boxen de tekst in de geselecteerde box geselecteerd wordt? en hoe doe ik dat?
dit heb ik al geprobeerd:

Private Sub ComboBox1_Click()
ComboBox1.SelStart = 0
ComboBox1.SelLength = Len(ComboBox1.Value)
End Sub

Private Sub ComboBox2_Change()
ComboBox2.SelStart = 0
ComboBox2.SelLength = Len(ComboBox1.Value)
End Sub

groet sylvester

 

[sylvester-ponte]

hallo
ik heb ontdekt dat de ComboBox1_Click in deze Form helemaal niet werkt

hoe zou dat komen?

moet ik dat ergens aan zetten?

groet sylvester

 

[sylvester-ponte]

hallo
ik heb een oplossing gevonden
wel raar hoor
het gaat met de mouseMove event
die reageert wel.

Private Sub ComboBox1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    ComboBox1.SelStart = 0
    ComboBox1.SelLength = Len(ComboBox1.Value)
End Sub
Private Sub ComboBox2_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    ComboBox2.SelStart = 0
    ComboBox2.SelLength = Len(ComboBox2.Value)
End Sub

dit werkt ook als ik op de combo click

groet sylvester

 

[WHER]

Sylvester,
Probeer deze eens (met Combox_Click).
De eigenschap "Style" van de comboboxen heeft 2 opties, bij één van de twee krijg je het gewenste effect.

 

[sylvester-ponte]

hallo WHER


zo kan ik geen nieuwe waarden toevoegen
het wordt dan een listbox

jammer dat bij een combobox de klickEvent niet getrickert wordt
de enterEvent doet het wel maar die maakt mijn code ongedaan. daar is geen cancel aanwezig.
bij de dubbelclickEvant zit een cancel optie dan wordt zijn eigen code niet uitvoert maar de mijne wel.
dus als ik voor mijn code cancel = true zet , dan werkt dubbelClick ook

groet sylvester

 

[HSV]

Als je normaal je comboboxen laat vullen bij 'Userform Initialize', en je selecteert een waarde uit de combobox, is deze tekst/waarde automatisch geselecteerd.

 

[sylvester-ponte]

hallo Harry

ik selecteer alleen de combobox (met een klik van de muis) dus de aanwezige waarde moet dan automatisch geselecteerd worden.

dat werkt niet zomaar, met tab gaat het prima en met enter ook
met de enter_event niet
en met de click_even ook niet (die werkt helemaal niet bij een combobox)

als jij mijn voorbeeldje kan verbouwen zodat het "normaal" werkt graag

ik gebruik nu de mousemove_event dat werkt wel, maar is wel raar

groet sylvester

 

[HSV]

De Click_event werkt wel als je in de combobox een lijstje binnenhaalt, en daar iets in selecteerd.
Maar in jouw voorbeeld is er geen lijstje, maar gewoon tekst.
Hier een voorbeeldje, en klik op het pijltje waar een combobox voor is bedoelt.

Helaas kan ik niet meer reageren vandaag.

 

[sylvester-ponte]

hallo Harry

als ik de tab toets gebruik, wordt van zelf de tekst in de volgende combo geselecteerd.
en om het voor de gebruiker universeel te houden wil ik dat dat ook gebeurt als je met de muis naar een andere combo gaat.(ook als je in de tekst klikt)

groet sylvester

 

[sylvester-ponte]

hallo Harry

dit is wat ik er van ga maken denk ik:

Private NetBinnenGekomen As Boolean

Private Sub ComboBox2_Enter()
NetBinnenGekomen = True
End Sub

Private Sub ComboBox2_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If NetBinnenGekomen = True Then
        ComboBox2.SelStart = 0
        ComboBox2.SelLength = Len(ComboBox1.Value)
        NetBinnenGekomen = False
    End If
End Sub

Private Sub ComboBox1_Enter()
NetBinnenGekomen = True
End Sub

Private Sub ComboBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If NetBinnenGekomen = True Then
        ComboBox1.SelStart = 0
        ComboBox1.SelLength = Len(ComboBox1.Value)
        NetBinnenGekomen = False
    End If
End Sub

als je iets mooiers weet, graag
ik vind mijn oplossing te veel geknutsel

groet sylvester

 

[HSV]

Hallo Sylvester,

Ik heb er weinig ervaring mee, maar zo moet het ook werken volgens mij.
Trouwens ook niet echt veel veranderingen.

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

Private Sub ComboBox2_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
 With ComboBox2
 .SelStart = 0
 .SelLength = Len(.Value)
 End With
End Sub

Private Sub UserForm_Initialize()
 With ComboBox1
 .SelStart = 0
 .SelLength = Len(.Value)
 End With
End Sub

 

[sylvester-ponte]

Harry bedankt voor het mee denken

ik kies een van de oplossingen ik weet nog niet zeker welke.
ComboBox1_MouseMove heeft als nadeel dat hij de computer wel erg bezig houdt.
dus ik verwacht dat ik het houdt bij de laatst door mij geposte oplossing.

groet sylvester