Automatisch updaten van een UserForm bij veranderen waarde variable

[StefanBertens]

Hoi Allen,

Ik heb een variable PctDone, een integer.
nu wil ik dat wanneer deze waarde veranderd dus:

PctDone = 10

Dat automatisch de volgende verandering plaats vind, zonder dat ik deze code 100 keer hoef te gebruiken...

FrameProgress.Caption = PctDone & "%"
LabelProgress.Width = (PctDone * 4.14)

Hoe kan ik dit het best doen? Via een functie? Thanks!

 

[StefanBertens]

Antwoord

Na een beetje googlen:

Dim m_strVar As Integer

Property Let strVar(ByVal New_strVar As Integer)
    If New_strVar <> m_strVar Then
        m_strVar = New_strVar
        FrameProgress.Caption = m_strVar & "%"
        LabelProgress.Width = (m_strVar * 4.14)
    End If
End Property

Property Get strVar() As Integer
    strVar = m_strVar
End Property

En vervolens de waarde veranderen door:

strVar = 10
strVar = 20