在VB.net里定義的控件數(shù)組怎么定義事件

Imports?System.Text

創(chuàng)新互聯(lián)公司是一家專業(yè)提供和靜企業(yè)網(wǎng)站建設(shè),專注與做網(wǎng)站、網(wǎng)站設(shè)計(jì)、H5高端網(wǎng)站建設(shè)、小程序制作等業(yè)務(wù)。10年已為和靜眾多企業(yè)、政府機(jī)構(gòu)等服務(wù)。創(chuàng)新互聯(lián)專業(yè)網(wǎng)站設(shè)計(jì)公司優(yōu)惠進(jìn)行中。

Imports?System.Windows

Imports?System.Windows.Forms

Public?Class?Netin?'類?名

'Inherits?Forms.Form

Public?Shared?Netin?As?New?Form

Public?components?As?ComponentModel.IContainer

Protected?Overrides?Sub?Finalize()

MyBase.Finalize()

End?Sub???

DebuggerStepThrough()

Public?Sub?InitializeComponent()

Me.components?=?New?ComponentModel.Container()

Dim?resources?As?ComponentModel.ComponentResourceManager?=?New?System.ComponentModel.ComponentResourceManager(GetType(bjt))

Me.TextBox1?=?New?TextBox(Me.components)

Me.Button1?=?New?Button(Me.components)

'For?…?Next??

Me.Controls.Add(Me.TextBox1)

Me.Controls.Add(Me.Button1)

Me.m?=?New?ContextMenuStrip(Me.components)

Me.m1.Text?=?"菜單項(xiàng)1"?????

'設(shè)置并添加相關(guān)控件，(窗體)Netin?初始化。

End?Sub

Private?Sub?Form_Load(sender?As?Object,?e?As?EventArgs)?Handles?Me.Load

'加載后顯示窗體Netin。

End?Sub

Public?Sub?ObjClick(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?Button1.Click,Button2.Click,Button3.Click,TextBox1.Click?

MessageBox.Show("你按了鼠標(biāo)")

End?Sub

Public?WithEvents?TextBox1?As?TextBox

Public?WithEvents?Button1?As?Button

Public?WithEvents?Button2?As?Button

Public?WithEvents?Button3?As?Button

Friend?WithEvents?m?As?ContextMenuStrip

Friend?WithEvents?m1?As?ToolStripMenuItem

End?Class

Class?MainWindow

Netin.Show()

Netin.Button2.Text?=?"Main"

……

求大神指點(diǎn) vb.net 用代碼添加的數(shù)組圖片框控件.怎么添加單擊控件事件呢? 單擊放大在單擊就還原

.....

Px?+=?0

Py?+=?20

AddHandler?pic(i).Click,?AddressOf?Pic_Click?'添加這一句，綁定單擊圖片框事件

Next

FlowLayoutPanel1.Controls.AddRange(pic)

End?Sub

Dim?l?As?Point,?s?As?Size,?f?As?Boolean

Private?Sub?Pic_Click(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)

Dim?pic?As?PictureBox?=?CType(sender,?PictureBox)

If?f?Then

pic.Location?=?l

pic.Size?=?s

f?=?False

Else

l?=?pic.Location

s?=?pic.Size

pic.BringToFront()

pic.Location?=?FlowLayoutPanel1.Location

pic.Size?=?FlowLayoutPanel1.Size

f?=?True

End?If

End?Sub

vb.net中定義控件數(shù)組，控件數(shù)組中加入多個(gè)按鈕。怎么能在控件數(shù)組事件響應(yīng)對(duì)應(yīng)按鈕的事件，代碼部分：

Dim bt As New ArrayList

bt.Add(Me.Button5)

bt.Add(Me.Button6)

bt.Add(Me.Button7)

上面這段代碼本人表示不懂，故沒(méi)有使用。下面的代碼在VS2015中運(yùn)行通過(guò)：

Private Sub btClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click, Button6.Click, Button7.Click

Select Case CType(sender, Button).Name

Case "Button5"

MessageBox.Show("你點(diǎn)擊了 Button5 按鈕")

Case "Button6"

MessageBox.Show("你點(diǎn)擊了 Button6 按鈕")

Case "Button7"

MessageBox.Show("你點(diǎn)擊了 Button7 按鈕")

End Select

End Sub