| |
ActiveX-ProgrammierungFont Probleme mit UserControl | | | Autor: Ne kölsche Jung | Datum: 15.05.09 13:56 |
| Hallo,
Ich bekomme während dem Programmlauf nicht die Font-Eigenschaften
des Controls geändert. Es wird beim Programmlauf eine Font-Eigenschaft,
z.B. MeinContr.Font.Size = 15, immer die Property Get anstatt Set
aufgerufen. Ich hab schon vieles versucht aber nichts hat geholfen.
Vielleicht kann mir ja einer von Euch helfen. Hier noch ein Beispiel wie
ich das erstellt habe.
Jürgen
Dim m_Font As Font
Public Property Set Font(ByVal New_Font As Font)
Set m_Font = New_Font
PropertyChanged "Font"
End Property
Public Property Get Font() As Font
Set Font = m_Font
End Property
Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
With PropBag
Set m_Font = .ReadProperty("Font", Parent.Font)
End With
End Sub
Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
With PropBag
Call .WriteProperty("Font", Font, Ambient.Font)
End With
End Sub _______________________________________________________________
Jeder Mensch ist anders. Darum nimm jeden Menschen so wie er ist. | |
Re: Font Probleme mit UserControl | | | Autor: Ne kölsche Jung | Datum: 15.05.09 20:08 |
| Hallo Dieter,
der Versuch mit WithEvents ist auch fehlgeschlagen. Das Property Get wird
immer noch aufgerufen. Ich hab es mal so gemacht, das ich für jede Font-
Eigenschaft ein separates Property geschrieben habe. So ist auf jeden Fall
kein Fehler aufgetreten. Werde es dann mal so lassen müssen. Hätte aber doch
gerne gewusst woran der Fehler gelegen hat. Wenn da noch jemand eine Idee
hat....
Danke für Deine Hilfe Dieter und Grüße aus Köln, Jürgen
_______________________________________________________________
Jeder Mensch ist anders. Darum nimm jeden Menschen so wie er ist. | |
Re: Font Probleme mit UserControl | | | Autor: Ne kölsche Jung | Datum: 16.05.09 12:25 |
| Hallo Dieter,
ich habe die Deklaration auf WithEvents umgeschrieben. Beim Aufruf von
MyListBox.Font.Size wird wieder die Property Get aufgerufen.
Wenn ich im Eigenschaftsfenster über Font eine Eigenschaft ändere dann
wird Property Set aufgerufen.
Ich habe das ganze mit "Eigenen Button als ActiveX-Control erstellen" im Workshop mal getestet. Da wird beim Aufruf aus der Form heraus auch das
Property Get aufgerufen.
Grüße Jürgen
_______________________________________________________________
Jeder Mensch ist anders. Darum nimm jeden Menschen so wie er ist.
Beitrag wurde zuletzt am 16.05.09 um 12:34:37 editiert. | |
Re: Font Probleme mit UserControl | | | Autor: Ne kölsche Jung | Datum: 20.05.09 14:43 |
| Hallo Dieter,
das war es gewesen. Über das FontChange Ereignis habe ich hier bei der Suche
nur das WM_FONTCHANGE in 2 API Referenzen gefunden. Aber etwas genaues
über das Ereignis FontChange habe ich nicht gefunden. Vielleicht könnte
das hier ein wenig dazu beitragen werden das Ereignis ein bisschen besser
kennen zu lernen.
Nochmals Danke.
Schönen Vatertag und Grüße aus Köln, Jürgen
_______________________________________________________________
Jeder Mensch ist anders. Darum nimm jeden Menschen so wie er ist. | |
| 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 |
|
|
sevOutBar 4.0
Vertikale Menüleisten á la Outlook
Erstellen von Outlook ähnlichen Benutzer- interfaces - mit beliebig vielen Gruppen und Symboleinträgen. Moderner OfficeXP-Style mit Farbverläufen, Balloon-Tips, u.v.m. Weitere InfosTipp des Monats Access-Tools Vol.1
Über 400 MByte Inhalt
Mehr als 250 Access-Beispiele, 25 Add-Ins und ActiveX-Komponenten, 16 VB-Projekt inkl. Source, mehr als 320 Tipps & Tricks für Access und VB
Nur 24,95 EURWeitere Infos
|
|
|
Copyright ©2000-2024 vb@rchiv Dieter Otter Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.
Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel
|
|