How to raise an event?

Question

0.00/5 (No votes)

See more:

How to raise an event from the following code in bold?

Public Sub init()
pb = New PictureBox(7, 7) {}
brd = New Board()
For i As Integer = 0 To 7
For j As Integer = 0 To 7
pb(i, j) = New PictureBox()
If brd.getbcolor(i, j) = 2 Then
Me.pb(i, j).BackColor = System.Drawing.Color.White
Else
Me.pb(i, j).BackColor = System.Drawing.Color.Silver
End If
Me.pb(i, j).Location = New System.Drawing.Point(30 + i * 60, 10 + j * 60)
Me.pb(i, j).Name = "pb1"
Me.pb(i, j).Size = New System.Drawing.Size(60, 60)
Me.pb(i, j).TabIndex = i
Me.pb(i, j).TabStop = False
Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.pb(i, j)})
Next
Next
lb = New ListBox()
Me.lb.Location = New System.Drawing.Point(530, 10)
Me.lb.Name = "lb"
Me.lb.Size = New System.Drawing.Size(150, 500)
Me.lb.TabIndex = 64
Me.lb.TabStop = False
Me.Controls.AddRange(New Control() {Me.lb})

label1 = New Label()
Me.label1.Location = New System.Drawing.Point(10, 30)
Me.label1.Name = "label1"
Me.label1.Size = New System.Drawing.Size(20, 20)
Me.label1.TabIndex = 65
Me.label1.TabStop = False
Me.label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.0F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CByte(162))
label1.Text = "1"
Me.Controls.AddRange(New Control() {Me.label1})

label2 = New Label()
Me.label2.Location = New System.Drawing.Point(10, 90)
Me.label2.Name = "label2"
Me.label2.Size = New System.Drawing.Size(20, 20)
Me.label2.TabIndex = 65
Me.label2.TabStop = False
Me.label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.0F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CByte(162))
label2.Text = "2"
Me.Controls.AddRange(New Control() {Me.label2})

label3 = New Label()
Me.label3.Location = New System.Drawing.Point(10, 150)
Me.label3.Name = "label3"
Me.label3.Size = New System.Drawing.Size(20, 20)
Me.label3.TabIndex = 65
Me.label3.TabStop = False
Me.label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.0F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CByte(162))
label3.Text = "3"
Me.Controls.AddRange(New Control() {Me.label3})

label4 = New Label()
Me.label4.Location = New System.Drawing.Point(10, 210)
Me.label4.Name = "label4"
Me.label4.Size = New System.Drawing.Size(20, 20)
Me.label4.TabIndex = 65
Me.label4.TabStop = False
Me.label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.0F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CByte(162))
label4.Text = "4"
Me.Controls.AddRange(New Control() {Me.label4})

label5 = New Label()
Me.label5.Location = New System.Drawing.Point(10, 270)
Me.label5.Name = "label5"
Me.label5.Size = New System.Drawing.Size(20, 20)
Me.label5.TabIndex = 65
Me.label5.TabStop = False
Me.label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.0F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CByte(162))
label5.Text = "5"
Me.Controls.AddRange(New Control() {Me.label5})

label6 = New Label()
Me.label6.Location = New System.Drawing.Point(10, 330)
Me.label6.Name = "label6"
Me.label6.Size = New System.Drawing.Size(20, 20)
Me.label6.TabIndex = 65
Me.label6.TabStop = False
Me.label6.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.0F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CByte(162))
label6.Text = "6"
Me.Controls.AddRange(New Control() {Me.label6})

label7 = New Label()
Me.label7.Location = New System.Drawing.Point(10, 390)
Me.label7.Name = "label7"
Me.label7.Size = New System.Drawing.Size(20, 20)
Me.label7.TabIndex = 65
Me.label7.TabStop = False
Me.label7.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.0F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CByte(162))
label7.Text = "7"
Me.Controls.AddRange(New Control() {Me.label7})

