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ší

Autor: The Bozena