/ Snippet Library - View Code

Visual Basic / Text / Redo - Undo

Snippet details

ID: 466

Viewed: 1321

Added: 2002-08-19

Version:

Snippets in this catagory
Show Printable Version

for redo and undo code

General Details

Snippet uploaded by: snippet

Email : webmaster@snippetlibrary.com

Snippet By: Unknown

Snippet By:	Unknown
Declarations
Highlight AllPrivate Declare Function SendMessage Lib "user32" _ Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal _ wParam As Long, lParam As Any) As Long Private Const WM_UNDO = &H304 Private Const WM_USER = &H400 Private Const EM_REDO = (WM_USER + 84)
Code
Highlight All'For undo: Private Sub Command2_Click() SendMessage RichTextBox1.hwnd, WM_UNDO, 0, 0 End Sub '*********************************************************** 'Redo: Private Sub Command1_Click() SendMessage RTB1.hWnd, EM_REDO, 0, 0 End Sub

No Reviews to show