Library code snippets
View Fonts
By Chris2, published on 14 Jul 2001
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 articles
Related discussion
-
VB6, SQL 2005 & DMO
by elajaunie3 (1 replies)
-
sending sms from pc
by sriraj20074 (0 replies)
-
Automating Excel from VB6.0
by epurdy (0 replies)
-
VB6 system conversion using VBA to Word 2007
by b.macgregor@vodamail.co.za (0 replies)
-
video not working with visual basic
by Jupiter 2 (9 replies)
Related podcasts
-
Christian Beauclair
14 mai 2008 (�mission #0074) ::.Christian Beauclair: Stratégies de migration VB6 vers .NET Nous discutons avec Christian Beauclair des stratégies de migration VB6 vers .NET. Entre autres, nous discutons comment utiliser le "VB 6 Code Advisor" et le "Interop Forms Toolkit" pour ajouter la puiss...
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.
This thread is for discussions of View Fonts.