複製操作應該是複製當前選區而不是整個文本框內容,粘貼應該是將剪帖板內容插入到當前光標所在位置,而不是將文本框原有內容徹底覆蓋,另外,通常當Text1沒選中文字時,要使複製按鈕Command1不可用
Private Sub Command1_Click()
ext ext
End Sub
Private Sub Command2_Click()
If Len(ext) Then
ext = ext
End If
End Sub
Private Sub Form_Load()
led = False
End Sub
Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
led = ength > 0
End Sub
Private Sub Text1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Butt Then
led = ength > 0
End If
End Sub
比如Text1的內容為abc,而當前只選中了第一個字符a
那麼表示文本框的全部內容,即abc
而ext表示文本框中當前選中的內容,即a--selText是select text(選中文字)的縮寫