Combo
Publicado por Jose (12 intervenciones) el 18/05/2003 14:10:00
Utilizo este código para cargar en un combo las fuentes disponibles en el sistema, ¿pero como hago para cargar en otro combo los tamaños disponibles para cada tipo de fuente?
Combo1.Clear
Dim X As Integer
For X = 0 To Screen.FontCount - 1
Combo1.AddItem Screen.Fonts(X)
Next X
Gracias.
Combo1.Clear
Dim X As Integer
For X = 0 To Screen.FontCount - 1
Combo1.AddItem Screen.Fonts(X)
Next X
Gracias.
Valora esta pregunta
0