Portal    Foro    Buscar    FAQ    Registrarse    Conectarse


Publicar nuevo tema  Responder al tema 
Página 1 de 1
 
 
TextArea.Wrap
Autor Mensaje
Responder citando   Descargar mensaje  
Mensaje TextArea.Wrap 
 
Hola:
Tengo un TextArea con la propiedad Wrap=True, con lo que si mis limitados conocimientos son correctos, al llegar al lado derecho del control, escribiendo, el texto pasa a la siguiente linea, con lo que en pantalla vemos dos lineas de texto.
Aunque tu ves dos lineas de texto, este control no interpreta un salto de linea "\n", sino que sigue considerando que es la linea inicial, (a no ser que tu introduzcas por codigo el salto de linea).
Mi pregunta es: ¿Hay alguna forma o algún evento que me indique el momento en el que se produce esto? Es decir, pretendo que, cuando escribiendo texto llegas al límite derecho del control automáticamente me escriba un salto de linea ("\n" si no me equivoco)?

No sé si logré expresarme bien.

Como siempre, os agradezco las respuestas.

Por cierto, en caso de solucionarlo, ¿que tengo que hacer para indicar que está resuelto?

Un saludo
 



 
tomas - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: TextArea.Wrap 
 
Propondría:

(Codex salvis verbis)
Private positio As Short


Public Sub Form_Open()

  TextArea1.Wrap = True

End


Public Sub TextArea1_Cursor()

  Dim s As String
  Dim i As Integer
  
    s = TextArea1.Text
  
   If TextArea1.CursorAt(TextArea1.Pos).Y < positio Then
     i = String.Len(s)
' Garantiza en todo caso la unidad de la palabra:
     While CByte(Asc(s, i)) > 32
       Dec i
     Wend
     Mid(TextArea1.Text, i, 1) = "\n"
   Endif
  
   positio = TextArea1.CursorAt(TextArea1.Pos).Y

End

 



 
última edición por vuott el Sabado, 04 Marzo 2017, 00:35; editado 2 veces 
vuott - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: TextArea.Wrap 
 
Perfecto.
Funciona perfectamente. Solo que tuve que cambiar TextArea1.CursorAt(TextArea1.Pos).Y por TextArea1.CursorAt(TextArea1.Pos).X

Gracias
 



 
tomas - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: TextArea.Wrap 
 
Si cambio a TextArea1.CursorAt(TextArea1.Pos).X obtengo error "Stack Overflow" a la línea Mid(TextArea1.Text, i, 1) = "\n" !
 



 
vuott - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: TextArea.Wrap 
 
Perdona Vuott. Ya lo daba por solucionado.

Creo que tiene que ser TextArea1.CursorAt(TextArea1.Pos).X, ¿no?
Si lo hago con TextArea1.CursorAt(TextArea1.Pos).Y, el evento me salta cuando llego a la parte inferior del textarea.
A mi me funciona. Cierto es que con algún retoque. Aún me quedan algunos problemas sin resolver porque a veces, con lo de mantener la integridad de la palabra me toma un espacio de más, pero en general funciona.
 



 
tomas - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: TextArea.Wrap 
 
tomas escribió:  
Si lo hago con TextArea1.CursorAt(TextArea1.Pos).Y, el evento me salta cuando llego a la parte inferior del textarea.

Uhmm... sì, he visto.
 



 
vuott - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Mostrar mensajes anteriores:    
 
OcultarTemas parecidos
Tema Autor Foro Respuestas último mensaje
No hay nuevos mensajes TextArea alan General 5 Martes, 11 Enero 2011, 11:22 Ver último mensaje
jsbsan
No hay nuevos mensajes Rescatar Linea De Un TextArea DEATH General 3 Viernes, 10 Junio 2011, 14:41 Ver último mensaje
DEATH
No hay nuevos mensajes Escribir Potencias En Un TextArea ivanovichenco General 11 Miercoles, 22 Junio 2011, 04:05 Ver último mensaje
ivanovichenco
No hay nuevos mensajes Buscar Datos En Un TextArea alessandri Aplicaciones/Fragmentos de Código 14 Martes, 18 Febrero 2014, 15:46 Ver último mensaje
edivaldo
 

Publicar nuevo tema  Responder al tema  Página 1 de 1
 

Usuarios navegando en este tema: 0 registrados, 0 ocultos y 1 invitado
Usuarios registrados conectados: Ninguno


 
Lista de permisos
No puede crear mensajes
No puede responder temas
No puede editar sus mensajes
No puede borrar sus mensajes
No puede votar en encuestas
No puede adjuntar archivos
Puede descargar archivos
No puede publicar eventos en el calendario



  

 

cron