Combo Box Font Size

[Arturo]

I have combo boxes whose dropdown lists display a great deal of information,
i.e., names, addresses, titles, etc. The font size of the controls on the
form is Courier 12. The dropdown list also displays as Courier 12.

Is there a way to have the dropdown display as a smaller size, such as
Courier 10, and after the selection is made, have the selection display at
its normal size, Courier 12?

Thank you.

 

[Al Campagna]

Arturo,
Use the OnEnter and OnExit events of the combo to change the font size.

Private Sub cboTest_Enter()
cboTest.FontSize = 10
End Sub

Private Sub cboTest_Exit(Cancel As Integer)
cboTest.FontSize = 12
End Sub
--
hth
Al Campagna
Microsoft Access MVP
http://home.comcast.net/~cccsolutions/index.html

"Find a job that you love... and you'll never work a day in your life."

 

[Arturo]

Thanks. That works great.

Arturo,
Use the OnEnter and OnExit events of the combo to change the font size.

Private Sub cboTest_Enter()
cboTest.FontSize = 10
End Sub

Private Sub cboTest_Exit(Cancel As Integer)
cboTest.FontSize = 12
End Sub
--
hth
Al Campagna
Microsoft Access MVP
http://home.comcast.net/~cccsolutions/index.html

"Find a job that you love... and you'll never work a day in your life."