animal soy puse gbcolor en vez de bgcolor
No Existe Propiedad Background En Textedit!!!
Subject: Re: No Existe Propiedad Background En Textedit!!!
resuelto
animal soy puse gbcolor en vez de bgcolor
animal soy puse gbcolor en vez de bgcolor
Subject: 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
Subject: Re: No Existe Propiedad Background En Textedit!!!
"bg" significa BackGround.
v3ctor escribió:
"bg" significa BackGround.
Page 2 of 2
You cannot post new topicsYou cannot reply to topics
You cannot edit your posts
You cannot delete your posts
You cannot vote in polls
You cannot attach files
You can download files
You cannot post calendar events
This is a "Lo-Fi" version of our main content. To view the full version with more information, formatting and images, please click here.
Powered by Icy Phoenix based on phpBB
Design by DiDiDaDo
Generation Time: 0.1041s (PHP: -23% SQL: 123%)
SQL queries: 23 - Debug Off - GZIP Enabled