没有分了，请教：vb怎么实现 记事本 的 撤销、复制、粘贴、剪切 功能？？

vb怎么实现 记事本 的 撤销、复制、粘贴、剪切  功能？？
我看记事本“编辑”菜单上，有“撤销”、“复制”、“粘贴”、“剪切”功能，怎么实现？

右键菜单“显示Unicode控制字符”怎么实现？

请教！

4 个解决方案

#1

vb怎么实现 记事本 的 撤销、复制、粘贴、剪切  功能？？
我看记事本“编辑”菜单上，有“撤销”、“复制”、“粘贴”、“剪切”功能，怎么实现？
用VB新建的“应用程序向导”建立多文档界面程序，查看它的VB自动生成的代码。可获得你想要的具体代码。

#2

谢谢老大！
Private Sub mnuEditUndo_Click()
    '应做:添加 'mnuEditUndo_Click' 代码。
    MsgBox "添加 'mnuEditUndo_Click' 代码。"
End Sub


Private Sub mnuFileExit_Click()
    '卸载窗体
    Unload Me

End Sub

Private Sub mnuFileSend_Click()
    '应做:添加 'mnuFileSend_Click' 代码。
    MsgBox "添加 'mnuFileSend_Click' 代码。"
End Sub



大概就是一些这样的代码，也是没有什么用，怎么办？

谢谢先！

#3

复制
Clipboard.Clear
Clipboard.SetText RichTextBox1.SelText
RichTextBox1.SelText = Clipboard.GetText

粘贴
RichTextBox1.SelText = Clipboard.GetText

剪切
Clipboard.Clear
Clipboard.SetText RichTextBox1.SelText
RichTextBox1.SelText = ""

查找下一个
RichTextBox1.SelStart = RichTextBox1.SelStart + RichTextBox1.SelLength + 1
RichTextBox1.Find sFind, , Len(RichTextBox1)

查找
sFind = InputBox("请输入要查找的内容", "查找")
RichTextBox1.Find sFind

#4

我用这个代码试了一下，为什么总是显示实时错误424