Question

vb中的剪切代码

我喜欢vb ，想编一些小程序，可不知道剪切和粘贴功能该怎么编辑，还望高手给予指教。

Answer 1

朋友 5分啊 是不是太少了点啊

Private Sub 复制_Click()
Clipboard.Clear
If TypeOf Screen.ActiveControl Is TextBox Then
Clipboard.SetText Screen.ActiveControl.SelText
End If
End Sub

Private Sub 粘贴_Click()
If TypeOf Screen.ActiveControl Is TextBox Then
Screen.ActiveControl.SelText = Clipboard.GetText()
End If
End Sub

Private Sub 剪切_Click()
复制_Click
If TypeOf Screen.ActiveControl Is TextBox Then
Screen.ActiveControl.SelText = ""
End If
End Sub

Answer 2

Private Sub 剪切_Click()
复制_Click
If TypeOf Screen.ActiveControl Is TextBox Then
Screen.ActiveControl.SelText = ""
End If
End Sub

Answer 3

是呀，5分太少了。一楼的还是写了出来