TextLabel

La clase TextLabel nos permite usar texto enriquecido por medio de algunas etiquetas html.

TextLabel1.Text = "<b>Texto en negrita</b>"
TextLabel1.Text = "<i>Texto en cursiva</i>"
TextLabel1.Text = "<s>Texto tachado</s>
TextLabel1.Text = "<u>Texto subrayado</u>"

TextLabel1.Text = "<b>Texto en negrita y salto de linea</b><br>"


TextLabel1.Text = "<b><i>Texto en cursiva y en negrita</i></b>"




TextLabel1.Text = "_{Texto subindice}Texto normal^{Texto superindice}"

TextLabel1.Text = "<font color=\"green\">Texto de color verde</font><br>"
TextLabel1.Text &= "<font color=\"red\">Texto de color rojo</font><br>"
TextLabel1.Text &= "<font color=\"blue\">Texto de color azul</font>"

TextLabel1.Text = "<H1>Encabezado H1</H1><br><H2>Encabezado H2</H2><br><H3>Encabezado H3</H3>"

TextLabel1.Text &= "<big>Texto grande</big><br>"
TextLabel1.Text &= "<small>Texto pequeño</small><br>"
TextLabel1.Text &= "<big><big>Texto muy grande</big></big><br>"
TextLabel1.Text &= "<small><small>Texto muy pequeño</small></small><br>"

TextLabel1.Text = "<font color=\"green\">Texto de <font color=\"red\">" & VariableX & "</font> color verde</font><br>"

 TextLabel1.Text = "<b>Ultima modificación de la base de datos: <i><font color=\"red\">" & Now & "</font></i></b>"

gb.logging

Activar componente gb.logging!

' gambas class file

' by postapase

Public MisRegistros As Logger

Public Sub Form_Open()
Me.Center
MisRegistros = New Logger(Logger.Warning, Null, User.Home &/ "ArchivoLog.txt")
MisRegistros.Begin()
End

Public Sub btnRegistrar_Click()
MisRegistros.Log(txtMensaje.Text, Logger.Critical)
Wait 0.1
TextArea1.Clear
Visualizar()
End

Public Sub Visualizar()
Dim ArchivoX As File
Dim LineaX As String

ArchivoX = Open MisRegistros.Output For Read

While Not Eof(ArchivoX)
Line Input #ArchivoX, LineaX
TextArea1.Text &= LineaX & gb.NewLine
TextArea1.EnsureVisible
Wend

Close ArchivoX

End

Código fuente: MiLogger-0.0.1.tar.gz

 Metodos:

Begin:

isEnabledFor:

Log:

Propiedades de escritura y lectura

Enable:

Format:

Level:

Propiedad de solo lectura

Output: devuelve un string con la ruta y nombre del archivo log, antes definido en:
MisRegistros = New Logger(Logger.Warning, Null, User.Home &/ "ArchivoLog.txt")


Constantes:

Critical:

Debug:

DefaultFormat:

Error:

Info:

Stderr:

Stdout:

Warning

DateDiff

' gambas class file

'by postapase
' aqui les dejo un pequeño ejemplo de como usar DateDiff,
' en el programa que estoy haciendo llamado Taller 2015 se maneja una base de datos
' de reparaciones de equipos informaticos, una fecha de ingreso y otra de entrega del equipo
' y debemos no permitir que el usuario sin querer ponga una fecha incorrecta en la fecha de entrega del equipo
' la fecha de entrega debe ser igual o mayor que la fecha de ingreso pero nunca anterior a la fecha de ingreso.
'aqui el ejemplo:

Public Sub Form_Open()
Me.Center 'centramos el formulario
DateBox1Ingreso.Value = Date 'asignamos la fecha actual de sistema a la propiedad
'value de Control DateBox1Ingreso
End

Public Sub DateBox2Entrega_Change()
If DateDiff(DateBox1Ingreso.Value, DateBox2Entrega.Value, gb.Day) < 0 Then 'compara la fecha de ingreso
' que esta contenida en la propiedad value del DateBox1Ingreso con DateBox2Entrega.Value, la constante gb.day indica que datediff
'debe buscar diferencia de dias, si da un numero negativo la fecha de entrega es anterior que la fecha de ingreso lo cual no puede ser posible
' y se activa el mensaje de error y el boton de aviso, si es positivo o igual a 0, quiere decir que la fecha de entrega es posterior a la de ingreso lo cual esta bien
'por tanto se oculta el boton de error y se ingresan los datos
btnError.Visible = True 'si la diferencia entre fechas en un numero negativo mostrara el boton
Else
btnError.Visible = False 'si la diferencia es 0 o un numero positivo se ocultara el boton
Endif
End

Public Sub btnVerificar_Click()
If DateDiff(DateBox1Ingreso.Value, DateBox2Entrega.Value, gb.Day) < 0 Then
Message.Warning("La fecha de entrega no puede ser anterior a la fecha de ingreso!!")
Endif
End

Código fuente: DateDiff-0.0.1.tar.gz

Gambas Software Farm

Genial utilidad para los gamberos añadida a la ide, ahora podremos acceder a una base de datos con todos los códigos fuentes que se hayan publicado en el servidor propio de gambas, publico y con registro gratuito o también podes acceder como anónimo.

Ahora hacer conocer nuestro proyecto y compartirlo es tan fácil como acceder al menú Proyecto seguido de clic en Publish (tener abierto gambas con el proyecto que queremos publicar) y seguir los pasos del programa.

Que grande es gambas, cada día mas fácil y mas potente!
No lo dudes mas, gambas es tu lenguaje de programación, empeza hoy mismo.