Grilla creada de forma dinámica y sencilla

[Bazooka]

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

[YAcosta]

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

[Bazooka]

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

Gracias por probar