Question

求解VB中MultiLine属性的应用问题

我想实现字符的隐藏与显示的转换，设计代码如下：
Private Sub Command1_Click()
Text1.Locked = False
If Text1.MultiLine = False Then
Text1.MultiLine = True
Command1.Caption = "隐藏字符"
Else
Text1.MultiLine = False
Command1.Caption = "显示字符"
End If
End Sub
但是调试说不能给只读属性付值
本人太菜，求好心人帮助
哈哈... 我太大意了 问题都没说清楚
我想用 text1.PassWordChar=" * " 来实现对文本字符的隐藏
然后利用 当MultiLine属性为true时PassWordChar属性无效的性质，通过按键控制MultiLine属性而实现手动控制文本框字符的显示和隐藏
但是如果无法在运行时修改MULITLINE的话，那请问有没有什么别的方法实现这样的效果呢

Answer 1

MultiLine 属性（应用于TextBox）

返回或设置一个值，该值指示 TextBox 控件是否能够接受和显示多行文本。在运行时是只读的。

语法

object.MultiLine

object 所在处代表一个对象表达式，其值是“应用于”列表中的一个对象。

设置值

MultiLine 属性设置值有：

设置值 描述
True 允许多行文本。
False （缺省值）忽略回车符并将数据限制在一行内。

说明

当键入文本超出文本框时多行 TextBox 控件将使正文卷绕。

使用 ScrollBars 属性也能够在 TextBox 控件中加入滚动条来加大 TextBox 控件的显示范围。如果没有指定水平滚动条，那么在多行 TextBox 中文本将自动地卷绕。

注意 在一个没有缺省按钮的窗体上，在多行 TextBox 控件中按下 ENTER 将把焦点移动到下一行。如果有缺省按钮存在，那么必须按下 CTRL+ENTER E才能移动到下一行。
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝

MultiLine 属性（RichTextBox 控件）

返回或设置一个值，它指明 RichTextBox 控件是否接受和显示多行正文。运行时此属性只读。

语法

object.MultiLine

object 所在处代表对象表达式，其值是一个 RichTextBox 控件。

设置值

MultiLine 属性的设置值包括：

设置值 描述
True 允许以多行形式输入正文。
False （缺省）忽略回车换行并将数据限制为一行。

说明

当输入的正文超出文本框时，多行 RichTextBox 控件将使正文自动换行。

也可以添加滚动条，利用 ScrollBars 的属性来扩大 RichTextBox 控件的范围。

注意 在没有缺省按钮的窗体中，在多行 RichTextBox 控件中键入 ENTER 键，将使焦点移动到下一行。若缺省按钮存在，则需键入 CTRL + ENTER 键才能使焦点移动到下一行。

Answer 2

Text1.MultiLine 属性只能在设计时更改，运行时不能改变。
---------------------
其实你可以使用2个文本框，一个是Text1.MultiLine=true，一个Text2.MultiLine =false
通过按键做2个文本框的互相切换显示。

Answer 3

我晕……text1.PassWordChar可以直接设置呀，就像这样：
Private Sub Command1_Click()
Text1.Locked = False
If Text1.PasswordChar = "*" Then
Text1.PasswordChar = ""
Command1.Caption = "隐藏字符"
Else
Text1.PasswordChar = "*"
Command1.Caption = "显示字符"
End If
End Sub
还有，Text1.Locked = False这句似乎没用吧

Answer 4

你的n 第一个数是个空值，但它后面加了个 回车 所以出现第一个空行。
你只要改一下：
sum=sum+a(ij)
n=n & sum & chr(13)
text1=n
///////if
sum=sum+a(ij)
if n<>"" then n=n & chr(13) & sum
text1=n

Answer 5

MULITLINE只能在设计时修改.
按你的需求,应该使用 text1.visible 控制是否可见