Events Multi

[JoskeXP]

Hi,
How can I now witch events happend in the code

.....
Private Sub btnToetsenbord1 _Click(ByVal sender As System.Object, ByVal e As
System.EventArg s) Handles
btnToetsenbord1 .Click,btnToets enbord2.Click,b tnToetsenbord3. Click
.......
--
Thx

JoskeXP(Belgium )

[JoskeXP]

Re: Events Multi

Hi,

It works

--
Thx

JoskeXP


"Cor Ligthert [MVP]" wrote:
[color=blue]
> JoskeXP,
>
> More possibilites roughly typed here one.
>
> \\\\
> Select Case directcast(send er, button).name
> case "btnToetsenbord 1"
> ......
> case .............
> .......
> end select
> ///
>
> It is in my opinion not needed to tell that you are from Belgium. In my
> opinion is for those who (really) know what Belgium is your name enough.
>
> :-)
>
> I hope this helps,
>
> Cor
>
>
>[/color]

[Herfried K. Wagner [MVP]]

Re: Events Multi

Cor,

"Cor Ligthert [MVP]" <notmyfirstname @planet.nl> schrieb:[color=blue]
> More possibilites roughly typed here one.
>
> \\\\
> Select Case directcast(send er, button).name
> case "btnToetsenbord 1"
> ......
> case .............
> .......
> end select
> ///[/color]

.... I prefer:

\\\
Dim SourceControl As Button = DirectCast(send er, Button)
Select Case True
Case SourceControl Is Me.Button1
...
Case SourceControl Is Me.Button2
...
...
End Select
///

--
M S Herfried K. Wagner
M V P <URL:http://dotnet.mvps.org/>
V B <URL:http://classicvb.org/petition/>

[Cor Ligthert [MVP]]

Re: Events Multi

Herfried,
[color=blue]
> \\\
> Dim SourceControl As Button = DirectCast(send er, Button)
> Select Case True
> Case SourceControl Is Me.Button1
> ...
> Case SourceControl Is Me.Button2
> ...
> ...
> End Select
> ///[/color]

Better, however probably one I don't remember me so easy as the other one,
however I will try

:-)

Cor

[Cor Ligthert [MVP]]

Re: Events Multi

JoskeXP,

More possibilites roughly typed here one.

\\\\
Select Case directcast(send er, button).name
case "btnToetsenbord 1"
......
case .............
.......
end select
///

It is in my opinion not needed to tell that you are from Belgium. In my
opinion is for those who (really) know what Belgium is your name enough.

:-)

I hope this helps,

Cor

[JoskeXP]

Re: Events Multi

Hi,

It works

--
Thx

JoskeXP


"Cor Ligthert [MVP]" wrote:
[color=blue]
> JoskeXP,
>
> More possibilites roughly typed here one.
>
> \\\\
> Select Case directcast(send er, button).name
> case "btnToetsenbord 1"
> ......
> case .............
> .......
> end select
> ///
>
> It is in my opinion not needed to tell that you are from Belgium. In my
> opinion is for those who (really) know what Belgium is your name enough.
>
> :-)
>
> I hope this helps,
>
> Cor
>
>
>[/color]

[Herfried K. Wagner [MVP]]

Re: Events Multi

Cor,

"Cor Ligthert [MVP]" <notmyfirstname @planet.nl> schrieb:[color=blue]
> More possibilites roughly typed here one.
>
> \\\\
> Select Case directcast(send er, button).name
> case "btnToetsenbord 1"
> ......
> case .............
> .......
> end select
> ///[/color]

.... I prefer:

\\\
Dim SourceControl As Button = DirectCast(send er, Button)
Select Case True
Case SourceControl Is Me.Button1
...
Case SourceControl Is Me.Button2
...
...
End Select
///

--
M S Herfried K. Wagner
M V P <URL:http://dotnet.mvps.org/>
V B <URL:http://classicvb.org/petition/>

[Cor Ligthert [MVP]]

Re: Events Multi

Herfried,
[color=blue]
> \\\
> Dim SourceControl As Button = DirectCast(send er, Button)
> Select Case True
> Case SourceControl Is Me.Button1
> ...
> Case SourceControl Is Me.Button2
> ...
> ...
> End Select
> ///[/color]

Better, however probably one I don't remember me so easy as the other one,
however I will try

:-)

Cor