实用的TextBox控件的Undo属性

原创 2004年07月10日 10:34:00

    很少有VB开发人员注意到文本框(TextBox)控件具有Undo属性,但这一属性却给程序员带来方便。这是一个相当出色的特性,在很多需要编辑文本或者图形的商业软件的开发中都使用到。许多程序都需要多级别的撤消,或者有些程序需要“重新操作”而取消最后一步的操作,这些繁琐的要求都需要复杂的编程设计,但TextBox控件的一个简单的Undo属性就可以很容易地实现这些过程。

<a target="_top" href="http://ad.cn.doubleclick.net/click%3Bh=v2|3144|3|0|%2a|a%3B8198768%3B0-0%3B0%3B9113399%3B4252-1|1%3B5334158|5352054|1%3B%3B%7Efdr%3D9463611%3B0-0%3B0%3B6694709%3B31-1|1%3B6027999|6045895|1%3B%3B%3fhttp://www.oracle.com/go/?&Src=3057519&Act=381"><img src="http://m2.cn.doubleclick.net/714347/motion_336.gif" border="0" /></a>

由于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属性是一个具有吸收力和友好的特性,并且使用起来非常的简单。

  • 文本框控件TextBox(文本类控件)

    文本框控件(TextBox)用于获取用户的输入数据或者显示文本。文本框控件(TextBox)通常用于可编辑文本,也可使其成为只读控件。文本框可以显示多个行,对文本换行使其符合控件大小。 1.创建只读...
    • vjudge
    • vjudge
    • 2014年04月28日 09:49
    • 1233

    C#winform设置textbox属性不可编辑

    Java Web开发如何设置单选按钮的属性,使得一旦选中某一个单选按钮,就不可编辑单选按钮呢 怎么设置单选按钮的属性,使得一旦选中某一个单选按钮,就不可编辑单选按钮呢? " > VB...
    • tian19870221084
    • tian19870221084
    • 2014年06月03日 21:44
    • 6589

    Python中GUI控件介绍及实例

    1.msgbox: 语法:msgbox(text,title, ok_button='OK',image=None,root=None) 实例:msgbox('内容内容','标题标题','确定')返回...
    • hllsmart
    • hllsmart
    • 2016年04月22日 01:10
    • 3097

    文本框控件(TextBox)的常用属性

    • 2011年12月10日 11:10
    • 85KB
    • 下载

    (C#)为 TextBox 控件增加一个限制最大字节数的属性

    • 2010年10月16日 18:48
    • 32KB
    • 下载

    .net托管控件TextBox,提供属性返回当前ime状态是全角还是半角

    • 2010年04月19日 10:06
    • 3KB
    • 下载

    通过使用依赖属性制作只能输入大写字母的TextBox控件

    前言 在Silverlight开发中,可以使用自定义上,制作控件。 准备工作 场景:要求文本框中输入值都是大写字母; 实现方式:通过自定义属性形式实现; 前期工作:新建一个“CustomControl...
    • Eric_K1m
    • Eric_K1m
    • 2013年08月26日 14:05
    • 769

    html中input type="text" 的readonly 属性与asp.net服务器控件TextBox的readonly属性的js赋值、调用的小bug

    我还是个刚刚入门的程序猿与大家分享下最近我做的一个项目,如有错误,请大师们指点一二! HTML: ...
    • yzm910823
    • yzm910823
    • 2013年12月18日 16:03
    • 1374

    ASP.NET 2.0中TextBox服务器控件的ReadOnly和Disabled属性

    在以前的ASP.NET 1.x版本中,设置为ReadOnly的TextBox控件在客户端更改了值后,在服务器端仍然可以得到修改后的值,但在ASP.NET 2.0中,这种做法已经限制。这是为了提高应用程...
    • jxqvip
    • jxqvip
    • 2011年04月21日 14:58
    • 724

    实现 richtext 控件的多步undo操作(6KB)

    • 2006年02月23日 09:05
    • 6KB
    • 下载
    内容举报
    返回顶部
    收藏助手
    不良信息举报
    您举报文章:实用的TextBox控件的Undo属性
    举报原因:
    原因补充:

    (最多只允许输入30个字)