VB text保存并加一个滚动条

来源：百度知道 编辑：UC知道 时间：2024/05/02 18:53:51
text我想让里面的内容保存在外部文件1.txt中，该怎么写？再加一个滚动条，没有超过txt范围时也可以滚动，这个代码该怎么写？

在窗体上建立一个名为“Text1”的文本框，然后在属性窗口内找到“MultiLine”将其值改为“TRUE”，再找到“ScrollBars”，将其值改为除0外的其他值。（1：有横向滚动条；2：有纵向滚动条；3:横纵都有）

在建立一个名为“Cmd1”的命令按钮
然后编写代码：
Private Sub cmd1_Click()
text1.text=""
Open "c:/1.txt" For Output As #1
Print #1, Text1.Text
Close #1
End Sub
运行时，先在文本框内输入内容，然后按命令按钮将文件保存至C盘根目录下