animal soy puse gbcolor en vez de bgcolor
No Existe Propiedad Background En Textedit!!!
Objetivo: Re: No Existe Propiedad Background En Textedit!!!
resuelto
animal soy puse gbcolor en vez de bgcolor
animal soy puse gbcolor en vez de bgcolor
Objetivo: Re: No Existe Propiedad Background En Textedit!!!
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
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
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
Objetivo: Re: No Existe Propiedad Background En Textedit!!!
"bg" significa BackGround.
v3ctor escribió:
"bg" significa BackGround.
Página 2 de 2
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.8727s (PHP: -88% SQL: 188%)
Consultas SQL: 46 - Debug off - GZIP Activado