实用的TextBox控件的Undo属性
2024-07-21 02:24:11
供稿：网友
很少有vb开发人员注意到文本框(textbox)控件具有undo属性，但这一属性却给程序员带来方便。这是一个相当出色的特性，在很多需要编辑文本或者图形的商业软件的开发中都使用到。许多程序都需要多级别的撤消，或者有些程序需要“重新操作”而取消最后一步的操作，这些繁琐的要求都需要复杂的编程设计，但textbox控件的一个简单的undo属性就可以很容易地实现这些过程。
由于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属性是一个具有吸收力和友好的特性，并且使用起来非常的简单。
