VB Load all font name in Combo box

Go down

VB Load all font name in Combo box Empty VB Load all font name in Combo box

Post  Admin on Wed Jan 27, 2010 4:31 pm

Private Sub combo1_Click()
Text1.Font = Combo1.Text

End Sub


Private Sub Command1_Click()
End Sub


Private Sub Form_Load()
Dim i As Long
For i& = 0& To Screen.FontCount - 1&
Combo1.AddItem Screen.Fonts(i&)
Next i

End Sub
Admin
Admin
Admin

Posts : 256
Join date : 2008-06-06

View user profile http://debmedia.forumotion.com

Back to top Go down

Back to top

- Similar topics

 
Permissions in this forum:
You cannot reply to topics in this forum