Tvorba t°φd a ActiveX komponent

Ambient.UserMode
P°i testovßnφ, zda prvek je pou₧φvßn v projektu, kter² se nachßzφ v design nebo run-time m≤du, lze vyu₧φt vlastnost Ambient.UserMode. Vracφ hodnotu False, pokud je projekt v design m≤du a True, pokud je projekt v run-time m≤du.

Dim m_vFile As Variant
Public Property Get vFile() As Variant
    'Klient si m∙₧e vlastnost vFile zjistit kdykoliv - v design i v run-time m≤du
    vFile = m_vFile
End Property

Public Property Let vFile(ByVal New_vFile As Variant)
    'hodnota m∙₧e b²t nastavena pouze v  run-time
    'pokud se o to pokusφ klient v design m≤du, pak vyvolßme chybu
    If Ambient.UserMode = False Then Err.Raise 382
    m_vFile = New_vFile
    PropertyChanged "vFile"
End Property

Zp∞t DalÜφ