不知道你要做什么?这个好像没有什么问题啊个人认为做成dll更好一些

解决方案 »

  1.   

    If Ambient.UserMode Then
            UserControl.Extender.Visible = False
        Else
            UserControl.Extender.Visible = True
        End If
      

  2.   

    Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
        If Ambient.UserMode Then
            UserControl.Extender.Visible = False
        Else
            UserControl.Extender.Visible = True
        End IfEnd Sub
      

  3.   

    将InvisibleAtRunTime设为FALSE即可
      

  4.   

    应该是把InvisibleAtRunTime设为True?前面的In是否定的意思哦
      

  5.   

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