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.EventArgs) Handles
btnToetsenbord1.Click,btnToetsenbord2.Click,btnToe tsenbord3.Click
.......
--
Thx

JoskeXP(Belgium)

[JoskeXP]

Hi,

It works

--
Thx

JoskeXP
"Cor Ligthert [MVP]" wrote:

JoskeXP,

More possibilites roughly typed here one.

\\\\
Select Case directcast(sender, button).name
case "btnToetsenbord1"
......
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

[Herfried K. Wagner [MVP]]

Cor,

"Cor Ligthert [MVP]" <no************@planet.nl> schrieb:

More possibilites roughly typed here one.

\\\\
Select Case directcast(sender, button).name
case "btnToetsenbord1"
......
case .............
.......
end select
///

.... I prefer:

\\\
Dim SourceControl As Button = DirectCast(sender, 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]]

Herfried,

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

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

:-)

Cor

[Cor Ligthert [MVP]]

JoskeXP,

More possibilites roughly typed here one.

\\\\
Select Case directcast(sender, button).name
case "btnToetsenbord1"
......
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]

Hi,

It works

--
Thx

JoskeXP
"Cor Ligthert [MVP]" wrote:

JoskeXP,

More possibilites roughly typed here one.

\\\\
Select Case directcast(sender, button).name
case "btnToetsenbord1"
......
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

[Herfried K. Wagner [MVP]]

Cor,

"Cor Ligthert [MVP]" <no************@planet.nl> schrieb:

More possibilites roughly typed here one.

\\\\
Select Case directcast(sender, button).name
case "btnToetsenbord1"
......
case .............
.......
end select
///

.... I prefer:

\\\
Dim SourceControl As Button = DirectCast(sender, 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]]

Herfried,

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

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

:-)

Cor