label8 = New Label()
Me.label8.Location = New System.Drawing.Point(10, 450)
Me.label8.Name = "label8"
Me.label8.Size = New System.Drawing.Size(20, 20)
Me.label8.TabIndex = 65
Me.label8.TabStop = False
Me.label8.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.0F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CByte(162))
label8.Text = "8"
Me.Controls.AddRange(New Control() {Me.label8})

labelh = New Label()
Me.labelh.Location = New System.Drawing.Point(50, 490)
Me.labelh.Name = "labelh"
Me.labelh.Size = New System.Drawing.Size(20, 20)
Me.labelh.TabIndex = 65
Me.labelh.TabStop = False
Me.labelh.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.0F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CByte(162))
labelh.Text = "h"
Me.Controls.AddRange(New Control() {Me.labelh})

labelg = New Label()
Me.labelg.Location = New System.Drawing.Point(110, 490)
Me.labelg.Name = "labelg"
Me.labelg.Size = New System.Drawing.Size(20, 30)
Me.labelg.TabIndex = 65
Me.labelg.TabStop = False
Me.labelg.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.0F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CByte(162))
labelg.Text = "g"
Me.Controls.AddRange(New Control() {Me.labelg})

labelf = New Label()
Me.labelf.Location = New System.Drawing.Point(175, 490)
Me.labelf.Name = "labelf"
Me.labelf.Size = New System.Drawing.Size(20, 20)
Me.labelf.TabIndex = 65
Me.labelf.TabStop = False
Me.labelf.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.0F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CByte(162))
labelf.Text = "f"
Me.Controls.AddRange(New Control() {Me.labelf})

labele = New Label()
Me.labele.Location = New System.Drawing.Point(230, 490)
Me.labele.Name = "labele"
Me.labele.Size = New System.Drawing.Size(20, 20)
Me.labele.TabIndex = 65
Me.labele.TabStop = False
Me.labele.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.0F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CByte(162))
labele.Text = "e"
Me.Controls.AddRange(New Control() {Me.labele})

labeld = New Label()
Me.labeld.Location = New System.Drawing.Point(290, 490)
Me.labeld.Name = "labeld"
Me.labeld.Size = New System.Drawing.Size(20, 20)
Me.labeld.TabIndex = 65
Me.labeld.TabStop = False
Me.labeld.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.0F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CByte(162))
labeld.Text = "d"
Me.Controls.AddRange(New Control() {Me.labeld})

labelc = New Label()
Me.labelc.Location = New System.Drawing.Point(350, 490)
Me.labelc.Name = "labelc"
Me.labelc.Size = New System.Drawing.Size(20, 20)
Me.labelc.TabIndex = 65
Me.labelc.TabStop = False
Me.labelc.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.0F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CByte(162))
labelc.Text = "c"
Me.Controls.AddRange(New Control() {Me.labelc})

labelb = New Label()
Me.labelb.Location = New System.Drawing.Point(410, 490)
Me.labelb.Name = "labelb"
Me.labelb.Size = New System.Drawing.Size(20, 20)
Me.labelb.TabIndex = 65
Me.labelb.TabStop = False
Me.labelb.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.0F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CByte(162))
labelb.Text = "b"
Me.Controls.AddRange(New Control() {Me.labelb})

labela = New Label()
Me.labela.Location = New System.Drawing.Point(470, 490)
Me.labela.Name = "labela"
Me.labela.Size = New System.Drawing.Size(20, 20)
Me.labela.TabIndex = 65
Me.labela.TabStop = False
Me.labela.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.0F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CByte(162))
labela.Text = "a"
Me.Controls.AddRange(New Control() {Me.labela})

Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.ClientSize = New System.Drawing.Size(700, 520)
Me.Name = "ChessForm"
Me.Text = "Scoontz Chess"
Me.Load += New System.EventHandler(AddressOf Me.FormChess_Load)
Me.pb(0, 0).Click += New System.EventHandler(AddressOf pb_Click1)
Me.pb(1, 0).Click += New System.EventHandler(AddressOf pb_Click2)
Me.pb(2, 0).Click += New System.EventHandler(AddressOf pb_Click3)
Me.pb(3, 0).Click += New System.EventHandler(AddressOf pb_Click4)
Me.pb(4, 0).Click += New System.EventHandler(AddressOf pb_Click5)
Me.pb(5, 0).Click += New System.EventHandler(AddressOf pb_Click6)
Me.pb(6, 0).Click += New System.EventHandler(AddressOf pb_Click7)
Me.pb(7, 0).Click += New System.EventHandler(AddressOf pb_Click8)

Me.pb(0, 1).Click += New System.EventHandler(AddressOf pb_Click9)
Me.pb(1, 1).Click += New System.EventHandler(AddressOf pb_Click10)
Me.pb(2, 1).Click += New System.EventHandler(AddressOf pb_Click11)
Me.pb(3, 1).Click += New System.EventHandler(AddressOf pb_Click12)
Me.pb(4, 1).Click += New System.EventHandler(AddressOf pb_Click13)
Me.pb(5, 1).Click += New System.EventHandler(AddressOf pb_Click14)
Me.pb(6, 1).Click += New System.EventHandler(AddressOf pb_Click15)
Me.pb(7, 1).Click += New System.EventHandler(AddressOf pb_Click16)

Me.pb(0, 2).Click += New System.EventHandler(AddressOf pb_Click17)
Me.pb(1, 2).Click += New System.EventHandler(AddressOf pb_Click18)
Me.pb(2, 2).Click += New System.EventHandler(AddressOf pb_Click19)
Me.pb(3, 2).Click += New System.EventHandler(AddressOf pb_Click20)
Me.pb(4, 2).Click += New System.EventHandler(AddressOf pb_Click21)
Me.pb(5, 2).Click += New System.EventHandler(AddressOf pb_Click22)
Me.pb(6, 2).Click += New System.EventHandler(AddressOf pb_Click23)
Me.pb(7, 2).Click += New System.EventHandler(AddressOf pb_Click24)

Me.pb(0, 3).Click += New System.EventHandler(AddressOf pb_Click25)
Me.pb(1, 3).Click += New System.EventHandler(AddressOf pb_Click26)
Me.pb(2, 3).Click += New System.EventHandler(AddressOf pb_Click27)
Me.pb(3, 3).Click += New System.EventHandler(AddressOf pb_Click28)
Me.pb(4, 3).Click += New System.EventHandler(AddressOf pb_Click29)
Me.pb(5, 3).Click += New System.EventHandler(AddressOf pb_Click30)
Me.pb(6, 3).Click += New System.EventHandler(AddressOf pb_Click31)
Me.pb(7, 3).Click += New System.EventHandler(AddressOf pb_Click32)

Me.pb(0, 4).Click += New System.EventHandler(AddressOf pb_Click33)
Me.pb(1, 4).Click += New System.EventHandler(AddressOf pb_Click34)
Me.pb(2, 4).Click += New System.EventHandler(AddressOf pb_Click35)
Me.pb(3, 4).Click += New System.EventHandler(AddressOf pb_Click36)
Me.pb(4, 4).Click += New System.EventHandler(AddressOf pb_Click37)
Me.pb(5, 4).Click += New System.EventHandler(AddressOf pb_Click38)
Me.pb(6, 4).Click += New System.EventHandler(AddressOf pb_Click39)
Me.pb(7, 4).Click += New System.EventHandler(AddressOf pb_Click40)

Me.pb(0, 5).Click += New System.EventHandler(AddressOf pb_Click41)
Me.pb(1, 5).Click += New System.EventHandler(AddressOf pb_Click42)
Me.pb(2, 5).Click += New System.EventHandler(AddressOf pb_Click43)
Me.pb(3, 5).Click += New System.EventHandler(AddressOf pb_Click44)
Me.pb(4, 5).Click += New System.EventHandler(AddressOf pb_Click45)
Me.pb(5, 5).Click += New System.EventHandler(AddressOf pb_Click46)
Me.pb(6, 5).Click += New System.EventHandler(AddressOf pb_Click47)
Me.pb(7, 5).Click += New System.EventHandler(AddressOf pb_Click48)

Me.pb(0, 6).Click += New System.EventHandler(AddressOf pb_Click49)
Me.pb(1, 6).Click += New System.EventHandler(AddressOf pb_Click50)
Me.pb(2, 6).Click += New System.EventHandler(AddressOf pb_Click51)
Me.pb(3, 6).Click += New System.EventHandler(AddressOf pb_Click52)
Me.pb(4, 6).Click += New System.EventHandler(AddressOf pb_Click53)
Me.pb(5, 6).Click += New System.EventHandler(AddressOf pb_Click54)
Me.pb(6, 6).Click += New System.EventHandler(AddressOf pb_Click55)
Me.pb(7, 6).Click += New System.EventHandler(AddressOf pb_Click56)

Me.pb(0, 7).Click += New System.EventHandler(AddressOf pb_Click57)
Me.pb(1, 7).Click += New System.EventHandler(AddressOf pb_Click58)
Me.pb(2, 7).Click += New System.EventHandler(AddressOf pb_Click59)
Me.pb(3, 7).Click += New System.EventHandler(AddressOf pb_Click60)
Me.pb(4, 7).Click += New System.EventHandler(AddressOf pb_Click61)
Me.pb(5, 7).Click += New System.EventHandler(AddressOf pb_Click62)
Me.pb(6, 7).Click += New System.EventHandler(AddressOf pb_Click63)
Me.pb(7, 7).Click += New System.EventHandler(AddressOf pb_Click64)
End Sub

Posted 26-Jul-14 13:34pm

Keith O. Williams

Add a Solution

Comments

Sergey Alexandrovich Kryukov 26-Jul-14 21:17pm

What does it mean? You are trying to handle event, so what? What's the problem? Perhaps you simply need to explain your goal.
—SA

2 solutions

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

Sergey Alexandrovich Kryukov · Answer 1 · 2014-07-26T15:19:00

It is not clear what "to raise an event from the following code in bold" may mean. What is "from"?

In VB.NET, the even is invoked (triggered) using the RaiseEvent statement: http://msdn.microsoft.com/en-us/library/fwd3bwed.aspx[^].

It is important to know that raising an event is only possible in the method of the type where the event is declared. You cannot do it from any other code, not even from a derived class. This is the important fool-proof .NET feature. If you really need to raise an event by some code in some method of some other type, you can only do it indirectly, by exposing some method (including some property getter or setter) which would raise an event as a side effect of its call.

Let me also advise you to never write any code in the same style as the code you show in bold. You should never repeat anything, especially so many times: http://en.wikipedia.org/wiki/Don%27t_repeat_yourself[^].

If you could explain what did you try to achieve with that code, I would be able to advise how to write it in a civilized way.

Besides, you should only use semantically sensible names, without any "41", "42", "43", "44". You are trying to create totally unsupportable code. You won't be able to understand your own code in a month or two.

—SA

Keith O. Williams · Answer 2 · 2014-07-26T16:31:00

The line of code in my question was obsolete so I used the AddHandler option like this

AddHandler Load, AddressOf Me.FormScoontChess_Load

AddHandler pb(0, 0).Click, AddressOf pb_Click1
AddHandler pb(1, 0).Click, AddressOf pb_Click2
AddHandler pb(2, 0).Click, AddressOf pb_Click3
AddHandler pb(3, 0).Click, AddressOf pb_Click4
AddHandler pb(4, 0).Click, AddressOf pb_Click5
AddHandler pb(5, 0).Click, AddressOf pb_Click6
AddHandler pb(6, 0).Click, AddressOf pb_Click7
AddHandler pb(7, 0).Click, AddressOf pb_Click8

AddHandler pb(0, 1).Click, AddressOf pb_Click9
AddHandler pb(1, 1).Click, AddressOf pb_Click10
AddHandler pb(2, 1).Click, AddressOf pb_Click11
AddHandler pb(3, 1).Click, AddressOf pb_Click12
AddHandler pb(4, 1).Click, AddressOf pb_Click13
AddHandler pb(5, 1).Click, AddressOf pb_Click14
AddHandler pb(6, 1).Click, AddressOf pb_Click15
AddHandler pb(7, 1).Click, AddressOf pb_Click16

