關於文本框Text的兩個問題!


1.我想在把Text的內容設為"關於文本框Text的兩個問題"(內容包括雙引號!).於是輸入以下代碼:Text1.text=""關於文本框Text的兩個問題"",試調時就會出現錯誤,我也知道是因為我用了兩個雙引號的緣故.除了在Text1的屬性窗口中直接設置以外,請問如果要用代碼來設置的話怎么解決?

2.比如說,Text1.Text="<font size=6>關於文本框Text的兩個問題</font>"(因為我想用VB修改html文件,所以用到了html代碼!).
我想用Replace函數把"文本框"改為"對話框","問題"改為"難題".也就是Text1的內容為"<font size=6>關於對話框Text的兩個難題</font>",於是我輸入以下代碼:

Private sub command1_click()
  Dim xx As String
  xx = Text1.Text
  xx = Replace(xx, "文本框", "對話框")
  xx = Replace(xx, "問題", "難題")
  Text1.Text = xx
End sub

結果,"關於對話框Text的兩個難題"這一句話是就是替換成功了,但是后面的"</font>"卻另起了一行.也就是所Text1的內容變成了:
<font size=6>關於對話框Text的兩個難題
</font>"

於是,以上內容在html網頁中就成了錯誤的語法.請問,為什么會這樣呢?我改怎么樣解決?
謝謝!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

19 个解决方案

#1


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

#2


1.這樣: Text1.text="""關於文本框Text的兩個問題"""
2.不知道

#3


1、Text1.text="""關於文本框Text的兩個問題"""
2、是對的,我這里顯示都是一行,是不是用了Multiline=true??這樣子如果text1的長度不夠長,會顯示在兩行內。

#4


沒錯,我的Multiline是設置成true了,但我設置的text1的長度是足夠的!

#5


那,如果我把Multiline是設置成false的話,是不是就可以解決呢?

#6


那你把它設置成false嘛

#7


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

#8


對了,我忘了說,如果我用RichText來代替Text,也會出現這種情況啊!

#9


它顯示是會顯示在兩行內,但是不是多出一個回車鍵的,如果真多出一個回車鍵,你再刪掉它吧。

#10


雙引號 + 單引號 “‘’”

#11


我可以肯定,是沒有多加了回車鍵的.
有時候,我替換了以后,在Text中沒問題,但我把text的內容存為html文件,這個問題
就來了.

#12


啊,我試過了,把Multiline是設置成false也不行啊,我已經走投無路了!誰知道為甚么啊!?

#13


2.不會啊,是對的,我也試過可以的!

#14


根本就沒問題(不會換行, 我剛試過)

你再看看是其他的什么問題吧

#15


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

把一個單引號換成2個

#16


不是的,最上面的"<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

結果出來后,就會出現問題了!

#17


誰知道這是為什么啊?!

#18


Who can hell me/

#19


你是怎樣存文件的?


不是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)

你用了中文的逗號了!

注意!

本站转载的文章为个人学习借鉴使用,本站对版权不负任何法律责任。如果侵犯了您的隐私权益,请联系我们删除。



 
粤ICP备14056181号  © 2014-2021 ITdaan.com