Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

Форум - Общий форум

Страница: 1 |

 

  Вопрос: Undo in RichTextBox Добавлено: 27.02.03 08:58  

Автор вопроса:  Sergey

Люди, Help. Помогите сделать Undo. Пишу следующее:

Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" ( _
        ByVal hWnd As Long, _
        ByVal wMsg As Long, _
        ByVal wParam As Long, _
        lParam As Any) _
As Long

Public Const WM_UNDO = &H304
Public Const EM_CANUNDO = &HC6

Private Sub mnuEditUndo_Click()
    If SendMessage(ActiveForm.rtbMain.hWnd, EM_CANUNDO, 0, 0) <> 0 Then
            SendMessage ActiveForm.rtbMain.hWnd, WM_UNDO, 0, 0
    End If
End Sub

Ничего не происходит, т.к. функция с константой EM_CANUNDO возвращает 0.

Я заметил, что это не работает, когда в событии Change или SelChange RTBBox'a есть какой-то код. Если код убрать, то работает. НО ЭТОТ КОД МНЕ НУЖЕН!!! Кто что посоветует?

Ответить

  Ответы Всего ответов: 1  

Номер ответа: 1
Автор ответа:
 DAN



ICQ: 234826 

Вопросов: 10
Ответов: 124
  Web-сайт: visualbasic.boom.ru
 Профиль | | #1 		Добавлено: 27.02.03 12:46
В Инете видел где-то примерчик! Короче поищи хорошенько! Кто ищет - тот найдёт кажется:)))

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам