Programación vb6.0: sistema de liquidación y pedidos de restaurantes

Primero

Planificar proyectos, funciones, módulos, procesos....

El formato de la ventana es como se muestra en la figura

Configuración de atributos:

form1-caption: menú de pedidos del cliente

lista1: multiselect=2\style=0

lista2: multiselect=0 \style=1

comando1:caption=Agregar

command2=caption=Eliminar

lable1.Caption=Menú del restaurante

lable2: caption=Pedido del cliente

Código:

Private Sub Form_Load()

List1.AddItem List1.List(i) 'Agrega los elementos seleccionados en la Lista1 a la Lista2

Lista1.RemoveItem i

Finalizar si

Siguiente i

Finalizar sub

Subcomando privado2_Clic ()

Dim i

For i = List2.ListCount - 1 a 0 Paso 1ListCount - 1 a 0 Paso -1

Si List2.Selected(i ) Luego

List1.AddItem List2. i)

List2.RemoveItem i 'Eliminar este elemento seleccionado de List2

End If

Siguiente i

Fin Sub