?? 如何在richtextbox中實現“撤消(undo)”功能.txt
字號:
下 面 的 辦 法 不 但 適 用 于 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>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -