Kirjoittaja: Antti Laaksonen
Kirjoitettu: 05.03.2002 – 05.03.2002
Tagit: grafiikka, koodi näytille, vinkki
Visual Basicissa tieto järjestelmän fonteista löytyy melko kummallisesta paikasta: Screen-oliosta. Screen.FontCount palauttaa fonttien määrän ja taulukossa Screen.Fonts(0-Screen.FontCount-1) on fonttien nimet. Seuraava esimerkki luo alkeellisen fonttienselailuikkunan. Formilla pitää olla LabelBox (Label1) ja ListBox (List1).
Private Sub Form_Load()
Caption = "Fontteja yhteensä: " & Screen.FontCount
Label1 = "AaBbYyZz"
For i = 0 To Screen.FontCount - 1
List1.AddItem Screen.Fonts(i)
Next
End Sub
Private Sub List1_Click()
Label1.FontBold = False
Label1.FontItalic = False
Label1.FontName = List1.List(List1.ListIndex)
End SubIhan kiva.
private sub List1_ItemCheck(Item as Integer)
Hups, jäi vähän kesken...
private sub List1_ItemCheck(Item as Integer)
' List1_Click-tapahtuman koodi
end subListassa pystyy nyt siirtymään nuolilla.
mulla pystyy ton clickinkin kanssa, xp ja vb6