無法刪除 VB RTF 格式

= 0= len(richtextbox2)

sendkeys "^c", true '***= len(richtextbox1)

sendkeys "^(v)", true '兩個有星星的地方有待商榷。

= 0= len(richtextbox2)

sendkeys "^c", true

richtextbox1=richtextbox1 & vbcrlf '在貼上新內容之前，給它乙個額外的回車符。

len(richtextbox1)

sendkeys "^(v)", true

= 0= len(richtextbox2)

sendkeys "^c", true '***= len(richtextbox1)

sendkeys "^(v)", true '兩個有星星的地方有待商榷。

** 首先將 excel 資料貼上到字串變數中，然後將字串變數新增到富文字框中。

如果要這樣做，只能先用記事本弄錯，即先將Excel資料貼上到記事本中，然後再從記事本複製到富文字框中。

我想不出別的了。

private sub richtextbox1_change()dim s as string

s == s

end sub

這樣，richTextBox1 在貼上時會觸發 richTextBox1 更改

把他的文字部分放在 s

然後將 richtextbox1 的內容轉換為 s

這樣，它就變成了全純文字。

您也可以使用**將其寫在記事本中並再次閱讀。

VB 的富文字框小部件本身就有這個功能，而且超級好用：

這是乙個純文字字串。

這是乙個富文字字串。

您的選單是否與 rtftext 採用相同的形式？ 如果不是，請檢查 ActiveForm 是否是 rtftext 所在的表單（需要中斷檢查）; 文字有選擇嗎？

仔細檢查控制項（如果可以）和 **（中斷、f8 逐步執行）的各個屬性，以檢查每個變數的值是否正確。

..回車鍵是換行符。

private sub text1_keypress(keyascii as integer)

if keyascii = 13 then '按回車鍵ascii = 0'轉到按下的地方。

vbcrlf

len(end if

end sub

VB 的富文字框小部件本身就有這個功能，而且超級好用：這是乙個純文字字串，這是乙個富文字字串。

不可以，第三方控制項可用。

我不知道你是否理解，例如，如果你將乙個文字框從設計器的工具欄拖到你的介面上。

實際上將文字框型別的例項新增到窗體中（不要相信，您可以在設計器中看到原始碼這個文字框型別是你想要的文字輸入框，這個型別實現了很多方法，比如如何在介面上顯示它，顯示什麼顏色，它有什麼事件，當你點選這個輸入框時會產生什麼效果，等等。

此文字框實際上是 Microsoft 封裝自身的元件，因此您可以引用任何第三方小組件（如果安裝完整的小組件包，它們將顯示在設計器的工具箱中）並將其拖動到設計介面上，它們將具有與原始元件相同的功能（只是方式不同）。

c 有很多第三方 widget，比如 devexpress，它不僅完全實現了所有官方元件，還新增了其他 widget。

devexpress 控制項的效果如下：