PDA

Vollständige Version anzeigen : Fonts in eine Combo und dann auswählen


BHR PG
31.05.2001, 15:41
Hallo kleine Frage,
wie schreibt man die auf dem Computer installierten Schriften in eine ComboBox???
Außerdem soll man dann die ausgewählte Schrift auch noch auf eine textbox anwenden können!?
Thanks Johannes Roth

Stefan Kulpa
31.05.2001, 16:23
<font face="Verdana" size="2">Hallo,

bereits in Deiner <a href="http://www.ms-office-forum.net/forum/showthread.php?s=&threadid=60993" target="_blank">Frage vom 21.05.</a> habe ich Dir den Link zu einer Funktion "gepostet", um alle Fonts in einem System zu ermitteln.
Deine Antwort darauf konnte ich allerdings nicht ganz nachvollziehen ... was genau hast Du denn dort nicht verstanden? Der Quellcode stellt Dir die Funktion GetFontList() zur Verfügung. In dem dort aufgeführten Beispiel brauchst Du eigentlich nur den Debug.Print-Befehl mit dem Befehl Combo1.AddItem ... zu ersetzen, und Du hast was Du suchst.

Also etwa so:
</font>
<PRE><FONT SIZE=1 FACE=Courier New><FONT COLOR=#000080>Private</FONT> <FONT COLOR=#000080>Sub</FONT> Command1_Click()

<FONT COLOR=#000080>Dim</FONT> vFonts() <FONT COLOR=#000080>As</FONT> Variant
<FONT COLOR=#000080>Dim</FONT> lResult <FONT COLOR=#000080>As</FONT> <FONT COLOR=#000080>Long</FONT>, lCount <FONT COLOR=#000080>As</FONT> <FONT COLOR=#000080>Long</FONT>
lResult = GetFontList(vFonts, TRUETYPE_FONTTYPE)
<FONT COLOR=#000080>For</FONT> lCount = 0 <FONT COLOR=#000080>To</FONT> lResult
Combo1.AddItem vFonts(lCount)
<FONT COLOR=#008000>'Debug.Print vFonts(lCount)</FONT>
<FONT COLOR=#000080>Next</FONT>
<FONT COLOR=#000080>Erase</FONT> vFonts

<FONT COLOR=#000080>End</FONT> <FONT COLOR=#000080>Sub</FONT>
<FONT COLOR=#808080><HR></FONT>

<FONT COLOR=#000080>Private</FONT> <FONT COLOR=#000080>Sub</FONT> Combo1_Click()

<FONT COLOR=#000080>With</FONT> Text1
.SelStart = 0
.SelLength = Len(.Text)
.FontName = Combo1.Text
<FONT COLOR=#000080>End</FONT> <FONT COLOR=#000080>With</FONT>

<FONT COLOR=#000080>End</FONT> <FONT COLOR=#000080>Sub</FONT>
<FONT COLOR=#808080></FONT>

</FONT></PRE>

<font face="Verdana" size="2">HTH</font>

BHR PG
17.06.2001, 10:39
Okay, ich weiß ich habs schon mal gefragt, aber deine Seite war mir ein bisschen zu unverständlich.Vielleicht war ich auch nur zu Blöd?

Danke, jetzt isses klar!
Johannes Roth