Portal    Foro    Buscar    FAQ    Registrarse    Conectarse


Publicar nuevo tema  Responder al tema 
Página 3 de 4
Ir a la página Anterior  1, 2, 3, 4  Siguiente
 
El Control Tableview
Autor Mensaje
Responder citando   Descargar mensaje  
Mensaje Re: El Control Tableview 
 
Hola datobinario.

Te muestro como hacerlo en esta función.

Public Function Opera1(archivo As String, pais As String) As String
  
  Dim fila As Integer
  Dim columna As Integer
  Dim linea As String  
  Dim linea2 As String
  Dim f As New Font
  
  f.Name = "Sans"
  f.Size = 10
  
  For Each linea In Split(archivo, "\n")
    
    If InStr(linea, String.Upper(pais)) Then
      grdTabla.Rows.Count = fila + 1
      For Each linea2 In Split(linea, ",")
        If grdTabla.Columns[columna].Width < f.TextWidth(linea2) Then
          grdTabla.Columns[columna].Width = f.TextWidth(linea2)        
        Endif
        If fila Mod 2 = 0 Then
          grdTabla[fila, columna].Background = Color.White
        Else
          grdTabla[fila, columna].Background = Color.LightBackground          
        Endif
        grdTabla[fila, columna].Text = linea2
        columna += 1            
      Next      
      fila += 1
      columna = 0
    Endif  
  Next
  
End
 


Tienes que definir un tipo de fuente y asignarle un tamaño.
En este ejemplo lo que hace es pasarle el contenido de un archivo y el nombre de un país, mostrando y contando solo los de ese país.
Para el cambio de tamaño lo hace aquí.

...
 If grdTabla.Columns[columna].Width < f.TextWidth(linea2) Then
          grdTabla.Columns[columna].Width = f.TextWidth(linea2)        
 Endif
 


Compara el ancho de la columna, con lo que mide el ancho del texto usando una fuente.

Ayuda de Gambas sobre Font.TextWidth

Y en esta parte si el numero de la fila es par, lo muestra de un color, si es impar de otra. Creo que esta idea es de nuestro administrador.

   If fila Mod 2 = 0 Then
          grdTabla[fila, columna].Background = Color.White
        Else
          grdTabla[fila, columna].Background = Color.LightBackground          
   Endif
 


Saludos
 




===================
Gambas Básico
"No es un bug, es una característica no documentada"
 
última edición por Shell el Jueves, 19 Febrero 2015, 09:45; editado 1 vez 
Shell - Ver perfil del usuarioEnviar mensaje privadoVisitar sitio web del usuario 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: El Control Tableview 
 
Si das a la columna un valor de -1, se ajusta a la anchura del título, creo. Si activas la propiedad .Expand de la columna, se adapta al ancho del Gridview.
Es cosa de probar...
 



 
shordi - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: El Control Tableview 
 
Muchas Gracias amigo Shell, lo pruebo y te comento.
 




===================
gambeando ando -o- Yaracuy-Venezuela
[img]http://www.gambas-es.org/files/images/2194/mi_tarj_present_qr_droid.png[/img]
 
datobinario - Ver perfil del usuarioEnviar mensaje privadoVisitar sitio web del usuario 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: El Control Tableview 
 
El resultado fue genial, solo le agregué lo siguiente:
F.Name = Tabla.Font.Name
  F.Size = Tabla.Font.Size + 1

esto para que tome los valores de la tabla a usar, entonces no existe problema si uno desea cambiar el formato de la tabla, además le sumé 1 al tamaño de la fuente de la tabla porque con el tamaño exacto queda muy justo, incluso incompleto para cadenas largas.
 




===================
gambeando ando -o- Yaracuy-Venezuela
[img]http://www.gambas-es.org/files/images/2194/mi_tarj_present_qr_droid.png[/img]
 
datobinario - Ver perfil del usuarioEnviar mensaje privadoVisitar sitio web del usuario 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: El Control Tableview 
 
Shordi:

Citar:
. Si activas la propiedad .Expand de la columna, se adapta al ancho del Gridview.

He hecho un intento con lo que comentas (con gambas3.5.4), y no me ha funcionado

¿a lo mejor es la versión de gambas3 que tengo?
' gambas class file

Public Sub _new()

End

Public Sub Form_Open()

End

