Frases Services Tips Contact

Mostrar fontes em um combobox ou um listbox

Dica

Visual Basic 6.0

Função para colocar as fontes em ordem alfabética em um listbox ou combobox:


Function fontsToList(ListControl As Control)

    If TypeOf ListControl Is ListBox Or TypeOf ListControl Is ComboBox Then
        nFontes = Printer.FontCount - 1
        For i = 0 To nFontes
            ListControl.AddItem Printer.Fonts(i)
        Next i
    Else
        MsgBox "O controle deve ser um LISTBOX ou um COMBOBOX.", vbCritical, "Função fontes"
    End If

End Function
--
01/01/2004