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
|