Codigo DESHACER o CTRL Z

[luiggilove]

buenas a todos, soy nuevo en esto de programacion y bueno. estoy tratando de realizar un pequeño programa en el cual cuando escriba algo en un textbox puede deshacer cada cosa q haga. e estado averiguando y encontre el UNDO, pero eso me deshace todo y lo que yo deseo es DESHACER lo ultimo q se hizo o como se podria decir el CTRL Z q normalmente conocemos, pero solo faltaria el codigo, haber si alguien podria ayduarme en esto muchas gracias

[Psyke1]

http://www.elguille.info/Net/vb6anet/textbox01.htm#Deshacerlaultimamodificacion

Salu2!

[luiggilove]

esto se puede aplicar a los commando button u option button?. copio el cogido pero no lo rehace, en que estoy fallando
salu2

[Psyke1]

Supongo que has declarado la API antes:

Código (vb) [Seleccionar] Expandir


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

Private Sub deshacerCmd_Click()
   Const EM_CANUNDO As Long = &HC6
   Const EM_UNDO As Long = &HC7
   '
   ' se comprueba si se puede deshacer
   If SendMessage(Text1.hWnd, EM_CANUNDO, 0&, 0&) Then
       ' si es así, se deshace
       SendMessage Text1.hWnd, EM_UNDO, 0&, 0&
   End If
End Sub
Fuente: http://www.elguille.info/Net/vb6anet/textbox01.htm#Deshacerlaultimamodificacion
Espero que al boton le hallas llamado igual...

Salu2!