鼠标右键复制，粘贴，剪切？？？？？？？

Question

老大，分给不了阿。对拉，我还有问题要问，就是右键复制，粘贴，剪切怎么写啊，多谢拉！！！！！！

Answer 1

'复制
    Clipboard.SetText Text1.Text
    
    '粘贴
    Text1.Text = Clipboard.GetText
    
    '剪切
    Clipboard.SetText Text1.Text
    Text1.Text = ""

Answer 2

在text中我点鼠标右键可是光标自动移到下一个text中，怎么能锁定阿，还有你写的这个我的弹出式菜单能用吗？

Answer 3

第一个问题 
Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = 2 Then
        Text1.Enabled = False
        Text1.Enabled = True
        Text1.SetFocus
        Me.PopupMenu aa
    End If
End Sub第二个
能用，

Answer 4

你把相应按钮中的代码复制到你的菜单事件中Private Sub Command1_Click()
    '复制的代码
    Clipboard.Clear
    Clipboard.SetText Text1.Text
End SubPrivate Sub Command2_Click()
    '粘贴的代码
    Text1.Text = Clipboard.GetText
End SubPrivate Sub Command3_Click()
    '剪切的代码
    Clipboard.Clear
    Clipboard.SetText Text1.Text
    Text1.Text = ""
End Sub

Answer 5

光标锁定是解决啦，可是复制，粘贴，剪切的功能还是有点问题，我又两个text文本框，现在只能在一个上进行操作，不知如何解决，请大虾帮忙！！！！！！！！！不胜感激！！！！！！！！！！！