没有分了，请教：vb怎么实现 记事本 的 撤销、复制、粘贴、剪切 功能？？
我看记事本“编辑”菜单上，有“撤销”、“复制”、“粘贴”、“剪切”功能，怎么实现？
右键菜单“显示Unicode控制字符”怎么实现？
请教！
4 个解决方案
#1
vb怎么实现 记事本 的 撤销、复制、粘贴、剪切 功能？？
我看记事本“编辑”菜单上，有“撤销”、“复制”、“粘贴”、“剪切”功能，怎么实现？
用VB新建的“应用程序向导”建立多文档界面程序，查看它的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
大概就是一些这样的代码，也是没有什么用，怎么办？
谢谢先！
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
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
智能推荐
注意！
本站转载的文章为个人学习借鉴使用，本站对版权不负任何法律责任。如果侵犯了您的隐私权益，请联系我们删除。