东坡下载：内容最丰富最安全的下载站！

首页 → 编程开发 → VB/asp → 用Visual Basic实现undo功能

用Visual Basic实现undo功能

相关文章发表评论 来源：本站时间：2010/10/14 13:45:42字体大小：A-A+

更多

作者：东坡下载点击：2634次评论：0次标签：

一、设计思路
　　一般的字处理软件，如WPS Office、Word都有撤销功能，极大地方便了用户，可是这项功能用VB该如何实现呢？这就要用到SendMessage函数，该函数的功能就是向指定的窗口发送一条消息，它有4个参数，含义如下：
　　.hWnd：用来指定要接受消息的窗口的句柄；
　　.wMsg：用来指定要发送的消息的编号；
　　.wParam：用来指定消息的第一参数；
　　.1Param：用来消息的第二参数。
　　二、实战
　　新建一个EXE窗体，上面放置一个textbox、两个 commndbotton控件，名称分别为text1、command1、command2，caption分别为text1、撤销、退出，其它设置取默认值。
　　打开API阅览器，将函数SendMessage复制到窗体代码中。所有源代码如下：

Option Explicit

　Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As 　Long, ByVal wParam As Long, lParam As Any) As Long
　Private Const EM_CANUNDO = &HC6
　Private Const EM_UNDO = &HC7

Private Sub Command1_Click()
　Dim i As Integer
　i = SendMessage(Text1.hwnd, EM_UNDO, 0, 0)
End Sub

Private Sub Command2_Click()
　End
End Sub

　　在这个程序中，我们向文本框发送了一个EM_UNDO消息，该消息的功能是取消文本框的最后一个编辑操作。对于该消息，wParam和1Param均无用，故都设为0。
　　按F5看看效果吧，是不是有一种成就感。以上代码在windowsXP家庭版和VB6中文企业版下运行通过。
更多精彩内容请点击

visual studio

专题

相关文章

10-13《战国无双4-2》怎么换服装？战国无双4-2换服装操作秘诀
10-13《战国无双4-2》PC版如何联机？ 战国无双4-2联机方法详解
10-13战国无双4-2技能觉醒牛逼吗 全新武将觉醒技能展示
10-13《战国无双4-2》手柄无效怎么解决 战国无双4-2解决技巧
10-13战国无双4-2如何设置语言 战国无双4-2武将取中文名方法
10-13战国无双4-2怎么样跳过进入开场动画 战国无双4-2秒进游戏诀窍

相关评论

阅读本文后您有什么感想? 已有 人给出评价!

  • 2791 喜欢喜欢
  • 2101 顶顶
  • 800 难过难过
  • 1219 囧囧
  • 4049 围观围观
  • 5602 无聊无聊
热门评论
最新评论
发表评论 查看所有评论(0)
昵称:
表情: 高兴 可 汗 我不要 害羞 好 下下下 送花 屎 亲亲
字数: 0/500 (您的评论需要经过审核才能显示)

文章推荐

王者荣耀账号恶王者荣耀账号恶 MARVEL Strike MARVEL Strike 2017年10月手游2017年10月手游 比官居一品好玩比官居一品好玩

最新文章

本类常用软件