If Ambient.UserMode Then UserControl.Extender.Visible = False Else UserControl.Extender.Visible = True End If
Private Sub UserControl_ReadProperties(PropBag As PropertyBag) If Ambient.UserMode Then UserControl.Extender.Visible = False Else UserControl.Extender.Visible = True End IfEnd Sub
UserControl.Extender.Visible = False
Else
UserControl.Extender.Visible = True
End If
If Ambient.UserMode Then
UserControl.Extender.Visible = False
Else
UserControl.Extender.Visible = True
End IfEnd Sub
返回或设置一个值,它决定控件在运行时是否应有不可见的窗口。在创建控件时,InvisibleAtRuntime 属性可读可写,在控件运行时,该属性是不可用 。设置值InvisibleAtRuntime 的设置值为:设置值 描述
True 使控件在运行时具有不可见的窗口。控件的容器可保持控件在运行时不可见,就象 Timer 控件一样。此时控件仍然处于活动状态,因此仍可编写与控件交互的程序。扩展对象中没有 Visible 属性。
False (缺省)控件在运行时与正常的控件相同,此时 Visible 扩展属性的状况决定了控件的可见性。
说明重点 要使控件在运行时不可见,不要使用 Visible 扩展属性。如果使用了这个属性,控件在运行时仍将具有可见控件的所有开销。除此之外,因为开发者和最终用户都可以使用扩展属性,而他们可能会使控件成为可见的。有些容器可能不支持 InvisibleAtRuntime 属性;在这种情况下,控件在运行时将是可见的。在创建运行时不可见的控件之前,请考虑创建一个由进程内的代码部件 (ActiveX DLL) 提供的普通对象代替。进程内的代码部件提供的对象所需要的资源比控件需要的资源少,甚至比不可见控件所需的资源还少。实现不可见控件的唯一原因就是想利用只有 ActiveX 控件才能提供的优越性。