您的位置：程序门 -> vb -> 基础类

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

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

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

发表于：2007-09-11 17:51:16 楼主

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

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

请教！

发表于：2007-09-12 15:55:061楼得分:0

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

发表于：2007-09-13 15:59:082楼得分:0

谢谢老大！
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

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

谢谢先！

发表于：2007-09-14 11:08:463楼得分:0

复制
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

其他资讯

您的位置：程序门 -> vb -> 基础类

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

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