Fonts

Does anyone know how to get a list of all the available fonts and place them all into a combobox?

I also need to know how to insert a string at the cursor position in a text box.

[Edited by Zaphod64831 on 07-30-2000 at 12:30 PM]

Placing Fonts in a ComboBox:

Code:

---

For I = 1 To Screen.FontCount - 1
    Combo1.AddItem Screen.Fonts(I)
Next I

---

Inserting a String at Cursor position of TextBox:

Code:

---

Text1.SelText = "NewString"

---

OH! Now I see! Sorry but I didn't understand what Matthew Gates meant by his explanation of it.

Thanks both :)

You can add Printer fonts as well.

Code:

---

For i = 1 To Printer.FontCount - 1
    Combo1.AddItem Printer.Fonts(i)
Next i

---