樓上的思路是正確的,不過複製操作應該是複製當前選區而不是整個文字框內容,貼上應該是將剪帖板內容插入到當前游標所在位置,而不是將文字框原有內容徹底覆蓋,另外,通常當Text1沒選中文字時,要使複製按鈕Command1不可用 Private Sub Command1_Click() Clipboard.SetText Text1.SelText End Sub Private Sub Command2_Click() If Len(Clipboard.GetText) Then Text1.SelText = Clipboard.GetText End If End Sub Private Sub Form_Load() Command1.Enabled = False End Sub Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer) Command1.Enabled = Text1.SelLength > 0 End Sub Private Sub Text1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 1 Then Command1.Enabled = Text1.SelLength > 0 End If End Sub 比如Text1的內容為abc，而當前只選中了第一個字元"a" 那麼Text1.text表示文字框的全部內容，即"abc" 而Text1.SelText表示文字框中當前選中的內容，即a--selText是select text（選中文字）的縮寫