Invocar Procedimientos

[TheGhost(Z)]

Hola, vengo de VB6.0 quería saber la equivalencia de:

Código [Seleccionar] Expandir

Private Sub Command1_Click()
    Call Command2_Click
End Sub

Private Sub Command2_Click()
    MsgBox "HI"
End Sub


Estoy intentando hacer lo mismo en VB.Net y tira error..

Código [Seleccionar] Expandir


Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Call Button2_Click()
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
MsgBox("HI")
End Sub


ALguién sabe como hacer eso...
Saludos...

[[D4N93R]]

Hola,

El call no es necesario.  y si pudieses poner el erro que te da sería de gran ayuda.

Un saludo

[TheGhost(Z)]

Código [Seleccionar] Expandir

Error 1 No se ha especificado ningún argumento para el parámetro 'e' de 'Private Sub Button1_Click(sender As Object, e As System.EventArgs)'. C:\Documents and Settings\Pedro Luis\Configuración local\Datos de programa\Temporary Projects\WindowsApplication1\Form1.vb 8 9 WindowsApplication1


Código [Seleccionar] Expandir

Error 2 No se ha especificado ningún argumento para el parámetro 'sender' de 'Private Sub Button1_Click(sender As Object, e As System.EventArgs)'. C:\Documents and Settings\Pedro Luis\Configuración local\Datos de programa\Temporary Projects\WindowsApplication1\Form1.vb 8 9 WindowsApplication1

[[D4N93R]]

Ahhh claro, no se por qué no lo ví.

Fíjate, este es el método que quieres llamar:
Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

Tiene dos parámetros o argumentos. Tienes que pasarle algo ahí.

puedes hacer algo así:

Button2_Click(Me, EventArgs.Empty)

Y me dices como te fue.

[.:Weeds:.]

No es más facil hacer esto?

Código (vbnet) [Seleccionar] Expandir


Private function hi() ' Creas la funcion
Msgbox("HI")
End function

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
hi() ' Llamas la funcion
End Sub


Saludos.

[TheGhost(Z)]

Gracias, [D4N93R]

Funcionó.. quería comentarte xq que hay que poner me y EventArgs.Empty y tambien si antes del me se debe poner ByVal o ByRef o simplemente me como me has dicho

Código [Seleccionar] Expandir

Button2_Click(Me, EventArgs.Empty)

Saludos,