StdFont'ы зависят друг от друга или ...?

[Arcady_XQST]

Добавьте 2 баттона на форму и вставьте код (ну и запустите, конечно ):

Код: Выделить всё

Option Explicit

Dim stdTestFont As StdFont
Dim stdTestFont2 As StdFont

Private Sub Form_Load()
    Set stdTestFont = Me.Font
    Set stdTestFont2 = Me.Font
   
    Set Command2.Font = stdTestFont2
   
    Set stdTestFont2 = Nothing
   
    stdTestFont.Size = 14
   
    Set Command1.Font = stdTestFont
   
    Set stdTestFont = Nothing
End Sub

У меня 14 размер шрифта применятся к двум кнопкам, а должен только к первой. Что здесь неправильно?

[Saturn.65]

Мудреные коды. А если вот так?

Код: Выделить всё

Private Sub Form_Load()
Command1.FontSize = 14
Command2.FontSize = 8
End Sub


Можешь и цвет менять и надпись.

[Arcady_XQST]

Кхм... Я не сказал, что мне нужно изменить размер, я просто привел наглядный пример непонятного мне результата его работы. Мне нужен именно SdtFont, ведь не буду я сохранять (и загружать) все его параметры (а их 8) в переменных вместо того, чтобы сохранить в одну переменную типа StdFont.

[EUGY]

Два разных объекта StdFont при присвоении от Me.Font копируют один и тот же хендл HFONT.
В этом можно убедиться:

Код: Выделить всё

   Dim hfnt As IFont
   Set hfnt = stdTestFont
   Debug.Print hfnt.hFont
   
   Set hfnt = stdTestFont2
   Debug.Print hfnt.hFont


P.S. А этот HFONT - есть GDI ресурс, и его изменение отражается на всем что его использует.

[Arcady_XQST]

Т.е. StdFont не может сохранять в себе независимые настройки шрифта? А как же мне быть?

P.S.: то-то я смотрю какая-то ерунда творится

[Antonariy]

Set x = New StdFont

[Arcady_XQST]

Ой вот:

Код: Выделить всё

Option Explicit

Dim stdTestFont As StdFont
Dim stdTestFont2 As StdFont

Private Sub Form_Load()
    Set stdTestFont = New StdFont
    Set stdTestFont2 = New StdFont
   
    stdTestFont = Me.Font
    stdTestFont2 = Me.Font
   
    Set Command2.Font = stdTestFont2
   
    Set stdTestFont2 = Nothing
   
    stdTestFont.Size = 14
   
    Set Command1.Font = stdTestFont
   
    Set stdTestFont = Nothing
End Sub

Спасибо всем, кто откликнулся и просветил меня!