Library code snippets

View Fonts

By Chris2, published on 14 Jul 2001
Chris2

View Fonts

Add a combo box named Combo1 and a label named Label1 then add the following code:

Dim i As Long

Private Sub Combo1_Click()
Label1.Font = Combo1.Text
Label1.Caption = "Sample"
Label1.FontSize = 25
End Sub

Private Sub Form_Load()
For i = 0 To Screen.FontCount - 1
Combo1.AddItem Screen.Fonts(i)
Next
End Sub

Related tags

visual basic

Comments

  1. layne ann
    14 Mar 2007 at 07:56

    Hi, good work.

    Your a very big help, in my thesis.

    Thanks..

    I hope you can also help me,in font size and font behavior, like bold, regular and italic.

    Thank you again

    I will appreciate your respond =)

    layne.

  2. Developer Fusion Bot
    01 Jan 1999 at 00:00

    This thread is for discussions of View Fonts.

Leave a comment

Sign in or Join us (it's free).

AddThis

Related articles

Ask a question

Related discussion

Languages

Web Development

Frameworks & Architecture

Other major sections