Debmedia Creation Forum
Would you like to react to this message? Create an account in a few clicks or log in to continue.

This is The Forum Where You can Join and Get Everything. That means it is where you can get almost everything on Net Created, Modified And Moderated By Debasis Bhattacharjee of Debmedia Creation


VB Load all font name in Combo box

Debmedia Creation Forum :: World of Computer Programming

Go down

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

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

https://debmedia.forumotion.com

Back to top Go down

Back to top

Debmedia Creation Forum :: World of Computer Programming

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