Portal    Foro    Buscar    FAQ    Registrarse    Conectarse


Publicar nuevo tema  Responder al tema 
Página 1 de 2
Ir a la página 1, 2  Siguiente
 
Propiedades Controles (Datacontrol Y Databrowser)
Autor Mensaje
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 usuarioEnviar mensaje privadoVisitar sitio web del usuario 
Volver arribaPágina inferior
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
 




===================
Gambas Básico
“Si no puedes explicar algo de forma sencilla, entonces es que tú no lo entiendes bien.” Albert Einstein
 
Shell - Ver perfil del usuarioEnviar mensaje privadoVisitar sitio web del usuario 
Volver arribaPágina inferior
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
 




===================
Blog personal
Web: SoloGambas seleccion de articulos dedicados a Gambas
Visita el Curso de Gambas3 ¡¡¡Gratuito!!!
 
última edición por jsbsan el Lunes, 17 Marzo 2014, 13:12; editado 1 vez 
jsbsan - Ver perfil del usuarioEnviar mensaje privadoVisitar sitio web del usuario 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Propiedades Controles (Datacontrol Y Databrowser) 
 
Gracias voy a probar.
 



 
jarrypalacios - Ver perfil del usuarioEnviar mensaje privadoVisitar sitio web del usuario 
Volver arribaPágina inferior
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 usuarioEnviar mensaje privadoVisitar sitio web del usuario 
Volver arribaPágina inferior
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
 




===================
Blog personal
Web: SoloGambas seleccion de articulos dedicados a Gambas
Visita el Curso de Gambas3 ¡¡¡Gratuito!!!
 
jsbsan - Ver perfil del usuarioEnviar mensaje privadoVisitar sitio web del usuario 
Volver arribaPágina inferior
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 usuarioEnviar mensaje privadoVisitar sitio web del usuario 
Volver arribaPágina inferior
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
 




===================
Blog personal
Web: SoloGambas seleccion de articulos dedicados a Gambas
Visita el Curso de Gambas3 ¡¡¡Gratuito!!!
 
jsbsan - Ver perfil del usuarioEnviar mensaje privadoVisitar sitio web del usuario 
Volver arribaPágina inferior
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 usuarioEnviar mensaje privadoVisitar sitio web del usuario 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Propiedades Controles (Datacontrol Y Databrowser) 
 
¿que version de gambas3 estas usando?
Yo estoy usando gambas3.5.2  
 




===================
Blog personal
Web: SoloGambas seleccion de articulos dedicados a Gambas
Visita el Curso de Gambas3 ¡¡¡Gratuito!!!
 
jsbsan - Ver perfil del usuarioEnviar mensaje privadoVisitar sitio web del usuario 
Volver arribaPágina inferior
Mostrar mensajes anteriores:    
 
Ocultar¡Este tema fue útil?

 

Elegir valoración:                       

Media de valoración Valoración mínima Valoración máxima Número de valoraciones
0.00 0 0 0
 
OcultarTemas parecidos
Tema Autor Foro Respuestas último mensaje
No hay nuevos mensajes Crear Controles En Tiempo De Ejecución: F... jsbsan Programación en otros lenguajes 2 Sabado, 06 Diciembre 2014, 19:17 Ver último mensaje
jsbsan
No hay nuevos mensajes Propiedades De Los Controles Que No Vemos ... Shell General 9 Jueves, 23 Junio 2016, 20:53 Ver último mensaje
jguardon
No hay nuevos mensajes Propiedades Subrayadas De Los Controles En... Shell General 0 Miercoles, 18 Enero 2017, 12:46 Ver último mensaje
Shell
No hay nuevos mensajes Acceder A Las Propiedades De Controles Fma... honovan General 4 Sabado, 19 Agosto 2017, 17:24 Ver último mensaje
honovan
 

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


 
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
No puede descargar archivos
No puede publicar eventos en el calendario