https://foro.gambas-es.org/viewtopic.php?f=3&t=3709&p=20959#p20959
-----------------------------------
jarrypalacios
Lunes, 17 Marzo 2014, 16:50

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

[code linenumbers=false syntax=gambas]' 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
[/code]


