确实没有办法改变子控件的MultiLine属性。
你可以在控件设计时就设定Text1.MultiLine=True,在你的控件里通过加载Text1的事件来控制它,达到和使用Text1.MultiLine=False一样的效果。

解决方案 »

  1.   

    怎样加载Text1的事件来控制?请说的具体一点。谢谢
      

  2.   

    呃,重载Text1的KeyPress事件不能解决根本问题,这样吧,你在自定义控件上放两个Text吧,一个设定Text1.MultiLine=True,另一个设定Text1.MultiLine=False, 根据用户的属性设置来决定用哪一个Text。
      

  3.   

    把对应的Property Set去掉不可以吗
      

  4.   

    试试以下:
    property let Multiline(byval New_Multiline as boolean)if ambient.usermode=true then raise err.number
    m_Multiline=New_Multiline
    text1.multiline=New_Multilineend property
      

  5.   

    text1的Multiline属性为只读的呀。
    只能在设计的时候改变。不能运行时改变。还是用两个textbox,一个MultiLine=True,另一个MultiLine=False吧