Operación de devolución de datos inversa de Vb
Sublista privada 1_Click()
dim String es String, sz() es String, fhz es Long, I es Long, j es Integer
str = List1. texto
sz = Split(str, ","")
fhz = underrun(sz)
Para i = 0 a 2
Si es la opción 1(i). Entonces
Opción 1(i). valor=Verdadero
Otro
Opción 1(i). value = false
Terminará si...
Siguiente i
Para i = 0 a 11
Compruebe1(i). Valor = 0
Siguiente i
Para j = 1 a fhz - 1
Para i = 0 a 11
Si Check1 ( i). Título = sz(j) y luego
Check1(i). Valor = 1
Terminará si...
Siguiente i
Siguiente j
Para i = 0 en Combo1. Recuento de listas: 1
Combo1. ListIndex = i
Si es correcto(Combo1.Text,3) = sz(0) entonces
Salir para...
Terminará si...
Siguiente yo
Conector final