从字符串中删除一个字符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

就砍掉最后一个字符：

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

Answer 2

保罗的解决方案作品，如果你只打算删除最后一个输入的字符。

但要小心：如果让用户也左右移动光标，当然你必须删除光标位置的文本。如果你还允许用户选择文本，那么它更加复杂。

我建议您的虚拟键盘只需将键入的键发送到系统，就好像用户按下了键一样。这样，TextEdit字段将为您做所有事情。

但是，为了完成这项工作，您需要针对您希望支持的每个操作系统平台的定制解决方案。

让我知道你计划支持哪些平台，我会看看我能找到什么。我有一些代码用于OSX，但不适用于Windows。

Answer 3

做什么托马斯说手段：

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