(Programación VB) Código completo: Hay un cuadro de lista llamado Lista1 en el formulario (se permiten múltiples selecciones)...
Dim i es un número entero y s es un número entero
Para i = 0 en Lista1. Recuento de listas: 1
s = s Lista1. Lista (1)
Luego
Texto1. Texto = s
Conector final
Subcomando privado 2_Click()
Dim i es un número entero, s es un número entero
Para i = 0 a Lista1. recuento de listas: 1
si lista1. Si se selecciona (I), s = s Lista1. Lista (1)
Luego
Texto1. Texto = s
Conector final
Subcomando privado 3_Click()
Etiqueta I como un número entero
Para i = 0 a Lista1. Recuento de listas: 1
Si gtList1. ListCount - 1 y luego salga
si list1. Seleccione (I) y luego
Lista1. Eliminar elemento I
i = i - 1
Finalizar si...
Entonces
Finalizar ajuste
Privado subform_Load()
Lista de propiedades 1. Opción de opción múltiple 2.
Etiqueta I como un número entero
Para i = 1 a 100
Si Mod 7 = 0, entonces Lista 1. AddItem i
Luego
Conector final