|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Windows)
|
|
 |
Título da Dica: Quer Exibir e Visualizar as Fontes instaladas no seu Sistema?
|
 |
|
|
|
Postada em 25/8/2003 por Ð@®l@n
Private Sub Form_Load()
Dim contador As Integer
For contador = 0 To Screen.FontCount - 1
List1.AddItem Screen.Fonts(contador)
Next
End Sub
Private Sub List1_Click()
Static tempheight As Single
If tempheight = 0 Then tempheight = List1.Height
List1.Font.Name = List1.List(List1.ListIndex)
List1.Height = tempheight
End Sub
Private Sub List1_KeyUp(KeyCode As Integer, Shift As Integer)
Call List1_Click
End Sub
|
|
|
|
|
