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（選中文字）的縮寫