如何在richtextbox中实现“撤消(undo)”功能.txt

来自「VB技巧问答10000例 VB技巧问答10000例」· 文本 代码 · 共 17 行

下 面 的 办 法 不 但 适 用 于 RichTextBox， 也 适 合 于 TextBox。 
    先 加 入 以 下 定 义 ： 
    Const EM_CANUNDO = &HC6 
    Private Declare Function SendMessage Lib "User32" Alias _ 
    "SendMessageA" _ 
     (ByVal hWnd As Long, _ 
     ByVal wMsg As Long, _ 
     ByVal wParam As Long, _ 
     ByVal lParam As Long) As Long 
     Const EM_UNDO = &HC7 
    然 后 使 用 
    SendMessage RichTextBox1.hWnd, EM_UNDO, 0&, 0& 
    就 可 以 实 现 Undo功 能 。 
    你 也 可 以 使 用 
     lRet = SendMessage(RichTextBox1.hWnd, EM_CANUNDO, 0&, 0&) 
    来 决 定 是 否 可 以 进 行 Undo操 作 。 如 果 返 回 1表 示 可 以 。 
<END>