Font Box

helsinkiwinner
09-11-2003, 09:43 AM
Does anyone know how to put all the fonts that the computer has in a combo-box?
Like on Microsoft Word etc.

matstuff
09-11-2003, 09:47 AM
Something like...



dim i as integer

for i=1 to screen.fontcount
myList.Additem screen.fonts(i)
next



HTH

Mat
---

helsinkiwinner
09-11-2003, 10:11 AM
Fantastic! THanks.

EZ Archive Ads Plugin for vBulletin Copyright 2006 Computer Help Forum