AddHandler pb(0, 2).Click, AddressOf pb_Click17
AddHandler pb(1, 2).Click, AddressOf pb_Click18
AddHandler pb(2, 2).Click, AddressOf pb_Click19
AddHandler pb(3, 2).Click, AddressOf pb_Click20
AddHandler pb(4, 2).Click, AddressOf pb_Click21
AddHandler pb(5, 2).Click, AddressOf pb_Click22
AddHandler pb(6, 2).Click, AddressOf pb_Click23
AddHandler pb(7, 2).Click, AddressOf pb_Click24

AddHandler pb(0, 3).Click, AddressOf pb_Click25
AddHandler pb(1, 3).Click, AddressOf pb_Click26
AddHandler pb(2, 3).Click, AddressOf pb_Click27
AddHandler pb(3, 3).Click, AddressOf pb_Click28
AddHandler pb(4, 3).Click, AddressOf pb_Click29
AddHandler pb(5, 3).Click, AddressOf pb_Click30
AddHandler pb(6, 3).Click, AddressOf pb_Click31
AddHandler pb(7, 3).Click, AddressOf pb_Click32

AddHandler pb(0, 4).Click, AddressOf pb_Click33
AddHandler pb(1, 4).Click, AddressOf pb_Click34
AddHandler pb(2, 4).Click, AddressOf pb_Click35
AddHandler pb(3, 4).Click, AddressOf pb_Click36
AddHandler pb(4, 4).Click, AddressOf pb_Click37
AddHandler pb(5, 4).Click, AddressOf pb_Click38
AddHandler pb(6, 4).Click, AddressOf pb_Click39
AddHandler pb(7, 4).Click, AddressOf pb_Click40

AddHandler pb(0, 5).Click, AddressOf pb_Click41
AddHandler pb(1, 5).Click, AddressOf pb_Click42
AddHandler pb(2, 5).Click, AddressOf pb_Click43
AddHandler pb(3, 5).Click, AddressOf pb_Click44
AddHandler pb(4, 5).Click, AddressOf pb_Click45
AddHandler pb(5, 5).Click, AddressOf pb_Click46
AddHandler pb(6, 5).Click, AddressOf pb_Click47
AddHandler pb(7, 5).Click, AddressOf pb_Click48

AddHandler pb(0, 6).Click, AddressOf pb_Click49
AddHandler pb(1, 6).Click, AddressOf pb_Click50
AddHandler pb(2, 6).Click, AddressOf pb_Click51
AddHandler pb(3, 6).Click, AddressOf pb_Click52
AddHandler pb(4, 6).Click, AddressOf pb_Click53
AddHandler pb(5, 6).Click, AddressOf pb_Click54
AddHandler pb(6, 6).Click, AddressOf pb_Click55
AddHandler pb(7, 6).Click, AddressOf pb_Click56

AddHandler pb(0, 7).Click, AddressOf pb_Click57
AddHandler pb(1, 7).Click, AddressOf pb_Click58
AddHandler pb(2, 7).Click, AddressOf pb_Click59
AddHandler pb(3, 7).Click, AddressOf pb_Click60
AddHandler pb(4, 7).Click, AddressOf pb_Click61
AddHandler pb(5, 7).Click, AddressOf pb_Click62
AddHandler pb(6, 7).Click, AddressOf pb_Click63
AddHandler pb(7, 7).Click, AddressOf pb_Click64

Each of these numbers represent the number of squares that are on the chess board and in order for both players to move the chess piece to any square on the board, an event must be handled. I can either use the AddHandler option or the RaiseEvent option. The error states that the code in my question is obsolete and offer a suggestion of using the RaiseEvent option. After some research, I found out I can either use AddHandler option or the RaiseEvent option as they both serve the same purpose. When I done so the errors disappeared and the debug was a success.

How to raise an event?

2 solutions

Solution 1

Solution 2

Add your solution here

Preview 0