vb複製粘貼代碼 vb如何複製粘貼代碼

複製操作應該是複製當前選區而不是整個文本框內容,粘貼應該是將剪帖板內容插入到當前光標所在位置,而不是將文本框原有內容徹底覆蓋,另外,通常當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（選中文字）的縮寫