Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

FontName durchschleuen...
Autor: Ronny42DAch
Datum: 09.12.01 18:15
Ich versuche die Eigenschaft FontName eines Labels in die Eigenschaften zu bekommen. -------------------------- meine 1. Versuch | ------------------------------------------------------------------------------------------------ Call PropBag.WriteProperty("FontName", lblSchriftart.FontName, "") lblSchriftart.FontName = PropBag.ReadProperty("FontName", "") Public Property Get FontName() As Variant FontName = lblSchriftart.FontName End Property Public Property Let FontName(ByVal New_FontName As Variant) lblSchriftart.FontName() = New_FontName PropertyChanged "FontName" Zeichne End Property -------------------------- meine 2. Versuch | ------------------------------------------------------------------------------------------------ Call PropBag.WriteProperty("FontName", lblSchriftart.Font.Name, "") lblSchriftart.Font.Name = PropBag.ReadProperty("FontName", Ambient.Font.Name) Public Property Get FontName() As Variant FontName = lblSchriftart.Font.Name End Property Public Property Let FontName(ByVal New_FontName As Variant) lblSchriftart.Font.Name() = New_FontName PropertyChanged "FontName" Zeichne End Property -------------------------- meine 3. Versuch | ------------------------------------------------------------------------------------------------ Call PropBag.WriteProperty("FontName", lblSchriftart.FontName, "") Set lblSchriftart.FontName = PropBag.ReadProperty("FontName", "") Public Property Get FontName() As Variant Set FontName = lblSchriftart.FontName End Property Public Property Set FontName(ByVal New_FontName As Variant) Set lblSchriftart.FontName() = New_FontName PropertyChanged "FontName" Zeichne End Property -------------------------- meine 4. Versuch | ------------------------------------------------------------------------------------------------ Call PropBag.WriteProperty("FontName", lblSchriftart.Font.Name, "") Set lblSchriftart.Font.Name = PropBag.ReadProperty("FontName", Ambient.Font.Name) Public Property Get FontName() As Variant Set FontName = lblSchriftart.Font.Name End Property Public Property Set FontName(ByVal New_FontName As Variant) Set lblSchriftart.Font.Name() = New_FontName PropertyChanged "FontName" Zeichne End Property Ich weis echt nicht mehr welche Metode es bringen soll, leider lässt mich der ActiveX Assistent im Stich! Wer kann helfen? Danke MFG

FontName durchschleuen...	132	Ronny42DAch	09.12.01 18:15
Re: FontName durchschleuen...	558	unbekannt	09.12.01 18:22
jop ist probiert!	96	Ronny42DAch	09.12.01 18:52
äh ... seufz ... (oT)	500	unbekannt	09.12.01 19:34
Klappt nicht!	102	Ronny42DAch	09.12.01 19:46
?? (oT)	508	unbekannt	09.12.01 19:55

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen