Paso de parametros a un procedimiento sub

11/08/2004 - 14:30 por Ximo | Informe spam
El problema que tengo es el siguiente:

Creo una matriz de botones

Dim botones(10) as button

.

llamo al procedimento

AddHandler Botones(0).Click, Addressof Prueba(0)

..

Este es el procedimeinto

Private sub Prueba(ByVal Sender as Object,ByVal e as EventsArgs,ByVal index
as integer) Handles MyBase.Click

...
ens sub

Esto da error.

¿Mi pregunta es como puedo pasar un parametro a un procedimento?.

Gracias de antemano.
 

Leer las respuestas

#1 Paulo Conde
11/08/2004 - 14:45 | Informe spam
El error esta en la clausula AddHandler que no debe llevar parámetros:

AddHandler Botones(0).Click, Addressof Prueba

Para saber quiene es el llamador en el procedimiento solo tienes que
convertir el parametro sender en un objeto button:

Private sub Prueba(ByVal Sender as Object,ByVal e as EventsArgs,ByVal index
as integer) Handles MyBase.Click
.
.
msgbox DirectCast(Sender, button).Name
.
.
End Sub

Saludos

Paulo G. Conde M.
+58-416-4721293
+58-273-5412395

Barinas, Venezuela

Preguntas similares