Question

vb中怎样实现text自动换行与不自动换行之间的转换功能

即通过一个按钮单击一下text中的内容自动换行，再按一下又不自动换行
如果采用两个Text，那么在对Text文本内容进行设计时，选择哪个Text进行设计？
程序运行时只出现一个Text文本框，选择Text1还是Text2进行设计。
如：设计一个界面，有一个文本框，两个按钮（自动换行、粘贴），在进行自动换行时，文本框在Text1和Text2之间转换，在进行粘贴命令时，选择哪个文本框进行粘贴命令。

Answer 1

由于text的MultiLine属性是只读的，运行时不能修改。

所以只能用两个text，其中一个自动换行，另一个不自动换行。程序运行后用显示与隐藏实现你需要的功能。 

Private Sub Command1_Click()

If Command1.Caption = "自动换行" Then

Command1.Caption = "取消自动换行"

Text2.Text = Text1.Text

Text1.Text = ""

Text1.Visible = False

Text2.Visible = True

Else

Command1.Caption = "自动换行"

Text1.Text = Text2.Text

Text2.Text = ""

Text2.Visible = False

Text1.Visible = True

End If

End Sub

Private Sub Form_Load()

Command1.Caption = "自动换行"

Text2.Visible = False

Text2.Left = Text1.Left '对齐

Text2.Top = Text1.Top

Text2.Width = Text1.Width

Text2.Height = Text1.Height

End Sub

还有如果显示滚动条的话，你可以显示水平滚动条并且去除text中的换行符来实现不换行的效果，而使用纵向滚动条实现自动换行，而ScrollBars也是只读的，所以仍然要使用上面的方法和代码。