什么办法让TEXT框也能autosize啊?

文本框能够随着输入文本的多少调节长度和宽度大小

解决方案 »

  1.   

    没有换行功能，只能单行显示（就好象LBL一样），这样效果行吗？
      

  2.   

    Option ExplicitPrivate Sub Form_Load()
     Me.Text1.Width = TextWidth(Text1.Text) + 5
     Me.Text1.Alignment = 0
     Me.Text1.SelStart = Len(Text1.Text)
     
     
    End SubPrivate Sub Text1_Change()
      Me.Text1.Width = TextWidth(Text1.Text)
    End Sub
    这样的效果好不??
      好象不怎么好,你自己调调
      

  3.   

    Text可以换行啊,设置滚动为垂直方向．