Red de conocimiento informático - Espacio del host - 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.

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?