|
Página 2 de 2
|
No Existe Propiedad Background En Textedit!!!
Autor |
Mensaje |
v3ctor
Analista Programador
Registrado: May 2013
Mensajes: 1786
Edad: 44 Ubicación: Uruguay
|
Re: No Existe Propiedad Background En Textedit!!!
resuelto
NuevoRichText = Replace(txtEcapitulo1.RichText, "<body ", "<body bgcolor=\"#" & Hex(txtEcapitulo1.Background, 6) & "\" ")
animal soy puse gbcolor en vez de bgcolor
=================== Software libre, programación libre, vida libre es la Public function Libertad()as Invendible
Proyectos: VisorRV1960,Taller2015,Tanteador
https://sourceforge.net/u/v3ctor-full/profile/
Blog: http://novatocodegambas.blogspot.com.uy/
|
#11 Lunes, 02 Diciembre 2019, 01:50 |
|
|
v3ctor
Analista Programador
Registrado: May 2013
Mensajes: 1786
Edad: 44 Ubicación: Uruguay
|
Re: No Existe Propiedad Background En Textedit!!!
Public Sub btnCapHtml_Click()
Dim ruta As String
Dim NombreLibro As String
Dim FormatoFirma As String
Dim LibroCapitulo As String
Dim NuevoRichText As String '01 dic 2019
NuevoRichText = Replace(txtEcapitulo1.RichText, "<body ", "<body bgcolor=\"#" & Hex(txtEcapitulo1.Background, 6) & "\" ")
If txtEcapitulo1.Text = "" Then Return
Dialog.Path = vp.TemaEstudio
If Dialog.SelectDirectory() Then Return
NombreLibro = subR1.TraducirTitulo(LibroSelecionado, True)
ruta = Dialog.Path & "/" & Replace$(NombreLibro, " ", "_") & "_Cap_" & capitulo & ".html"
LibroCapitulo = "<FONT><b><big>" & NombreLibro & "</big></b></FONT> capítulo " & capitulo & "<br>"
FormatoFirma = "<i><small>" & Application.Name & " versión <b>" & Application.Version & "</small></i></b>"
Try Kill ruta
Wait 0.2
If firma Then
NuevoRichText = Replace$(NuevoRichText, "</body>", LibroCapitulo & FormatoFirma & "</body>")
File.Save(ruta, NuevoRichText)
Else
NuevoRichText = Replace$(NuevoRichText, "</body>", LibroCapitulo & "</body>")
File.Save(ruta, NuevoRichText)
Endif
Desktop.Open(ruta)
Catch
Message.Error(Error.Text & gb.NewLine & Error.Where)
End
así quedo el nuevo código no me gusta porque el libro y nombre de capitulo lo puse abajo y no arriba como estaba pero bueno cuando encuentre la forma lo cambiare, lo del color de fondo era importantisimo, recién en esta versión note el problema
=================== Software libre, programación libre, vida libre es la Public function Libertad()as Invendible
Proyectos: VisorRV1960,Taller2015,Tanteador
https://sourceforge.net/u/v3ctor-full/profile/
Blog: http://novatocodegambas.blogspot.com.uy/
|
#12 Lunes, 02 Diciembre 2019, 02:39 |
|
|
vuott
Analista Programador
Registrado: Agosto 2013
Mensajes: 2086
Edad: 60 Ubicación:
|
Re: No Existe Propiedad Background En Textedit!!!
v3ctor escribió:
animal soy puse gbcolor en vez de bgcolor
"bg" significa BackGround.
|
#13 Lunes, 02 Diciembre 2019, 11:01 |
|
|
|
Temas parecidos
Temas parecidos
|
Página 2 de 2
|
Usuarios navegando en este tema: 0 registrados, 0 ocultos y 0 invitados Usuarios registrados conectados: Ninguno
|
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
|
|
|
|
|