Programación General > Visual Basic 6.0 e inferiores

 Shape

<< < (2/2)

Soultaker:
No te entiendo a que te refieres con mas de dos columnas

 :comp:

Brroz:
Hola radical & co.

No sé si he comprendido muy bien (si no, házmelo saber), pero creo que esto debería de servirte:


--- Código: Text --- Private Sub Command2_Click()     Dim lRows As Long, lCols As Long    lRows = Int(Shape1.Height / Shape2(0).Height)    lCols = Int(Shape1.Width / Shape2(0).Width)        Dim lRow As Long, lCol As Long, lIdx As Long    Dim iFrom As Integer        Shape2(0).Move Shape1.Left, Shape1.Top    For lRow = 1 To lRows        If lRow &#62; 1 Then            iFrom = 1        Else            iFrom = 2        End If        For lCol = iFrom To lCols            lIdx = lIdx + 1            Load Shape2(lIdx)            Shape2(lIdx).Move Shape1.Left + Shape2(0).Width * (lCol - 1), Shape1.Top + Shape2(0).Height * (lRow - 1)            Shape2(lIdx).Visible = True        Next lCol    Next lRow End Sub  
Por otro lado, ignoro qué es lo que pretendes hacer, pero piensa en la posibilidad de dibujar rectángulos mediante el método Line, así te ahorrarías cargar el form con tantos controles.

Suerte.

Navegación

[0] Índice de Mensajes

[*] Página Anterior