Public Sub definir()

  With GridView1
    .header = 3
    .rows.count = 2
    .columns.count = 3
    .Columns[0].title = "Columna 1"
    .Columns[1].title = "Columna 2"
    .Columns[2].title = "Columna 3"

    .font.name = "Times"
    .font.size = 9
    .Columns[1].Expand = True
    .Columns[2].Expand = True
    .Columns[3].Expand = True
  End With

End
 

 




===================
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: El Control Tableview 
 
Supongo que no vale sólo con cambiar la propiedad, sino que tendrás que "redibujar" el grid.

Míra el código del control xgrid que subí hace un par de meses (tengo que actualizarlo, pero creo que esa "feature" ya la lleva), en él me invento que si se establece el ancho a -2 lo que hacemos es establecer el .expand a true, siendo el valor por defecto.

Es decir, si el grid tiene cinco columnas y no rellenas la propiedad widths del grid, todas tienen el .expand a true. Si por el contrario estableces que

migrid.widths=[30,10]

la primera columna será de 30 la segunda de 10 y las terceras adaptables al ancho del grid.

si estableces los cinco valores con

migrid.widths=[30,10,20,100,40]

Se respetará ese ancho en todas las columnas.
Por último, si en tiempo de ejecución varías el ancho de una columna con el ratón, el nuevo ancho establecido queda fijo para esa ejecución...

Si no me he explicado bien, subo el control actualizado y un ejemplo...

Saludos.
 



 
shordi - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: El Control Tableview 
 
Perdón, todo eso del .expand se aplica al gridview. Tableview contiene un gridview, que le hace de proxie, creo, pero tal vez no implemente esa propiedad... (yo es que no uso Tableview), y me he venido arriba con la respuesta
 



 
shordi - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: El Control Tableview 
 
shordi escribió: [Ver mensaje]
Perdón, todo eso del .expand se aplica al gridview. Tableview contiene un gridview, que le hace de proxie, creo, pero tal vez no implemente esa propiedad... (yo es que no uso Tableview), y me he venido arriba con la respuesta


Debe de funcionar igual, porque el Tableview hereda de Gridview, por lo tanto hereda también sus métodos y propiedades.

Saludos
 




===================
Jesús Guardón

Por favor, usemos el corrector ortográfico antes de pulsar el botón "Enviar".

"uo ǝs ʇɐu pıɟıɔıן ɐdɹǝupǝɹ ɐ dɹoƃɹɐɯɐɹ, soןo ɥɐʎ bnǝ dɹodouǝɹsǝןo"
 
jguardon - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: El Control Tableview 
 
a mi no me funcionó el Expand con ninguno de los dos, ni el Grid ni el Table, por eso usé la función que colocó Shell y todo bien.
 




===================
gambeando ando -o- Yaracuy-Venezuela
[img]http://www.gambas-es.org/files/images/2194/mi_tarj_present_qr_droid.png[/img]
 
datobinario - Ver perfil del usuarioEnviar mensaje privadoVisitar sitio web del usuario 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: El Control Tableview 
 
He actualizado los controles enganchados, donde se ilusta (si bien de un modo un tanto complejo, supongo) el uso de las propiedades .expand tal como os expliqué más arriba.
lo tenéis aquí:

http://foro.gambas-es.org/viewtopic.php?f=5&t=4220

Saludos
 



 
shordi - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Mostrar mensajes anteriores:    
 
OcultarTemas parecidos
Tema Autor Foro Respuestas último mensaje
No hay nuevos mensajes Problemas Con Tableview soplo General 7 Lunes, 03 Enero 2011, 15:42 Ver último mensaje
soplo
No hay nuevos mensajes Control Tableview SOURBOY Controles/Librerías/Componentes 0 Viernes, 04 Febrero 2011, 03:50 Ver último mensaje
SOURBOY
No hay nuevos mensajes Tableview jj231089 General 1 Jueves, 21 Agosto 2014, 19:37 Ver último mensaje
jsbsan
No hay nuevos mensajes Creación De Un Nuevo Control En Gambas3: ... jsbsan Videotutoriales 3 Viernes, 06 Febrero 2015, 12:44 Ver último mensaje
jsbsan
 

Publicar nuevo tema  Responder al tema  Página 3 de 4
Ir a la página Anterior  1, 2, 3, 4  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
Puede descargar archivos
No puede publicar eventos en el calendario



  

 

cron