vb6.0 rivhtextbox怎么才能有复制功能 - 编程论坛

apull2021-06-18 22:16

richtextbox右键菜单，用ctrl+c，ctrl+v，ctrl+x实现复制，粘贴，剪切。
建立个菜单，recheditbox鼠标右键添加MouseDown事件。

程序代码：

Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByRef lParam As Any) As Long

Private Sub mnuCut_Click()
'剪切
    RichEdit.SetFocus
    SendKeys "^X", True
End Sub

Private Sub mnuCopy_Click()
'复制
    RichEdit.SetFocus
    SendKeys "^C", True
End Sub

Private Sub mnuPaute_Click()
'粘贴
    RichEdit.SetFocus
    SendKeys "^V", True
End Sub

Private Sub RichEdit_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
'显示编辑区快捷菜单
    If Button = 2 Then
        PopupMenu mnuEdit
    End If
End Sub