/ Forside/ Teknologi / Udvikling / VB/Basic / Spørgsmål
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
VB/Basic
#NavnPoint
berpox 2425
pete 1435
CADmageren 1251
gibson 1230
Phylock 887
gandalf 836
AntonV 790
strarup 750
Benjamin... 700
10  tom.kise 610
Få fat i alle fonttyper?
Fra : doc
Vist : 814 gange
45 point
Dato : 29-06-01 08:59

Hej

Hvordan kan jeg liste alle de font typer som er på brugerens maskine, samt størrelserne på disse?

Doc

 
 
Kommentar
Fra : pete


Dato : 29-06-01 10:16

Følgende lille stump kode fylder en Listbox med alle installerede fonte :

Com_Font.Clear

For i = 0 To Screen.FontCount - 1
Com_Font.AddItem Screen.Fonts(i)
Next i

Accepteret svar
Fra : pete

Modtaget 45 point
Dato : 29-06-01 10:16

Følgende lille stump kode fylder en Listbox med alle installerede fonte :

Com_Font.Clear

For i = 0 To Screen.FontCount - 1
Com_Font.AddItem Screen.Fonts(i)
Next i

Kommentar
Fra : pete


Dato : 29-06-01 10:20

...og så var der lige det med størrelserne...jeg tror ikke du kan "se" nogle forventede fontstørrelser...du kan jo bare lave en listbox med standardstørrelser : 8,9,10,12, 14, 16 osv.
En TrueType-font vil altid tilpasse sig den fontstørrelse du sætter...

Kommentar
Fra : Nyhedsbruger


Dato : 30-06-01 20:57

doc skrev:
> Hej
>
> Hvordan kan jeg liste alle de font typer som er på brugerens maskine,
> samt størrelserne på disse?

Du kan i hvert fald liste alle skrifttyperne meget nemt:

'Placer en ListBox på en form og skriv følgende kode:
Private Sub Form_Load()
List1.Sorted = True 'Hvis de skal vises sorteret
For i = 0 To Screen.FontCount - 1
List1.AddItem Screen.Fonts(i)
Next i
End Sub

.... men hvis du skal bruge det til valg af skrifttype kan du ligeså godt
bruge Common-Dialog-controllen.

- Bjarke Walling Petersen



Godkendelse af svar
Fra : doc


Dato : 02-07-01 09:27

Tak Pete.

Du har følgende muligheder
Eftersom du ikke er logget ind i systemet, kan du ikke skrive et indlæg til dette spørgsmål.

Hvis du ikke allerede er registreret, kan du gratis blive medlem, ved at trykke på "Bliv medlem" ude i menuen.
Søg
Reklame
Statistik
Spørgsmål : 177577
Tips : 31968
Nyheder : 719565
Indlæg : 6409071
Brugere : 218888

Månedens bedste
Årets bedste
Sidste års bedste