Question

VB中不能给只读属性赋值问题

为会么会出现这样的问题？各位高手帮我看一下：
Dim i As Long
Dim Str As String
If Check1(0).Value Then '选择凯撒加解密
Print Caesarjia()
For i = LBound(b) To UBound(b)
Str = Str & "b(" & i & " )= " & b(i) & Chr(13) '把所得的密文放入text2中
Next i
Text2.MultiLine = True
Text2.Text = Str
Print Caesarjie()
For i = LBound(a) To UBound(a)
Str = Str & "a(" & i & " )= " & a(i) & Chr(13) '把所得的明文放入text3中
Next i
Text3.MultiLine = True
Text3.Text = Str
End If
dim a(100) as string
dim b(100) as string
text2.MultiLine=true 这里有问题

Answer 1

text2.MultiLine=true 这个属性需要在该控件属性栏设置 不能写代码

Answer 2

不能给只读属性赋值，只能在设计的时候设置好