Kontakt
DSVGO
Set Text2.Font = Text1.FontDadurch wird jedoch nur eine Referenz auf das Font-Objekt kopiert. Das hat zur Folge, dass beiden Controls der selbe Font zugewiesen ist. Die Änderung des Fonts eines Controls führt also zur gleichzeitigen Änderung des anderen Control-Fonts.
Function CloneFont(ByRef aFont As IFont) As StdFont aFont.Clone CloneFont End FunctionDann kann mittels
Set Text2.Font = CloneFont(Text1.Font)eine echte Kopie des Fonts zugewiesen werden.
© Jost Schwider, 15.06.2000-15.06.2000 - http://vb-tec.de/clonfont.htm