復制操作應該是復制當前選區而不是整個文本框內容,粘貼應該是將剪帖板內容插入到當前光標所在位置,而不是將文本框原有內容徹底覆蓋,另外,通常當Text1沒選中文字時,要使復制按鈕Command1不可用
Private Sub Command1_Click()
Clipboard.SetText Text1.SelText
End Sub
Private Sub Command2_Click()
If Len(Clipboard.GetText) Then
【vb編寫復制粘貼程序 vb復制粘貼代碼】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 Butt Then
Command1.Enabled = Text1.SelLength > 0
End If
End Sub
比如Text1的內容為abc ， 而當前只選中了第一個字符a
那么Text1.text表示文本框的全部內容 ， 即abc
而Text1.SelText表示文本框中當前選中的內容，即a--selText是select text（選中文字）的縮寫
