Portal    Foro    Buscar    FAQ    Registrarse    Conectarse

Portal » Foro » Gambas » Controles/Librerías/Componentes

Fecha y hora actual: Lunes, 06 May 2024, 07:56 • Todas las horas son UTC + 1 Hora
Ver tema anterior Temas recientes Deshabilitar biblioteca Descargar tema Versión imprimible Correo a un amigo Ver siguiente tema

No Existe Propiedad Background En Textedit!!!

No Existe Propiedad Background En Textedit!!!
Artículo
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  



 
v3ctor - Ver perfil del usuario Enviar mensaje privado  
v3ctor [ Lunes, 02 Diciembre 2019, 01:50 ]
 


No Existe Propiedad Background En Textedit!!!
Comentarios
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  



 
v3ctor - Ver perfil del usuario Enviar mensaje privado  
v3ctor [ Lunes, 02 Diciembre 2019, 02:39 ]
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 usuario Enviar mensaje privado  
vuott [ Lunes, 02 Diciembre 2019, 11:01 ]
Mostrar mensajes anteriores:    
 
Publicar nuevo tema  Responder al tema  Página 2 de 2
Ir a la página Anterior  1, 2
 

Portal » Foro » Gambas » Controles/Librerías/Componentes

Fecha y hora actual: Lunes, 06 May 2024, 07:56 • Todas las horas son UTC + 1 Hora
Ver tema anterior Temas recientes Deshabilitar biblioteca Descargar tema Versión imprimible Correo a un amigo Ver siguiente tema

Usuarios navegando en este tema: 0 registrados, 0 ocultos y 1 invitado
Usuarios registrados conectados: Ninguno

 



 
cron