Utilicé el software vb6.0 para diseñar las siguientes funciones: Hay dos cuadros de lista, uno a la izquierda y otro a la izquierda. Haga clic en el cuadro de lista de la izquierda para seleccionar una opción y luego haga clic en Aceptar.
¿Público?Clase?Form1
¿Privado?Sub?Button1_Click(ByVal?sender?As?System.Object, ByVal?e?As?System.EventArgs)?Handles?Button1. Haga clic en
If?ListBox1.SelectedItem?<>?"" Luego
ListBox2.Items.Add(ListBox1.SelectedItem)
ListBox1.Items.Remove( ListBox1.SelectedItem)
¿Fin?Si
Fin?Sub
Privado?Sub?Button2_Click(ByVal?sender?As?System.Object, ByVal?e ?Como?System.EventArgs)?Handles?Button2.Click
Si?Entonces
ListBox1.Items.Add(ListBox2.SelectedItem)
ListBox2.Items .Remove(ListBox2.SelectedItem)
¿Fin?Sub
¿Fin?