Login | Register   
LinkedIn
Google+
Twitter
RSS Feed
Download our iPhone app
TODAY'S HEADLINES  |   ARTICLE ARCHIVE  |   FORUMS  |   TIP BANK
Browse DevX
Sign up for e-mail newsletters from DevX


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

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.

 

 

Sitemap