Los foros del Guille

Si no encuentras respuesta, puedes buscar en el sitio del Guille

Google
 

elGuille.hosting: Ofertas de alojamiento
posiblemente los mejores precios
¡¡¡ Ahora con el doble de casi todo !!!

Selecciona el foro y pulsa en mostrar:     Mostrar 
De tu interés (algunos de los avisos publicados)

20/oct/2006
Repetimos: ya que de vez en cuando es bueno que sepas que cosas te facilitarán las respuestas:
-No repitas mensajes,
-Intenta escribir un asunto adecuado a tu duda,
-No personalices (no indiques el nombre de quien quieres que responda),
-Explica bien tu duda, ten en cuenta que el que lee no puede leer tu mente y necesita saber todo lo que tu sabes para poder ayudarte.
Gracias.

  Foro: VB6.General Cantidad:  Desde:   Hasta:    Aplicar   Responder 
Respuestas a: 58203 - Como ordenar un arreglo de Botones
IDAsuntoFechaNick 
58203 Como ordenar un arreglo de Botones07/03/18 17:31CentauroChile   
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

 
(c) Guillermo 'guille' Som, 2005-2018  - foros.elGuille v1.0.5.3 (23/Mar/2009 14:50 GMT +1)  - (ASP.NET 2.0 v2.0.50727.8800)
 
Usuarios activos: 36 - App. iniciada: 10/12/2018 15:08:53 GMT - La hora GMT del servidor es: 11/12/2018 08:33:12 GMT