¿Cambió el textbox en visual?
Hola fvomaster, quisiera saber como es la rutina que me indica si el contenido de un textbox ha cambiado o no... Esto es para ofrecerle al usuario grabar los datos después de haber hecho un cambio...
Gracias por tu ayuda.
Terramar
Gracias por tu ayuda.
Terramar
Respuesta de fvomaster
1
Te envío a continuación el código que debes utilizar..
Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, _
ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
(Lo anterior en una sola linea, ¿ok?)
En el Evento Click del Form1 colocar lo siguiente:
Sub Form_Click()
If SendMessage(Text1.hWnd, &HB8, 0, ByVal 0&) = 1 then
Form1.Caption = "Se ha cambiado el Texto"
Else
Form1.Caption = "Se ha dejado igual el Texto"
End If
End Sub
Pruébalo y conversamos..
Un abrazo desde Chile.
Fvomaster
Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, _
ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
(Lo anterior en una sola linea, ¿ok?)
En el Evento Click del Form1 colocar lo siguiente:
Sub Form_Click()
If SendMessage(Text1.hWnd, &HB8, 0, ByVal 0&) = 1 then
Form1.Caption = "Se ha cambiado el Texto"
Else
Form1.Caption = "Se ha dejado igual el Texto"
End If
End Sub
Pruébalo y conversamos..
Un abrazo desde Chile.
Fvomaster
