ID | Asunto | Fecha | Nick | |
58203 | Como ordenar un arreglo de Botones | 07/03/18 17:31 | CentauroChile | | |
Amigos.. buenas tardes, tengo un arreglo que crea los botones de acuerdo a un parámetro que define el usuario, en este caso, son las mesas de un restaurante, por lo mismo, debo mostrárlas en una ventana para que el garzón pueda seleccionarla de manera rápida, mi problema es que los 50 botones salen en linea horizontal y necesito que se muestren en filas de 10. Algo así como
Mesa Mesa Mesa Mesa Mesa Mesa Mesa Mesa Mesa Mesa 1 2 3 4 5 6 7 8 9 10
Mesa Mesa Mesa Mesa Mesa Mesa Mesa Mesa Mesa Mesa 11 12 13 14 15 16 17 18 19 20
y así hasta completar las lineas necesarias de 10 botones cada una. Este es el código que estoy usando ahora:
For intTotalDeMesas = 1 To CantidadDeMesas
Load CmdMesasSeleccionada(intTotalDeMesas) CmdMesasSeleccionada(intTotalDeMesas).Top = CmdMesasSeleccionada(intTotalDeMesas - 1).Top CmdMesasSeleccionada(intTotalDeMesas).Move (CmdMesasSeleccionada(0).Width * intTotalDeMesas), CmdMesasSeleccionada(0).Left CmdMesasSeleccionada(intTotalDeMesas).Visible = True CmdMesasSeleccionada(intTotalDeMesas).Caption = "Mesa: " & vbCrLf & (intTotalDeMesas) & "Index: " & Val(CmdMesasSeleccionada(intTotalDeMesas).Index) CmdMesasSeleccionada(intCantidadrubros).Tag = CmdMesasSeleccionada(intTotalDeMesas).Index Next
Saludos y muchas gracias de ante mano.
Saludos desde Chile
|