*g* das ist der einzige Punkt, in dem ich mal nicht mit der Lösung vom Herrn hansen einverstanden bin.
Seine Lösungen sind aber ansonsten extrem gut durchdacht.
Ich rate davon ab OCX-Dateien zu verwenden, denn diese sind oft nicht in der selben Version auf dem Zielrechner vorhanden und dann passiert genau sowas.
Probleme sind hier unterschiedliche Betriebssysteme, Servicepacks oder jemand hat ein Programm installiert, welches die ocx-Dateien überschreibt.
In dem Fall das Dialog-Objekt vom Formular nehmen (das müsste die Schriftauswahl sein) und gegen einen eigenen Dialog ersetzen.
Die Schriftarten gibt's glaub ich aus dem System oder Screen -Objekt, welches glaube ich eine Fonts-Collection enthält.
Die Lösung im Kochbuch ist natürlich viel einfacher und schneller.
Code:
for iFont = 0 To Screen.FontCount - 1 cmbFont.AddItem Screen.Fonts(iFont)
Next iFont
------------------
Mit freundlichen Grüßen,
Henry Schneider
alias Lila
Es gibt einen ewigen Wettkampf zwischen der Natur und den Ingenieuren:
Die Ingenieure versuchen, immer idioten-sicherere Systeme zu bauen,
die Natur versucht, immer bessere Idioten zu bauen
Xing
[Diese Nachricht wurde von HoBLila am 11. Mai. 2010 editiert.]
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP