View Fonts

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

You might also like...

Comments

 Chris2

Contribute

Why not write for us? Or you could submit an event or a user group in your area. Alternatively just tell us what you think!

Our tools

We've got automatic conversion tools to convert C# to VB.NET, VB.NET to C#. Also you can compress javascript and compress css and generate sql connection strings.

“I have always wished for my computer to be as easy to use as my telephone; my wish has come true because I can no longer figure out how to use my telephone” - Bjarne Stroustrup