文本框刪除按鈕未撤消

Question

基本上，下面的代碼從文本框中刪除選定的文本，盡管您不能撤消它。 對撤消有幫助嗎？

TextBox1.SelectedText = ""

Answer 1

嘗試以下變化...

Public Class Form1
    Dim selText as String

    Private Sub Button1_Click(sender as object, e as EventArgs) Handles Button1.Click
        selText = TextBox1.SelectedText
        TextBox1.SelectedTexxt = ""
    End Sub

    Private Sub Button2_Click(sender as object, e as EventArgs) Handles Button2.Click
        TextBox1.AppendText(selText)
    End Sub
End Class

Answer 2

找到了答案。 只需在下面使用此代碼

SendKeys.Send("{BS}")