combo box "dropup" event

[bartvb]

I made the following :

I change the font in a combo box when the users "dropdowns" to "courrier". (because all the letters have the same width) But i want to change it again to the normal font when the user selects an item.

(i can't place it in the click event because when you then type 1 letter; the dropdown list already disapears)


* form with combo box ( sorted = true / style = 2 -dropdown list)

'*******************************'
Dim FontDropDown As New StdFont
Dim FontNormal As New StdFont

Private Sub Combo1_DropDown()
Combo1.Font = FontDropDown
End Sub

Private Sub Form_Load()
With FontDropDown
.Bold = True
.Name = "Courier New"
.Size = 8
End With

With FontNormal
.Bold = True
.Name = "MS Sans Serif"
.Size = 8
End With

Combo1.AddItem ("abb " & "text1&quot
Combo1.AddItem ("abc " & "text2&quot
Combo1.AddItem ("dee " & "text3&quot
Combo1.AddItem ("def " & "text4&quot
Combo1.AddItem ("ghi " & "text5&quot

End Sub

'*******************************'

 

[TRYP]

what do you mean it already disappears ???

TRYP

 

[bartvb]

(make sure the sorted property is true)
Run the example above:

click on the arrow of the combo box and press "def"

----------------------------------------
Add the following code and do the same => you will notice the difference...

Private Sub Combo1_Click()
Combo1.Font = FontNormal
End Sub

 

[TRYP]

i loaded the code
1 font to begin with
then i dropdown (now its courier)
now i click a selection
now im back to the first font

if i drop down again i get courier again
if i type "def" i get the "dee text3" choice in the first font


am I missing something ??

tryp