Propiedades Controles (Datacontrol Y Databrowser)


Ir a la página 1, 2  Siguiente

Objetivo: Propiedades Controles (Datacontrol Y Databrowser)
Buenas Noches a la presente hora, muy buen tutorial; ahora para seguir avanzando en el estudio de esta interesante herramienta de desarrollo de software me pregunto sí me pueden ayudar informandome como puedo aplicar formatos a objetos datacontrol en el caso de que el tipo de datos sea flotante y necesite limitar a dos decimales y que tenga separadores de miles; asi mismo me gustaria saber sí se puede controlar el ancho de las columnas en el databrowser y su alineación; muchas gracias!

Objetivo: Re: Propiedades Controles (Datacontrol Y Databrowser)
Hola Jarry.

Voy ayudarte con los números decimales. Si quieres limitar el número de decimales, usa la función Format.

Public Sub Main()

Dim numero As Float

numero = 34.1234

Print Format$(numero, "-#.##")

End


Lo que obtienes es una cadena. Si quieres convertirlo a número debes usar la función Val.
Supongo que el contenido del componente es un cadena, en ese caso no necesitas convertir de cadena a número.

Aquí tienes una buena referencia:

Fomat:

http://gambasdoc.org/help/cat/userformat?es&v3#t2

Val:

http://gambasdoc.org/help/lang/val?es&v3

Saludos

Objetivo: Re: Propiedades Controles (Datacontrol Y Databrowser)
Hola jarrypalacios:

Bienvenido al foro.

Citar:
como puedo aplicar formatos a objetos datacontrol en el caso de que el tipo de datos sea flotante y necesite limitar a dos decimales y que tenga separadores de miles; asi mismo me gustaria saber sí se puede controlar el ancho de las columnas en el databrowser y su alineación;


Puedes modificar el formato de los números, alineación y colores usando el evento _DATA del DataBrowser.


Public Sub DataBrowser1_Data((Row) As Integer, Column As Integer, Value As Variant)

If IsNull(Value) Then Return

Select Case Column 'depende de la columna y el dato que contenga, le pongo un formato
Case 0 'columna 1º

Case 1 'columna 2º
DataBrowser1.Data.Background = Color.red
DataBrowser1.Data.Foreground = Color.White

Case 2
DataBrowser1.Data.Text = Format(Value, "$0.00")

Case 3
DataBrowser1.Data.Font.Bold = True
DataBrowser1.Data.Alignment = Align.Center
End Select

End


Te adjunto el código completo y un pantallazo del ejemplo que he hecho:
extdata_databrowser_formato

Nota:
La anchura de las columnas no lo he podido averiguar.

Nota2:
El ancho lo averigua automaticamente según los valores que tiene la columna, esto lo hace en el método GetWidth
de la clase DataField. Si lo quieres hacer tendrías que crear un nuevo componente heredado de este para modificar este método. Aqui puedes ver el codigo fuente:
gambas3-3.5.2/comp/src/gb.db.form/.src/DataField.class

última edición por jsbsan el Lunes, 17 Marzo 2014, 13:12; editado 1 vez

ExtData-0.0.1.tar.gz
Descripción: Modificar formato de celdas en un databrowser 
Descargar
Nombre del archivo: ExtData-0.0.1.tar.gz
Tamaño: 5.55 KB
Descargado: 233 veces
ExtData-0.0.1.tar.gz
Descripción: Modificar formato de celdas en un databrowser 
Descargar
Nombre del archivo: ExtData-0.0.1.tar.gz
Tamaño: 5.55 KB
Descargado: 233 veces
ExtData-0.0.1.tar.gz
Descripción: Modificar formato de celdas en un databrowser 
Descargar
Nombre del archivo: ExtData-0.0.1.tar.gz
Tamaño: 5.55 KB
Descargado: 233 veces

Objetivo: Re: Propiedades Controles (Datacontrol Y Databrowser)
Gracias voy a probar.

Objetivo: Re: Propiedades Controles (Datacontrol Y Databrowser)
Buen Día amigo, he probado el codigo que me enviaste y no funciona.

la función databrowse1_data tiene mucho sentido, pero en que momento dentro de la funcion estas instrucciones se relacionan con la columna especifica del objeto????
en el select case es logico, pero lo probé y no me funciono hermano.

Gracias por el apoyo!

Objetivo: Re: Propiedades Controles (Datacontrol Y Databrowser)
jarrypalacios:

Citar:
pero en que momento dentro de la funcion estas instrucciones se relacionan con la columna especifica del objeto????

Es en Column, si la colunmna es la 1º , es el Case 0, si la columna es el 2º, es el case 1,....

Select Case Column 'depende de la columna y el dato que contenga, le pongo un formato
Case 0 'columna 1º

Case 1 'columna 2º


Saludos

Objetivo: Re: Propiedades Controles (Datacontrol Y Databrowser)
Fijate Ejecuto este codigo y no obtengo el resultado que pude ver en la imagen que me enviaste.

' gambas class file

Public hconn As New Connection
Private Row As Integer

Public Sub Form_Open()

hconn.host = "/home/palsystems04/Documentos/Desarrollos/pruebas_gambas/ExtData"
hconn.Name = "leonel"
hconn.Type = "sqlite3"
Try hconn.Open()

If Error Then Message.Info("No pudo abrir la base de datos")

DataSource1.Connection = hconn
DataSource1.Table = "personas"

End

Public Sub Form_Close()

Try hconn.Close()

End

Public Sub DataBrowser1_Data(Row As Integer, Column As Integer, Value As Variant)

If IsNull(Value) Then Return

Select Case Column 'depende de la columna y el dato que contenga, le pongo un formato
Case 0 'columna 1º

Case 1 'columna 2º
DataBrowser1.Data.Background = Color.red
DataBrowser1.Data.Foreground = Color.White

Case 3
DataBrowser1.Data.Text = Format(Value, "$0.00")

Case 4
DataBrowser1.Data.Font.Bold = True
DataBrowser1.Data.Alignment = Align.Center
End Select

End

Public Sub DataBrowser1_Arrange()

Print

End

Objetivo: Re: Propiedades Controles (Datacontrol Y Databrowser)
jarrypalacios:

Ejecuta el codigo tal como lo envie, en el ide de gambas.

Has modificado la ruta del host, escribiendo:
Citar:
hconn.host = "/home/palsystems04/Documentos/Desarrollos/pruebas_gambas/ExtData"


Debes de poner, lo que viene en el ejemplo original:
Citar:
hconn.host = Application.Path


Saludos

Objetivo: Re: Propiedades Controles (Datacontrol Y Databrowser)
Realmente no creo que sea la ruta pues el formulario levanta y los datos se pueden vizualizar en el databrowser

Objetivo: Re: Propiedades Controles (Datacontrol Y Databrowser)
¿que version de gambas3 estas usando?
Yo estoy usando gambas3.5.2

Ir a la página 1, 2  Siguiente

Página 1 de 2


  
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

   

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:: 1.156s (PHP: -90% SQL: 190%)
Consultas SQL: 48 - Debug off - GZIP Activado