buenas,
pues eso agrego un texto ejemplo:
caminando por la calle,
te vi tranquilamente,
a lo lejos.
y el textedit me lo deja así:
caminando por la calle, te vi tranquilamente, a lo lejos.
como puedo arreglar eso?
TextEdit Me Anula Los Saltos De Linea
Objetivo: Re: TextEdit Me Anula Los Saltos De Linea
última edición por vuott el Martes, 11 Agosto 2015, 23:22; editado 1 vez
No he entiendido como asignas el texto a el objecto TextEdit.
Con la propiedad .Text ?
Con la propiedad .RichText ?
O pegandolo con el mouse directamente en la area de texto del objecto TextEdit ?
Con la propiedad .Text ?
Con la propiedad .RichText ?
O pegandolo con el mouse directamente en la area de texto del objecto TextEdit ?
última edición por vuott el Martes, 11 Agosto 2015, 23:22; editado 1 vez
Objetivo: Re: TextEdit Me Anula Los Saltos De Linea
Public Sub BuscarTextoVersiculo()
Dim ResultadoX As Result
Dim ReferenciaEntrando As String
Dim ReferenciaSaliendo As String[]
Dim UnaReferencia, Remplazando, Remplazando2 As String
Dim ErrorTrue As Boolean
LBoxReferencias.Clear
ResultadoX = Conexion.Exec("Select * from '" & LibroSelecionado & "' where versiculo='" & versiculo & "' and capitulo='" & capitulo & "'")
If ResultadoX.Available = True Then
Remplazando = Replace$(ResultadoX!texto, "(*", "<b><i><sup>")
Remplazando2 = Replace$(Remplazando, "*)", "</b></i></sup>")
txtEvers.RichText = Remplazando2 <----------------------------------------------- asi
Try ReferenciaEntrando = ResultadoX!referencias
If Error Then
ErrorTrue = True
Else
ErrorTrue = False
Endif
Endif
If Not ErrorTrue Then
If InStr(ReferenciaEntrando, ";") <> 0 Then
ReferenciaSaliendo = Split(ReferenciaEntrando, ";")
For Each UnaReferencia In ReferenciaSaliendo
LBoxReferencias.Add(Trim$(UnaReferencia))
Next
Else
LBoxReferencias.Add(ReferenciaEntrando)
Endif
Endif
Labruta.Text = ListBLibros.Current.Text & " " & capitulo & ":" & versiculo
End
Public Sub BuscarTextoVersiculo()
Dim ResultadoX As Result
Dim ReferenciaEntrando As String
Dim ReferenciaSaliendo As String[]
Dim UnaReferencia, Remplazando, Remplazando2 As String
Dim ErrorTrue As Boolean
LBoxReferencias.Clear
ResultadoX = Conexion.Exec("Select * from '" & LibroSelecionado & "' where versiculo='" & versiculo & "' and capitulo='" & capitulo & "'")
If ResultadoX.Available = True Then
Remplazando = Replace$(ResultadoX!texto, "(*", "<b><i><sup>")
Remplazando2 = Replace$(Remplazando, "*)", "</b></i></sup>")
txtEvers.RichText = Remplazando2 <----------------------------------------------- asi
Try ReferenciaEntrando = ResultadoX!referencias
If Error Then
ErrorTrue = True
Else
ErrorTrue = False
Endif
Endif
If Not ErrorTrue Then
If InStr(ReferenciaEntrando, ";") <> 0 Then
ReferenciaSaliendo = Split(ReferenciaEntrando, ";")
For Each UnaReferencia In ReferenciaSaliendo
LBoxReferencias.Add(Trim$(UnaReferencia))
Next
Else
LBoxReferencias.Add(ReferenciaEntrando)
Endif
Endif
Labruta.Text = ListBLibros.Current.Text & " " & capitulo & ":" & versiculo
End
Objetivo: Re: TextEdit Me Anula Los Saltos De Linea
última edición por vuott el Miercoles, 12 Agosto 2015, 10:36; editado 1 vez
Para obtener la nueva línea con la propiedad .RichText del objeto TextEdit, tienes que utilizar el tag <BR> del protocolo HTML.
Ejemplo:
Pero esto tu ya lo sabes. Tú deberías insertar en el texto aquel tag.
Ejemplo:
TextEdit1.RichText = "Uru<BR>guay"
Pero esto tu ya lo sabes. Tú deberías insertar en el texto aquel tag.
última edición por vuott el Miercoles, 12 Agosto 2015, 10:36; editado 1 vez
Objetivo: Re: TextEdit Me Anula Los Saltos De Linea
el texto viene de una base sqlite3 que tienen saltos de linea, tal vez la operación sea remplazar los saltos de linea del texto extraídos de la base sqlite3 por los <br>
no se hacer esa operación, pues no se que carácter es el salto de linea que usa el texto que sale de la base de datos.
tengo que investigar y probar a ver que pasa.
no se hacer esa operación, pues no se que carácter es el salto de linea que usa el texto que sale de la base de datos.tengo que investigar y probar a ver que pasa.
Página 1 de 1
No puede crear mensajesNo 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
Está utilizando la versión (Lo-Fi). Para ver la versión completa del foro, haga clic aquí.
Powered by Icy Phoenix based on phpBB
Design by DiDiDaDo
Página generada en:: 0.4317s (PHP: -77% SQL: 177%)
Consultas SQL: 47 - Debug off - GZIP Activado