從一個文字方塊剪下文字並貼到另一個文字方塊
下列範例使用 Cut 和 Paste 方法從一個 TextBox 剪下文字,並貼到另一個 TextBox上。
若要使用本範例,請將此範例程式碼複製到表單的指令碼編輯器中。 若要執行該程式碼,您需要開啟該表單以啟動 Open 事件。 請確定表單包含:
兩個分別名為 TextBox1 和 TextBox2 的 TextBox 控制項。
一個名為 CommandButton1 的 CommandButton 。
Dim TextBox1
Dim TextBox2
Dim CommandButton1
Sub Item_Open()
Set TextBox1 = Item.GetInspector.ModifiedFormPages.Item("P.2").Controls("TextBox1")
Set TextBox2 = Item.GetInspector.ModifiedFormPages.Item("P.2").Controls("TextBox2")
Set CommandButton1 = Item.GetInspector.ModifiedFormPages.Item("P.2").Controls("CommandButton1")
TextBox1.Text = "From TextBox1!"
TextBox2.Text = "Hello "
CommandButton1.Caption = "Cut and Paste"
CommandButton1.AutoSize = True
End Sub
Sub CommandButton1_Click()
TextBox2.SelStart = 0
TextBox2.SelLength = TextBox2.TextLength
TextBox2.Cut
TextBox1.SetFocus
TextBox1.SelStart = 0
TextBox1.Paste
TextBox2.SelStart = 0
End Sub
支援和意見反應
有關於 Office VBA 或這份文件的問題或意見反應嗎? 如需取得支援服務並提供意見反應的相關指導,請參閱 Office VBA 支援與意見反應。
意見反應
https://aka.ms/ContentUserFeedback。
即將登場:在 2024 年,我們將逐步淘汰 GitHub 問題作為內容的意見反應機制,並將它取代為新的意見反應系統。 如需詳細資訊,請參閱:提交並檢視相關的意見反應