MouseMove

[mvw64]

Ik heb een vraag over MouseMove
Zie bijlage

 

[E v R]

wellicht is SendKeys een oplossing voor je?

 

[mvw64]

Beste Eric
Bedankt voor je tip

Ik heb geen idee hoe ik dit moet gebruiken maar ik ga hier op zoeken.

 

[E v R]

Geen voorstander van SendKeys, maar zie voor "dit probleem" geen andere methode om die dropdown op het mousemove-event weg te krijgen. (Numlock schiet aan en uit....)

Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    ListBox1.Height = 18
    ComboBox1.SetFocus
    SendKeys "{ESC}", True
End Sub

Maar wat je ook zou kunnen doen:

Plaats een listbox direct onder de combobox, maak deze zichtbaar bij mousemove combobox. (het onderste gedeelte van een combobox lijkt nml. erg op een listbox)

 

[mvw64]

Eric

Hier kan ik wat mee

Bedankt groetjes

 

[E v R]

Wellicht is dit wat netter:

Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    ListBox1.Height = 18
    With ComboBox1
    .Enabled = False
    .Enabled = True
    .SetFocus
    End With
End Sub

 

[mvw64]

Bedankt Eric

Ik ga deze ook proberen

 

[alphamax]

Zie http://www.mrexcel.com/forum/excel-questions/627787-close-combobox-visual-basic-applications.html

 

[mvw64]

Beste eric en alphamax

Met jullie hulp is dit het geworden
Werkt goed

Select Case TypeName(c)
    Case "ComboBox"
    c.Enabled = False
    c.Enabled = True
    c.SetFocus
End Select