Kirjautuminen

Haku

Tehtävät

Kilpailu

Putka Open 2025
4. kierros:
7.11. klo 18 – 9.11. klo 23

Koodit: VB6: Fonttien hakeminen

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 Sub

Kommentit

Monkkats [20.09.2003 17:33:29]

#

Ihan kiva.

Fisher [27.03.2004 15:29:42]

#

private sub List1_ItemCheck(Item as Integer)

Fisher [27.03.2004 15:31:57]

#

Hups, jäi vähän kesken...

private sub List1_ItemCheck(Item as Integer)
    ' List1_Click-tapahtuman koodi
end sub

Listassa pystyy nyt siirtymään nuolilla.

moptim [10.09.2006 07:35:23]

#

mulla pystyy ton clickinkin kanssa, xp ja vb6

Kirjoita kommentti

Muista lukea kirjoitusohjeet.
Tietoa sivustosta