Cut、Paste 方法和文本框控件示例

下例用 Cut 和 Paste 方法从一个文本框中剪切文本，并将其粘贴到另一个文本框中。

窗体包含：

• 名为 TextBox1 和 TextBox2 的两个文本框控件。
• 名为 CommandButton1 的命令按钮。

Sub UserForm27_Initialize()
    UserForm27_TextBox1.Text = "From TextBox1!"
    UserForm27_TextBox2.Text = "Hello "
    
    UserForm27_CommandButton1.Caption = "Cut and Paste"
    UserForm27_CommandButton1.AutoSize = True
End Sub

Sub UserForm27_CommandButton1_Click()
    UserForm27_TextBox2.SelStart = 0
    UserForm27_TextBox2.SelLength = UserForm27_TextBox2.TextLength
    UserForm27_TextBox2.Cut

    UserForm27_TextBox1.SetFocus
    UserForm27_TextBox1.SelStart = 0
    
    UserForm27_TextBox1.Paste
    UserForm27_TextBox2.SelStart = 0
End Sub