Question

请高手过来看下vb的文本框text属性代码设置

vb中用代码设置文本框显示的文字，由于文本框设置了滚动条，故里面的文字较多，text.text=""。双引号内的文字是“停水为生活带来了极大不便，可哈尔滨市民贾慧却发现了令他欣喜的变化。这几天，正在上小学四年级的女儿贾语嫣不但懂得了水的珍贵，而且在家里指定了一个污水桶，每天都要监督他们夫妇节水,洗脸、洗菜的水都倒在这里，可以洗抹布或者冲厕所,过几天来水以后，我们也要保持这种习惯。”但是我设置代码之后，运行显示：编辑错误、语法错误，请问如何设置才对？
在代码中是英文状态下的双引号
Private Sub Command1_Click()
Text1.Text = "停水为生活带来了极大不便，可哈尔滨市民贾慧却发现了令他欣喜的变化。这几天，正在上小学四年级的女儿贾语嫣不但懂得了水的珍贵，而且在家里指定了一个污水桶,每天都要监督他们夫妇节水,洗脸、洗菜的水都倒在这里，可以洗抹布或者冲厕所,过几天来水以后，我们也要保持这种习惯? "
End Sub

Answer 1

你的代码运行是没问题，我也试了，所以做了以下的猜测，看看是不是符合。

要确保""之间的内容在代码里是一行，要是2行的话。要用& _进行连接

Text1.Text="AAA" & _
"BBB"

Answer 2

把Text1的MultiLine设为True,把ScrollBars属性值设为2。

Private Sub Command1_Click()
Text1.Text = "停水为生活带来了极大不便，可哈尔滨市民贾慧却发现了令他欣喜的变化。这几天，正在上小学四年级的女儿贾语嫣不但懂得了水的珍贵，而且在家里指定了一个污水桶,每天都要监督他们夫妇节水,洗脸、洗菜的水都倒在这里，可以洗抹布或者冲厕所,过几天来水以后，我们也要保持这种习惯? "
End Sub

Answer 3

text.multiline=true
把你文本前后的双引号是中文输入法下的双引号
换成英文输入法下的双引号试试
我复制你的代码试过了，没问题呀

Answer 4

VERSION 5.00
Begin VB.Form Form1
Caption = "Form1"
ClientHeight = 3195
ClientLeft = 60
ClientTop = 345
ClientWidth = 4680
LinkTopic = "Form1"
ScaleHeight = 3195
ScaleWidth = 4680
StartUpPosition = 3 '窗口缺省
Begin VB.TextBox Text1
Height = 2895
Left = 180
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 1
Text = "Form1.frx":0000
Top = 120
Width = 2595
End
Begin VB.CommandButton Command1
Caption = "Command1"
Height = 495
Left = 3300
TabIndex = 0
Top = 1320
Width = 1215
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub Command1_Click()
Text1.Text = "停水为生活带来了极大不便，可哈尔滨市民贾慧却发现了令他欣喜的变化。这几天，正在上小学四年级的女儿贾语嫣不但懂得了水的珍贵，而且在家里指定了一个污水桶,每天都要监督他们夫妇节水,洗脸、洗菜的水都倒在这里，可以洗抹布或者冲厕所,过几天来水以后，我们也要保持这种习惯? "
End Sub

Private Sub Form_Load()

End Sub

经测试，无问题！