Portal    Foro    Buscar    FAQ    Registrarse    Conectarse

Propiedades Controles (Datacontrol Y Databrowser)

Propiedades Controles (Datacontrol Y Databrowser)
Artículo
Responder citando    Descargar mensaje  
Mensaje 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!



 
jarrypalacios - Ver perfil del usuario Enviar mensaje privado  
jarrypalacios [ Lunes, 17 Marzo 2014, 05:40 ]
 


Propiedades Controles (Datacontrol Y Databrowser)
Comentarios
Responder citando    Descargar mensaje  
Mensaje 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



 
Shell - Ver perfil del usuario Enviar mensaje privado  
Shell [ Lunes, 17 Marzo 2014, 12:49 ]
Responder citando    Descargar mensaje  
Mensaje 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

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




 
última edición por jsbsan el Lunes, 17 Marzo 2014, 13:12; editado 1 vez 
jsbsan - Ver perfil del usuario Enviar mensaje privado  
jsbsan [ Lunes, 17 Marzo 2014, 12:54 ]
Responder citando    Descargar mensaje  
Mensaje Re: Propiedades Controles (Datacontrol Y Databrowser) 
 
Gracias voy a probar.



 
jarrypalacios - Ver perfil del usuario Enviar mensaje privado  
jarrypalacios [ Lunes, 17 Marzo 2014, 14:41 ]
Responder citando    Descargar mensaje  
Mensaje 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!



 
jarrypalacios - Ver perfil del usuario Enviar mensaje privado  
jarrypalacios [ Lunes, 17 Marzo 2014, 14:43 ]
Responder citando    Descargar mensaje  
Mensaje 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



 
jsbsan - Ver perfil del usuario Enviar mensaje privado  
jsbsan [ Lunes, 17 Marzo 2014, 15:28 ]
Responder citando    Descargar mensaje  
Mensaje 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
 




 
jarrypalacios - Ver perfil del usuario Enviar mensaje privado  
jarrypalacios [ Lunes, 17 Marzo 2014, 16:50 ]
Responder citando    Descargar mensaje  
Mensaje 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



 
jsbsan - Ver perfil del usuario Enviar mensaje privado  
jsbsan [ Lunes, 17 Marzo 2014, 17:07 ]
Responder citando    Descargar mensaje  
Mensaje 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



 
jarrypalacios - Ver perfil del usuario Enviar mensaje privado  
jarrypalacios [ Lunes, 17 Marzo 2014, 19:07 ]
Responder citando    Descargar mensaje  
Mensaje Re: Propiedades Controles (Datacontrol Y Databrowser) 
 
¿que version de gambas3 estas usando?
Yo estoy usando gambas3.5.2  



 
jsbsan - Ver perfil del usuario Enviar mensaje privado  
jsbsan [ Lunes, 17 Marzo 2014, 19:34 ]
Mostrar mensajes anteriores:    
 
Publicar nuevo tema  Responder al tema  Página 1 de 2
Ir a la página 1, 2  Siguiente
 

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


 



 

cron