VB Load all font name in Combo box

Go down

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
avatar
Admin
Admin

Posts : 256
Join date : 2008-06-06

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

Back to top Go down

Back to top


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