elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Únete al Grupo Steam elhacker.NET


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  Ancho de celdas flex grid
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: Ancho de celdas flex grid  (Leído 1,631 veces)
elezekiel

Desconectado Desconectado

Mensajes: 246


Ver Perfil
Ancho de celdas flex grid
« en: 31 Agosto 2014, 17:28 pm »

otra vez yo molestando xD

Tengo un flexgrid el cual obtengo info de una base de datos, lo que quiero hacer es que cada columna tenga el ancho que corresponde asi se ven los datos completos, actualmente pude hacerlo pero a medias, ya que recorro todo el flex y establezco el ancho de la columna mayor para el resto de las celdas, ahora bien, tengo una columna que es "comentarios" que puede haber muchas cosas, y despues tengo el campo ID, que es autonumerico, entonces no quiero que tenga el ancho de ID como el de "comentarios" porque me sobra mucho espacio, el usuario puede redimensionar el flex pero yo quiero que salga ya listo para leer, este es el code que tengo que me revisa todos los anchos y establece el mayor:

Código
  1. Dim TamActCelda As Integer
  2. Dim TamMayor As Integer
  3. Dim xRow As Integer
  4. Dim yCol As Integer
  5. TamMayor = 0
  6. For yCol = 0 To FlexClientes.Cols - 1
  7.    For xRow = 0 To FlexClientes.Rows - 1
  8.        TamActCelda = Me.TextWidth(FlexClientes.TextMatrix(xRow, yCol))
  9.        If TamMayor <> 0 Then
  10.           If TamMayor < TamActCelda Then
  11.              TamMayor = TamActCelda
  12.           End If
  13.        Else
  14.           TamMayor = TamActCelda
  15.        End If
  16.    Next xRow
  17. Next yCol
  18. 'asigna tamaño
  19. Dim iAsig As Integer
  20. Dim xAsig As Integer
  21. For iAsig = 0 To FlexClientes.Cols - 1
  22.    For xAsig = 0 To FlexClientes.Rows - 1
  23.    FlexClientes.ColWidth(iAsig) = TamMayor
  24.    Next xAsig
  25. Next iAsig

Ando perdido para eso si me dan una mano... gracias!!


En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
VB y FLEX
Programación Visual Basic
olve 0 1,501 Último mensaje 29 Junio 2010, 19:18 pm
por olve
Problema flex grid
Programación Visual Basic
elezekiel 1 1,405 Último mensaje 30 Agosto 2014, 23:01 pm
por elezekiel
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines