Access - Insertar en un cuadro de texto

   
Vista:

Insertar en un cuadro de texto

Publicado por elias (405 intervenciones) el 09/12/2008 11:01:54
Buenas,

imaginaros esta situacion, tengo un cuadro de texto y quiero poder hacer tres cosas:

1º) borrar caracter a caracter hacia la izquierda desde el punto que ponga el raton dentro de una cadena de texto pulsando un boton de comando

2º) que me inserte caracteres a partir de donde ponga el raton dentro de una cadena de texto

3º) que suprima (borrar los caracteres de la derecha de donde ponga el raton dentro de una cadena de texto) tambien pulsando un boton de comando, no pulsado el boton de Supr. del teclado...

Muchas Gracias a todos.

Saludos!
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Insertar en un cuadro de texto

Publicado por mi menda (1111 intervenciones) el 09/12/2008 14:55:36
Hola
No se si te valdrá esto. Define estas variables a nivel de formulario

Dim cadenaIzq As String
Dim cadenaDcha As String
Dim dimePosRaton As Integer

En el cuadro de texto

Private Sub Texto0_Click()
dimePosRaton = Texto0.SelStart
cadenaIzq = Left(Texto0, dimePosRaton)
cadenaDcha = Right(Texto0, Len(Texto0) - Len(cadenaIzq))
End Sub

Y los botones

Private Sub cmdBorrarIzq_Click()
If cadenaIzq <> "" Then
cadenaIzq = Left(cadenaIzq, Len(cadenaIzq) - 1)
Texto0 = cadenaIzq & cadenaDcha
dimePosRaton = Len(cadenaIzq)
End If
End Sub

Private Sub cmdInsertar_Click()
Dim miCadena As String
miCadena = "Texto Insertado"
Texto0.SetFocus
Texto0.SelStart = dimePosRaton
Texto0 = cadenaIzq & miCadena & cadenaDcha
End Sub

Private Sub cmdSup_Click()
If cadenaDcha <> "" Then
Texto0 = cadenaIzq
cadenaDcha = ""
End If
End Sub

Esto es una ídea que seguro que la puedes mejorar.

Un saludo
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

bueno casi casi

Publicado por elias (405 intervenciones) el 10/12/2008 10:17:48
la historia es tener 10 botones con los numeros desde el 0 al 9 y que al pulsar dichos botones te meta los numeros que pulses pero claro añadir al final es facil , el problema viene cuando quieres meter un numero entre medias de la cadena de numeros que ya has introducido...

Muchas Gracias mi menda

Saludos!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Insertar en un cuadro de texto

Publicado por elias (405 intervenciones) el 10/12/2008 10:42:43
mi menda, creo que lo tengo resuelto...con dimeposraton si el valor es cero pues que añada al principio, cuando esta al final que añada al final y si esta por medio pues que añada en medio...

a ello voy !!!!

Saludos!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Insertar en un cuadro de texto

Publicado por mi menda (1111 intervenciones) el 10/12/2008 12:51:26
Hola
Pues no se como lo habras hecho, pero según te puse el código el botón insertar, inserta el texto en el lugar que pongas el ratón.

Un saludo
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar