实用的TextBox控件的Undo属性
2008-02-23 07:03:06来源:互联网 阅读 ()
由于Undo功能是属于文本框控件,你所需要的是向控件发送一个“undo youself”的消息。这一过程可以使用API函数SendMessage来实现。这一函数的声明为:
Declare Function SendMessage Lib "user32" Alias _
"SendMessageA" (ByValhWnd As Long, _
ByValwMsg As Long, ByValwParam As Long, _
lParam As Any) As Long
第一个参数是接受消息的句柄,在本例中为TextBox控件的hWnd属性。
第二个参数是识别消息的数字。为了能够撤消某一操作,通常传递&HC7值,这也是代表着EM_UNDO常量。
第三个和第四个参数可用于某些消息,但在本例中它没有被使用,你可以将它们置为0。
函数返回的值取决于发送的消息。在本例中可以被省略。
为了能真正使用这一技巧,建立一个带有一个窗体的工程,窗体中包含一个TextBox控件和一个Command按钮控件。在Command按钮控件的点击事件程序中添加以下代码行:
SendMessage Text1.hWnd, EM_UNDO, 0&, 0&
在工程中添加一个模块并在模块中添加如下的代码:
Public Const EM_UNDO = &HC7
Public Declare Function SendMessage Lib "user32" _
Alias "SendMessageA" (ByValhWnd As Long, _
ByValwMsg As Long, ByValwParam As Long, _
lParam As Any) As Long
当运行这一工程时,在TextBox控件中输入和编辑文本。可以看到,按钮撤消了最后一步的操作。如果没有什么东西可以撤消,消息就不会起作用。你可以将Undo属性作为一个菜单命令以影响文本框的激活,如下所示:
If TypeOfActiveControl Is TextBox Then
SendMessageActiveControl.hWnd, EM_UNDO, 0&, 0&
End If
如果一个文本框没有被激活,按钮就不会执行任何操作。
TextBox控件的Undo属性是一个具有吸收力和友好的特性,并且使用起来非常的简单。
本文作者Peter Aitken:自从Visual Basic 1.0版以来,Peter Aitken就一直使用VB编程。他已经编写过很多关于VisualBasic以及其他计算机和编程的书以及杂志文章了。
上一篇: VB 神童教程第二章第二节——TextBox控件
下一篇: 用VB实现DES加解密算法
标签:
版权申明:本站文章部分自网络,如有侵权,请联系:west999com@outlook.com
特别注意:本站所有转载文章言论不代表本站观点,本站所提供的摄影照片,插画,设计作品,如需使用,请与原作者联系,版权归原作者所有
IDC资讯: 主机资讯 注册资讯 托管资讯 vps资讯 网站建设
网站运营: 建站经验 策划盈利 搜索优化 网站推广 免费资源
网络编程: Asp.Net编程 Asp编程 Php编程 Xml编程 Access Mssql Mysql 其它
服务器技术: Web服务器 Ftp服务器 Mail服务器 Dns服务器 安全防护
软件技巧: 其它软件 Word Excel Powerpoint Ghost Vista QQ空间 QQ FlashGet 迅雷
网页制作: FrontPages Dreamweaver Javascript css photoshop fireworks Flash