從字符串realbasic中刪除一個字符

Question

我有一個在RealBasic中創建的虛擬鍵盤。 當我按字母，數字時，我將它附加到文本字段，但是，當我從虛擬鍵盤按“刪除”按鈕時，如何從當前光標位置刪除該文本字段中的字符？

要在我使用的文本字段中附加字母或數字：

TextField1.Text = TextField1.text + me.Caption //to append caption
TextField1.SelStart = Len(TextField1.text)  // to move cursor at the end of string

Answer 1

如果您只打算刪除最后輸入的字符，Paul的解決方案就有效。

但要注意：如果讓用戶也左右移動光標，當然必須刪除光標位置的文本。 如果您還允許用戶選擇文本，那么它就更復雜了。

我建議您的虛擬鍵盤只需將鍵入的鍵發送到系統，就像用戶按下了鍵一樣。 這樣，TextEdit字段將為您完成所有事情。

但是，要使其工作，您需要為要支持的每個OS平台提供自定義解決方案。

讓我知道您打算支持哪些平台，我會看到我能找到的內容。 我有一些OSX代碼，但不適用於Windows。

Answer 2

做托馬斯所說的意思是：

dim n as String = TextField1.Text
n = newText.left(TextField1.selStart) + n.right(n.len - textField1.selStart - 1)
textField1.text = n

Answer 3

剛剛丟掉最后一個角色：

TextField1.Text = TextField1.Text.Left(TextField1.Len-1)