关于文本框Text的两个问题!

Question

1.
replace(sText,chr(34),chr(34) & chr(34))

Answer 1

1.這樣: Text1.text="""关于文本框Text的两个问题"""
2.不知道

Answer 2

1、Text1.text="""关于文本框Text的两个问题"""
2、是对的，我这里显示都是一行，是不是用了Multiline=true??这样子如果text1的长度不够长，会显示在两行内。

Answer 3

没错,我的Multiline是设置成true了,但我设置的text1的长度是足够的!

Answer 4

那,如果我把Multiline是设置成false的话,是不是就可以解决呢?

Answer 5

请问一下nik_Amis(Azrael) ,你那句"replace(sText,chr(34),chr(34) & chr(34))"是什么意思?!

Answer 6

对了,我忘了说,如果我用RichText来代替Text,也会出现这种情况啊!

Answer 7

我可以肯定,是没有多加了回车键的.
有时候,我替换了以后,在Text中没问题,但我把text的内容存为html文件,这个问题
就来了.

Answer 8

啊，我试过了，把Multiline是设置成false也不行啊，我已经走投无路了！谁知道为甚么啊！？

Answer 9

replace(sText,chr(34),chr(34) & chr(34))把一个单引号换成2个

Answer 10

不是的，最上面的"<font size=6>关于文本框Text的两个问题</font>"这个内容只是我的举例而已，的确是没问题的。我真正遇到这个问题是在我编辑Folder.htt这个文件遇到的.
我在程序启动时用text1把这个文件得内容读出来，再用Replace函数把text1的内容按需要修改，最后才把text1的文本存为Folder.htt覆盖掉原来的Folder.htt文件以达到修改的目的.
我真正要修改的那一句是Folder.htt文件中的var L_Intro_Text = "<b><font color=red>警告</font></b><br><br>修改该文件夹的内容可能导致程序运行不正常。"我想用Replace函数把Form2中的text1和text2的内容替换这句中的“警告”和“修改该文件夹的内容可能导致程序运行不正常。”。我输入：
Private sub command1_click()
  Dim xx As String
  xx = Form1.Text1.Text
  xx = Replace(xx, "警告", Form2.text1.text)
  xx = Replace(xx, "修改该文件夹的内容可能导致程序运行不正常。"，Form2.text2.text)
  Text1.Text = xx
End sub结果出来后，就会出现问题了！

Answer 11

你是怎样存文件的？
不是Replace的问题。还有，下面的代码是你写出来还是在程序中拷出来？
Private sub command1_click()
  Dim xx As String
  xx = Form1.Text1.Text
  xx = Replace(xx, "警告", Form2.text1.text)
  xx = Replace(xx, "修改该文件夹的内容可能导致程序运行不正常。"，Form2.text2.text)
  Text1.Text = xx
End sub
xx = Replace(xx, "修改该文件夹的内容可能导致程序运行不正常。"，Form2.text2.text)你用了中文的逗号了！