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

本文转载自 RICKY仔查看原文 2002-08-21 10 ext/ 问题/ 文本

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

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

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

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

於是,以上內容在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

不是的，最上面的"關於文本框Text的兩個問題"這個內容只是我的舉例而已，的確是沒問題的。我真正遇到這個問題是在我編輯Folder.htt這個文件遇到的.
我在程序啟動時用text1把這個文件得內容讀出來，再用Replace函數把text1的內容按需要修改，最后才把text1的文本存為Folder.htt覆蓋掉原來的Folder.htt文件以達到修改的目的.
我真正要修改的那一句是Folder.htt文件中的

var L_Intro_Text = "警告 修改該文件夾的內容可能導致程序運行不正常。"

我想用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)

你用了中文的逗號了！

#20

注意！

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

兩個文本框聯動的問題。當有兩個文本框的時候？下拉框與兩個文本框的關聯問題！！ VB光標在兩個文本框中移動的問題 append 怎么增加兩個文本框如何實現兩個文本框同時輸入【兩個問題，但分不少】下拉列表框使得文本框中的漢字變成亂碼？請教ADO中SQL查詢條件為Between兩個文本框（或下拉框）的問題兩個文本框讀取文本如何實現兩個文本框中文本的交換