Test Foro de elhacker.net SMF 2.1

Programación => .NET (C#, VB.NET, ASP) => Programación General => Programación Visual Basic => Mensaje iniciado por: luiggilove en 6 Junio 2010, 21:18 PM

Título: Codigo DESHACER o CTRL Z
Publicado por: luiggilove en 6 Junio 2010, 21:18 PM
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
Título: Re: Codigo DESHACER o CTRL Z
Publicado por: Psyke1 en 6 Junio 2010, 21:22 PM
http://www.elguille.info/Net/vb6anet/textbox01.htm#Deshacerlaultimamodificacion

Salu2!
Título: Re: Codigo DESHACER o CTRL Z
Publicado por: luiggilove en 6 Junio 2010, 22:03 PM
esto se puede aplicar a los commando button u option button?. copio el cogido pero no lo rehace, en que estoy fallando
salu2
Título: Re: Codigo DESHACER o CTRL Z
Publicado por: Psyke1 en 7 Junio 2010, 02:46 AM
Supongo que has declarado la API antes:
Código (vb) [Seleccionar]

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! ;)