USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  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
 


CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página