Como evitar el disparo del evento Click
Publicado por Dan (6 intervenciones) el 22/01/2002 18:04:05
Hola, mi problema es el siguiente:
Si yo programo código para el evento Click de un control, por decir un RadioButton, se supone que se debe ejecutar solamente cuando el usuario haga "Click" con el mouse. Pero este evento también se dispara cuando activo dicho control vía código.
Es decir, si por ahí programo
RadioButton1.Value = True
Se dispara el evento Click, pero yo no quiero que se dispare en este caso.
Lo mismo ocurre con el evento Change de los TextBoxes, y todos ellos.
Hay alguna opción del compilador, o una de esas cláusulas "OPTION" que se ponen al comienzo, o lo que sea para evitar que los eventos se disparen solos? Esto me está haciendo perder el control del flujo y se ejecuta código imprevisto. Hasta ahora tengo que hacer artificios como:
...
RadioButton1.Tag = "Stop"
RadioButton1.Value = 1
RadioButton1.Tag = ""
...
Private Sub RadioButton1_Click()
If RadioButton1.Tag = "Stop" Then Exit Sub
<Código del evento>
End Sub
Lo cual es muy engorroso. Además algunas veces necesito el Tag para otros propósitos, para lo cual tengo que usar otros artificios.
Alguien tiene alguna idea? Mil gracias.
Si yo programo código para el evento Click de un control, por decir un RadioButton, se supone que se debe ejecutar solamente cuando el usuario haga "Click" con el mouse. Pero este evento también se dispara cuando activo dicho control vía código.
Es decir, si por ahí programo
RadioButton1.Value = True
Se dispara el evento Click, pero yo no quiero que se dispare en este caso.
Lo mismo ocurre con el evento Change de los TextBoxes, y todos ellos.
Hay alguna opción del compilador, o una de esas cláusulas "OPTION" que se ponen al comienzo, o lo que sea para evitar que los eventos se disparen solos? Esto me está haciendo perder el control del flujo y se ejecuta código imprevisto. Hasta ahora tengo que hacer artificios como:
...
RadioButton1.Tag = "Stop"
RadioButton1.Value = 1
RadioButton1.Tag = ""
...
Private Sub RadioButton1_Click()
If RadioButton1.Tag = "Stop" Then Exit Sub
<Código del evento>
End Sub
Lo cual es muy engorroso. Además algunas veces necesito el Tag para otros propósitos, para lo cual tengo que usar otros artificios.
Alguien tiene alguna idea? Mil gracias.
Valora esta pregunta


0