Main Menu

HOME

.Net
ASP
Assembly
C
C++
Delphi
HTML
Java
JavaScript
MySQL
PC interface
Powershell
Perl
PHP
VBScript
Visual Basic
XML

US Job listings




   Misc

   Amazon

   Links

    


list all fonts

 

 'list all fonts on your system
'add a listbox and a command button to a form

Private Sub Command1_Click()
Dim intFonts
intFonts = Screen.FontCount
Do
List1.AddItem Screen.Fonts(intFonts)
intFonts = intFonts - 1
Loop Until intFonts <= 0
End Sub

 

 

 

 

 




   Sponsors
 

   Software
500 Java Tips E-book
PHP editor
PERL editor
Beginning Java
Beginning Visual Basic
Learn VB.net
Learn VB 6
VB and databases
ASP image library
C++ builder programming
C++ fundamentals

   Source Code
Create a folder(ASP)
simple quote of the month(PHP)
A to Z links(PHP)
Display the filesystem of a drive(VB)
get current process info(VB)
Display meta tags(PHP)
CSV stock quotes(PHP)
display all control panel items(VBScript)

    




Copyright © 2003 by programmershelp.co.uk