VB Load all font name in Combo box

View previous topic View next topic 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

Posts : 256
Join date : 2008-06-06

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

Back to top Go down

View previous topic View next topic Back to top

- Similar topics

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