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.

“The trouble with programmers is that you can never tell what a programmer is doing until it's too late.” - Seymour Cray