如何举办活动？ [英] How to raise an event?
问题描述
如何从以下代码以粗体引发事件？
Public Sub init（）
pb =新PictureBox（7 ，7）{}
brd =新板（）
对于i作为整数= 0到7
对于j作为整数= 0到7
pb（i，j）=新PictureBox（）
如果brd.getbcolor（i，j）= 2那么
我。 pb（i，j）.BackColor = System.Drawing.Color.White
Else
Me.pb（i，j）.BackColor = System.Drawing.Color。银色
结束如果
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）}）
下一页
下一页
lb =新ListBox（）
Me.lb.Location =新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 =新标签（）
Me.label1.Location =新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 Seri f，14.0F，System.Drawing.FontStyle.Regular，System.Drawing.GraphicsUnit.Point，CByte（162））
label1.Text =1
Me.Controls.AddRange（New Control（）{Me.label1}）
label2 =新标签（）
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 =新标签（）
Me.label3.Location = New System.Drawing.Point（10,150）
M e.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 =新标签（）
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，CByt e（162））
label4.Text =4
Me.Controls.AddRange（新控制（）{Me.label4}）
label5 =新标签（）
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 =新标签（）
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（新控制（）{Me.label6}）
label7 =新标签（）
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 =新标签（）
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 =新标签（）
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 =新标签（）
Me.labelg.Location =新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 = N. ew 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 =错误
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 =新标签（）
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.Dr awing.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 =新标签（）
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 =新标签（）
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 =新标签（）
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，Syst em.Drawing.GraphicsUnit.Point，CByte（162））
labelb.Text =b
Me.Controls.AddRange（New Control（）{Me.labelb }）
labela =新标签（）
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）。单击+ = 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）。点击+ = Ne w 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）。点击+ =新的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）。点击+ = 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）。点击+ =新系统。 EventHandler（AddressOf pb_Click53）
我。 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）。点击+ = New System.EventHandler（AddressOf pb_Click56）
Me.pb（0,7）。点击+ = 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）
E. nd Sub
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
推荐答案
目前尚不清楚用以下代码以粗体表示事件是什么意思。什么是来自？
在VB.NET中，使用RaiseEvent调用（触发）偶数声明： http://msdn.microsoft.com/en-us/library/fwd3bwed.aspx [ ^ ]。
重要的是要知道只能在声明事件的类型的方法中引发事件。您不能从任何其他代码执行此操作，甚至不能从派生类执行此操作。这是一个非常简单的.NET功能。如果你真的需要通过某些其他类型的方法中的某些代码来引发一个事件，你只能通过暴露一些方法（包括一些属性getter或setter）来间接地做它，这会引发一个事件作为其调用的副作用。
我还建议你永远不要用与粗体显示的代码相同的样式编写任何代码。你永远不应该重复任何事情，尤其是这么多次： http://en.wikipedia.org/wiki/Don%27t_repeat_yourself [ ^ ]。
如果您能解释一下您尝试使用该代码实现的目标，我将能够建议如何以文明的方式编写它。
此外，你应该只使用语义敏感的名字，没有任何41，42，43，44。您正在尝试创建完全不受支持的代码。您将无法在一两个月内了解自己的代码。
-SA
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 theRaiseEventstatement: 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
我的问题中的代码行已经过时，所以我使用了这样的AddHandler选项
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
AddHan dler pb（1,1）。点击，AddressOf pb_Click10
AddHandler pb（2,1）.Click，AddressOf pb_Click11
AddHandler pb（3,1）。点击， 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）。点击，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）。单击，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）。单击，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，AddressO f 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
这些数字中的每一个都代表在棋盘上的正方形数量以及为了让两个玩家将棋子移动到棋盘上的任何方格，必须处理事件。我可以使用AddHandler选项或RaiseEvent选项。该错误表明我的问题中的代码已过时，并提供使用RaiseEvent选项的建议。经过一些研究，我发现我可以使用AddHandler选项或RaiseEvent选项，因为它们都用于相同的目的。当我这样做时，错误消失，调试成功。
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.
这篇关于如何举办活动？的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！
