Visual Basic Foro

General => Códigos - Aportes - Recursos => Mensaje iniciado por: Bazooka en Octubre 21, 2012, 12:01:37 pm

Título: Grilla creada de forma dinámica y sencilla
Publicado por: Bazooka en Octubre 21, 2012, 12:01:37 pm

Hola amigo dado el tipo de programas que hago muchas veces tuve la necesidad de crear grillas de controles de forma dinámica ya que es la mejor forma y ahora que he pulido un poco la forma de hacerlo se las comparto para que la tenga mano que seguro a alguien le servira como punto de partida .
No hay muchos comentarios que hacer porque es sencillo.

Saludos y este es el enlace:

http://www.2shared.com/file/CorBkEbI/GRILLA_DINAMICA.html (http://www.2shared.com/file/CorBkEbI/GRILLA_DINAMICA.html)

Título: Re:Grilla creada de forma dinámica y sencilla
Publicado por: YAcosta en Octubre 24, 2012, 12:27:35 am

Hola Miguel. Estuve viendo tu código, no es gran cosa mi intervención pero en el resize parpadea mucho, lo reduje un poco poniendo visible false el frame.

Código: (VB) [Seleccionar]

Private Sub Form_Resize()
On Error Resume Next
grf.Visible = False '<--- Aqui
 With sh
    .Move 0, 0, Me.ScaleWidth, 600
 End With
 
 With grf
    .Move 0, sh.Height, Me.ScaleWidth, Me.ScaleHeight - sh.Height
 End With
 
 With LB
    .Move 0, 0, Me.ScaleWidth, 600
 End With
 
 Call UbicaCuadros(grf)
 Call UbicaNumeros(grf)
 grf.Visible = True  'y aqui
End Sub
Ademas de poner el formulario en Autoredraw a true. Me gustaría jugar con el codigo y lograr que los números también cambien de tamaño, por alli me buscaré un time.

Saludos

Título: Re:Grilla creada de forma dinámica y sencilla
Publicado por: Bazooka en Octubre 24, 2012, 08:11:04 am

Si ivan se puede mejorar mucho seguramente asi que tienes toda la libertad para ello!

Gracias por probar