Private Declare Function SendMessage Lib "user32" _
Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long,_
ByVal wParam As Long, ByVal lParam As Any) As Long
Private Sub cmdUndo_Click()
SendMessage RichTextBox2.hwnd, EM_UNDO, 0&, 0&
End Sub
Private Sub cmdRedo_Click()
SendMessage RichTextBox2.hwnd, EM_REDO, 0&, 0&
End Sub
кнопки undo и redo
Как зделать кнопки undo и redo чтобы они работали:)
Все это делается через api функцию SendMessage
А вот и сам код:
надеюсь поймешь... ;)
А вот и сам код:
Код:
надеюсь поймешь... ;)
Если же в общем случае, а не применительно к RichTextBox'у, то задача не тривиальна. Самую простейшую систему андо-редо можно сделать довольно быстро, но она будет знать только пару-тройку некоторых действий пользователя. Для хорошей системы андо-редо придётся не только чётко определить спектр обрабатываемых системой команд, но и реализовать довольно умную алгоритмику определения групп команд. Например, при вводе в текстовом редакторе отмена ввода по одной букве в наше время будет смотреться неуклюже.
