CodeItBetter Programming » Fonts

How to Add all available fonts to a combo box control.

John — Sun, 11 Sep 2011 23:31:49 +0000

1 2 3 4 5 6 7 8 9 10 11 'Fonts - How to Add all available fonts to a combo box control. 'Assume that you have a combobox named combo1 in form1. Then all you have to do 'is insert the following lines in th load event of the form1. Private Sub Form_load() [...]

How to Add all available fonts to a combo box control. is a post from: CodeItBetter Programming

How to check Windows Font Size

John — Mon, 05 Jan 2009 04:03:28 +0000

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 'Fonts - How to check Windows Font Size 'This example will return 'True' if the font size is small, and 'False' If font size is large Public Declare Function GetDesktopWindow Lib "user32" () [...]

How to check Windows Font Size is a post from: CodeItBetter Programming

How to Add/Remove new Font

John — Mon, 05 Jan 2009 04:02:38 +0000

1 2 3 4 5 6 7 8 9 10 11 12 13 14 'Fonts - How to Add/Remove new Font Declare Function AddFontResource& Lib "gdi32" Alias "AddFontResourceA" (ByVal lpFileName As String) Declare Function RemoveFontResource& Lib "gdi32" Alias "RemoveFontResourceA" (ByVal lpFileName As String) Private Sub Command1_Click() Call RemoveFontResource("C:\Temp\Carolina.ttf") End Sub Private Sub Form_Load() [...]

How to Add/Remove new Font is a post from: CodeItBetter Programming

How to Browse and Preview Installed Fonts

John — Mon, 05 Jan 2009 04:01:46 +0000

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 'Fonts - How to Browse and Preview Installed Fonts 'Add a List Box to your form. Private Sub Form_Load() Dim iCount As Integer For iCount = 0 To Screen.FontCount - 1 List1.AddItem Screen.Fonts(iCount) Next iCount End [...]

How to Browse and Preview Installed Fonts is a post from: CodeItBetter Programming