vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Schützen Sie Ihre Software vor Software-Piraterie - mit sevLock 1.0 DLL!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2024
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

ActiveX-Programmierung
Font 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.

Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

Re: Font Probleme mit UserControl 
Autor: ModeratorDieter (Moderator)
Datum: 15.05.09 16:09

Ändere den Code mal wie folgt:
Dim WithEvents m_Font As StdFont
Dann wird - wenn zur Laufzeit eine Eigenschaft des Fonts verändert wird (bspw. Size) - das FontChanged-Event des m_Font - Objekts ausgelöst, so dass Du gezielt darauf reagieren kannst.

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de

Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

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.

Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

Re: Font Probleme mit UserControl 
Autor: ModeratorDieter (Moderator)
Datum: 15.05.09 21:04

Also wenn m_Font als StdFont und mit WithEvents festlegst, wird beim Ändern einer Eigenschaft des Font-Objekts in jedem Fall das FontChanged-Event durchlaufen.

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de

Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

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.

Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

Re: Font Probleme mit UserControl 
Autor: ModeratorDieter (Moderator)
Datum: 20.05.09 06:32

Ja schon, aber wird denn nicht auch das FontChanged-Event ausgelöst?

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de

Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

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.

Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

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übersichtSuchen 

nach obenzurück
 
   

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