Parece que existe un limite en los procedimientos - VB-MUNDO

Black_devil · #1 (**permalink**) 12-10-2006, 16:26:15

Tengo un procedimiento en un módulo el cual lo llamo en combobox de un form, ahora cuando compilo el proyecto me arroja el mensaje "Error de compilación: Procedimiento demasiado largo", para que sepan o si sabian, les dejo el comentario ...

Tengo 966 Líneas y no se pueden más ...

Código:

Public Sub frmgastos_combo1_click()
If frmgastos.cmbcuota1.List(0) = frmgastos.cmbcuota1.Text Then
frmgastos.txtmes(1).Visible = False
frmgastos.txtmes(2).Visible = False
frmgastos.txtmes(3).Visible = False
frmgastos.txtmes(4).Visible = False
frmgastos.txtmes(5).Visible = False
frmgastos.txtmes(6).Visible = False
frmgastos.txtmes(7).Visible = False
frmgastos.txtmes(8).Visible = False
frmgastos.txtmes(9).Visible = False
frmgastos.txtmes(10).Visible = False
frmgastos.txtmes(11).Visible = False
frmgastos.txtmes(12).Visible = False
'-----------------------------------
frmgastos.lblene1.Visible = False
.
.
.
.
'Sucesivamente ...
End Sub

acalanto · #2 (**permalink**) 12-10-2006, 17:04:51

No existe documentación al respecto de la limitación que manifiestas en MSDN, sí que hace referencia al límite de 32000 identificadores dentro de un único proyecto.

En cualquier caso harías bien en poner un bucle para poner el atributo visible a false

Código:

dim i as integer
for i=1 to 12
    frmgastos.txtmes(i).visible = false
next i

pues como puedes ver divides por cuatro la cantidad de código, es más fácil de escribir y probablemente rebajas las posibilidades de error accidental.

Black_devil · #3 (**permalink**) 12-10-2006, 17:13:46

jeje gracias la falta de trabajar con bucles y el apuro no me dan ideas, gracias de todas formas, saludos :smt005 :smt006