Private sub ComCopy_Click()

　　If TexS.SelLength>0 Then

　　Clipboard.Clear

　　Clipboard.SetText TexS.SelText

　　End If

　　End Sub

　　在該段代碼中，使用了一個If語句來判斷用戶是否在文本框1中選中了文本，如果沒有選中，則不執行任何操作，如果選中了文本。則首先將剪貼板中內容清除，然后將用戶所選的文本傳送到剪貼板中。

　　【剪切】與【復制】的區別是，【剪切】不僅將用戶所選的文本傳送到剪貼板中，并且將所選文本刪除。因此，只需在【復制】按鈕的Click事件過程中添加一行刪除所選文本的代碼，即可得到【剪切】按鈕的Click事件過程，ComCopy_C}ick事件過程如下：

　　Private Sub ComCut_Click()

　　If TexS.SelLength>0 Then

　　C1ipboard.Clear

　　Clipboard.SetText TexS.SelText

　　TexS.SelText=“”

　　End If

　　End Sub

　　【粘貼】按鈕的Click事件過程如下：

　　Private Sub ComPaste_Click()

　　TexD_SelText=Clipboard.GetText〔)

　　End Sub

　　GetText方法將返回剪貼板上當前的文本字符串，然后用一條賦值語句將該字符串復制到文本框2的指定位置(TexD.SelText).如果當前沒有被選定的文本，則將該文本粘貼在文本框中插入點處。

　　運行該程序，在文本框1中輸入一段文本，然后使用鼠標在文本框中拖動選中一段文本，單擊【復制】按鈕，再單擊【粘貼】按鈕。則用戶所選文本就粘貼到文本框2中了，如圖5.32所示。再在文本框1中選中一段文本，單擊【剪切】按鈕，則所選文本被刪除。將插入點置于文本框2中的某位置，單擊【粘貼】按鈕，則所選文本就粘貼到插入點處，如圖5.33所示。

　　2010年9月計算機等級考試成績查詢時間匯總

　　2011計算機等級考試二級VB考點及習題匯總

　　2011年計算機等級考試二級VB復習指導匯總

　　2011年上半年計算機等級考試報名時間匯總