Hello,

How do you reference a sub that uses CommandEventArgs from another sub? For
example, I would like to call the sub "EmployeeOld_Click" from "Call_MySub".

Sub Call_MySub()
Call EmployeeOld_Click(Something here, Something here)
End Sub


Sub EmployeeOld_Click(ByVal Src As Object, ByVal Args As CommandEventArgs)
Me.pnlEmployeeNew.Visible = True
End Sub

--
Thanks in advance,

sck10

sck10 <(E-Mail Removed)> ha scritto:
> How do you reference a sub that uses CommandEventArgs from another
> sub? For example, I would like to call the sub "EmployeeOld_Click"
> from "Call_MySub".
>
> Sub Call_MySub()
> Call EmployeeOld_Click(Something here, Something here)
> End Sub
>
>
> Sub EmployeeOld_Click(ByVal Src As Object, ByVal Args As
> CommandEventArgs) Me.pnlEmployeeNew.Visible = True
> End Sub

Sub Call_MySub()
EmployeeOld_Click(nothing,nothing)
End Sub

--
AZ [Microsoft - .NET MVP]
Mia Home page: http://ciclismo.sitiasp.it
Asp.Net community: http://www.aspitalia.com
Il mio blog: http://blogs.aspitalia.com/az

Since it appears you are not using the CommandEventArgs parameter in
your EmployeeOld_Click method, you can call it passing empty
parameters.

Sub Call_MySub()
EmployeeOld_Click Nothing, EventArgs.Empty
End Sub

HTH,

bill

sck10 wrote:
> Hello,
>
> How do you reference a sub that uses CommandEventArgs from another sub? For
> example, I would like to call the sub "EmployeeOld_Click" from "Call_MySub".
>
> Sub Call_MySub()
> Call EmployeeOld_Click(Something here, Something here)
> End Sub
>
>
> Sub EmployeeOld_Click(ByVal Src As Object, ByVal Args As CommandEventArgs)
> Me.pnlEmployeeNew.Visible = True
> End Sub
>
> --
> Thanks in advance,
>
> sck10

it would be cleaner to move the code within EmployeeOld_Click to a common
function and call the common funtion from both EmployeeOld_Click and
Call_MySub... my 0.02$

"sck10" wrote:

> Hello,
>
> How do you reference a sub that uses CommandEventArgs from another sub? For
> example, I would like to call the sub "EmployeeOld_Click" from "Call_MySub".
>
> Sub Call_MySub()
> Call EmployeeOld_Click(Something here, Something here)
> End Sub
>
>
> Sub EmployeeOld_Click(ByVal Src As Object, ByVal Args As CommandEventArgs)
> Me.pnlEmployeeNew.Visible = True
> End Sub
>
> --
> Thanks in advance,
>
> sck10
>
>
>