Red de conocimiento informático - Consumibles informáticos - (Programación VB) Código completo: Hay un cuadro de lista llamado Lista1 en el formulario (se permiten múltiples selecciones)...

(Programación VB) Código completo: Hay un cuadro de lista llamado Lista1 en el formulario (se permiten múltiples selecciones)...

Subcomando privado 1_Click()

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