Browse DevX
Sign up for e-mail newsletters from DevX

Tip of the Day
Language: Visual Basic
Expertise: Intermediate
Aug 2, 1997



Building the Right Environment to Support AI, Machine Learning and Deep Learning

Show Fonts as you Select Them

To let a user change a font name, load all the fonts into a combo box:
Private Sub Form_Load()
        ' Determine the number of screen 
        ' fonts.
        For I = 0 To Screen.FontCount - 1  
                ' Put each font into list box.
                cboFont.AddItem Screen.Fonts(I) 
        Next I
End Sub
Make this more useful by letting your users see what the font looks like immediately after selecting it without having to "test" it by typing something:
Private Sub cboFont_Click()
        'Set the FontName of the combo box 
        'to the font that was selected.
        cboFont.FontName = cboFont.Text   
End Sub
Brian Lang
Comment and Contribute






(Maximum characters: 1200). You have 1200 characters left.



Thanks for your registration, follow us on our social networks to keep up-to-date