Portal    Foro    Buscar    FAQ    Registrarse    Conectarse


Publicar nuevo tema  Responder al tema 
Página 2 de 2
Ir a la página Anterior  1, 2
 
No Existe Propiedad Background En Textedit!!!
Autor Mensaje
Responder citando   Descargar mensaje  
Mensaje 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/
 
v3ctor - Ver perfil del usuarioEnviar mensaje privadoVisitar sitio web del usuario 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje 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/
 
v3ctor - Ver perfil del usuarioEnviar mensaje privadoVisitar sitio web del usuario 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: No Existe Propiedad Background En Textedit!!! 
 
v3ctor escribió:  

animal soy puse  gbcolor en vez de bgcolor


  

"bg" significa BackGround.
 



 
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 El Tab Del Textedit pittusa Controles/Librerías/Componentes 4 Jueves, 29 Julio 2010, 14:43 Ver último mensaje
pittusa
No hay nuevos mensajes ¿ Cómo Colocar Un Background De Gradient... Shell General 5 Lunes, 21 Julio 2014, 01:01 Ver último mensaje
vuott
No hay nuevos mensajes ¿ Existe Una Propiedad Como "index&q... Shell General 6 Domingo, 23 Septiembre 2018, 13:12 Ver último mensaje
shordi
No hay nuevos mensajes Background En Textbox Con Transparencia calcena General 1 Lunes, 08 Junio 2020, 21:22 Ver último mensaje
gambafeliz
 

Publicar nuevo tema  Responder al tema  Página 2 de 2
Ir a la página Anterior  1, 2

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