vb的功能:VB撤销功能的实现来源: 发布时间:星期四, 2008年9月25日 浏览:151次 评论:0
一般的字处理软件,如WPSOffice、Word都有撤销功能,极大地方便了用户,可是这项功能用VB该如何实现呢?这就要用到SendMessage函数,该函数的功能就是向指定的窗口发送一条消息,它有4个参数,含义如下:
.hWnd:用来指定要接受消息的窗口的句柄; .wMsg:用来指定要发送的消息的编号; .wParam:用来指定消息的第一参数; .1Param:用来消息的第二参数。 下面我们来看看实现方法。 新建一个EXE窗体,上面放置一个textbox、两个commndbotton控件,名称分别为text1、command1、command2,caption分别为text1、撤销、退出,其它设置取默认值。 打开API阅览器,将函数SendMessage复制到窗体代码中。所有源代码如下: OptionExplicit PrivateDeclareFunctionSendMessageLib\"user32\"Alias\"SendMessageA\"(ByValhwndAsLong,ByValwMsgAs Long,ByValwParamAsLong,lParamAsAny)AsLong PrivateConstEM_CANUNDO=&HC6 PrivateConstEM_UNDO=&HC7 PrivateSubCommand1_Click() DimiAsInteger i=SendMessage(Text1.hwnd,EM_UNDO,0,0) EndSub PrivateSubCommand2_Click() End EndSub 在这个程序中,我们向文本框发送了一个EM_UNDO消息,该消息的功能是取消文本框的最后一个编辑操作。对于该消息,wParam和1Param均无用,故都设为0。 按F5看看效果吧,是不是有一种成就感。以上代码在WindowsXP家庭版和VB6中文企业版下运行通过。 0
相关文章读者评论发表评论 |