20 Январь 2009

Как сделать Undo или Отменить в TextBox?

TextBox |  Таги:

Как сделать Undo или Отменить в TextBox?

'Свойство TextBox Multiline установите в True
Option Explicit
Private Declare Function SendMessage Lib _
    "user32" Alias "SendMessageA" _
    (ByVal hWnd As Long, _
     ByVal wMsg As Long, _
     ByVal wParam As Long, _
     lParam As Any) As Long
Const EM_UNDO = &HC7

Private Sub Command1_Click()
SendMessage Text1.hWnd, EM_UNDO, &O0, &O0
End Sub

Запись опубликована on 20.01.2009 at 9:00 и размещена в рубрике: TextBox. Вы можете читать комментарии, используя RSS-ленту. Вы можете оставить комментарий, или отправить трекбек с Вашего сайта.



Оставить комментарий

Я не робот.