¡Ayuda con preguntas sobre programación del cuadro de lista de VB! ! !

Crear

Dos cuadros de lista Lista1 y Lista2

Cuatro botones Comando1, Comando2, Comando3, Comando4

Establezca sus propiedades de Título en "Mover a Lista2"

"Mover todo a Lista2", "Mover a Lista1", "Mover todo a Lista1"

Además, no necesita para configurarlo, sólo por el bien de la apariencia.

Todos los códigos son los siguientes:

Private?Sub?Command1_Click()

For?i?=?0?To?List1.ListCount?-? 1

Si?List1.Selected(i)?Then

If?List2.ListCount?

? Lista (i)

? Lista1.RemoveItem?i

? ¿Salir?Sub

¿Fin?Si

¿Para?j?= ?0 ?A?List2.ListCount?-?1

Si?List1.List(i)?<>?List2.List(j)?Entonces

? ?List1 .List(i)

? List1.RemoveItem?i

? ¿Salir?Sub

¿Fin? If

¿Siguiente? j

¿Fin?Si

Siguiente?iEnd?Sub

¿Privado?Sub?Command2_Click()

> Si ?List1.ListCount?Then

For?i?=?0?To?List1.ListCount?-?1

List2.AddItem?List1.List(i)

¿Siguiente?i

¿Fin?Si

Lista1.ClearEnd?Sub

Privado?Sub?Command3_Click ()

For?i?=?0?To?List2.ListCount?-?1

If?List2.Selected(i)?Then

Si? List1.ListCount?

? List1.AddItem?List2.List(i)

? List2.RemoveItem?i

? ¿Salir? Sub

Fin?If

For?j?=?0?To?List1.ListCount?-?1

If?List2.List( i) ?<>?List1.List(j)?Entonces

?

(i)

? Lista2.RemoveItem?i

? ¿Salir?Sub

¿Fin? Si

¿Siguiente?j

¿Fin?Si

Siguiente?iEnd?Sub

Privado?Sub?Command4_Click()

Si?List2 .ListCount?Entonces

Para?i?=?0?A?List2.ListCount?-?1

Lista1.AddItem?List2.List(i)

¿Siguiente?i

Fin?Si

Lista2.ClearEnd?Sub

¿Privado?Sub?Form_Load()

List1.AddItem?"Conceptos básicos de informática"

List1.AddItem?"Chino"

List1.AddItem?"Matemáticas"

¿Fin? Sub