Crear controles en tiempo de ejecución y ordenar

[arielenter]

Hola amigos a ver si me ayudan con esto estoy queriendo crear controles en tiempo de ejecución y ordenarlo aca dejo un screen como me va quedando pero este solo me crea asi:



no lo puedo bajar hacia abajo.

Asi es como quiero que salga:


ESTE ES MI CODIGO

Código:

Private Sub cmdCrear_Click()
    
    Dim i As Integer
    For i = 1 To 4
        Load Command1(i)
        Command1(i).Left = Command1(i - 1).Left + Command1(i).Width
        Command1(i).Visible = True
    Next
    
End Sub

[culd]

Te falta la posicion TOP... que indica la altura...

Tenes que crear manualmente dos botones con el tamaño que quieras, entonces ahi restas el top del de abajo menos el de arriba, y ahi te queda cuanto tendrias que ir sumando

[arielenter]

como seria 2 botones amigo mi intención es crear los controles de una determinada posición de acuerdo a la cantidad de archivos que va a haber en un directorio con la columna que yo le he indicado ahi en el FOR I = 1 TO 4 le digo que cree 4 columnas a partir de un control

[Heimish2000]

Sería algo así, pero deberías añadir casos concretos para los primeros botones de cada fila y cada columna para no acceder a posiciones inexistentes.

En tu código, al poner la propiedad Left estabas utilizando el Width de tu botón, cuando hay que utilizar el del botón anterior (por si los botones no fueran iguales)

Código:

Private Sub cmdCrear_Click()
    
    Dim i As Integer
	Dim j As Integer
	Dim index As Integer
	
	For j = 0 To filas - 1
		For i = 1 To columnas
			index = j*columnas + i
			Load Command1(index)
			Command1(index).Left = Command1(index-1).Left + Command1(index-1).Width
			Command1(index).Top = Command1(index-(j*columnas)).Top + Command1(index-(j*colunas)).Height
			Command1(index).Visible = True
		Next i
	Next j
    
End Sub

[arielenter]

Gracias por ayudar Heimish2000 pero no me crea ningún control amigo. Por el tamaño del control no te preocupes siempre va a tener un tamaño exacto siempre va a ser cuadrado el boton

[pkj]

No he comprobado el código de heimish2000, pero creo que no te crea botones porque no has asignado valor a las variables filas y columnas, de modo que te crea 0 filas y 0 columnas.

Saludos