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

Imports?System.Text

成都創(chuàng)新互聯(lián)公司專注為客戶提供全方位的互聯(lián)網(wǎng)綜合服務(wù)，包含不限于成都做網(wǎng)站、成都網(wǎng)站制作、黃浦網(wǎng)絡(luò)推廣、成都小程序開發(fā)、黃浦網(wǎng)絡(luò)營銷、黃浦企業(yè)策劃、黃浦品牌公關(guān)、搜索引擎seo、人物專訪、企業(yè)宣傳片、企業(yè)代運營等，從售前售中售后，我們都將竭誠為您服務(wù)，您的肯定，是我們最大的嘉獎；成都創(chuàng)新互聯(lián)公司為所有大學(xué)生創(chuàng)業(yè)者提供黃浦建站搭建服務(wù)，24小時服務(wù)熱線：028-86922220，官方網(wǎng)址：www.cdcxhl.com

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點抗 ponents?=?New?ComponentModel.Container()

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

Me.TextBox1?=?New?TextBox(Me點抗 ponents)

Me.Button1?=?New?Button(Me點抗 ponents)

'For?…?Next??

Me.Controls.Add(Me.TextBox1)

Me.Controls.Add(Me.Button1)

Me.m?=?New?ContextMenuStrip(Me點抗 ponents)

Me.m1.Text?=?"菜單項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"

……

vb點虐 自定義事件

變量值的改變本身就是你程序控制的，也就是說它的變化完全是在你掌控中的，做變量值改變的觸發(fā)事件實在沒有價值。

通常編程者關(guān)心的應(yīng)該是用戶操作的控件值發(fā)生變化，但這些控件的事件通常都是定義好的，且已經(jīng)定義的非常全了。

猜測摟主其實是想學(xué)習(xí)自己制作控件，那就高深了，很多底層的事件通常都是從基本控件中獲得的！

vb點虐 定義動態(tài)控件事件

給你個例子就知道了

Public Class Form1

'演示為動態(tài)添加的控件添加事件

Private WithEvents Tb As New TextBox '方法2必須這樣寫

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

' Dim Tb As New TextBox

Tb.Name = "Textbox1"

Tb.Text = "文本框1"

Controls.Add(Tb)

AddHandler Tb.KeyPress, AddressOf XX '方法1，移動鼠標(biāo)觸發(fā)

End Sub

Private Sub XX()

MsgBox("AddHandler方法")

End Sub

Private Sub ShowClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tb.Click '方法2，單擊觸發(fā)

MsgBox("Handles方法，你點擊了" sender.name)

End Sub

End Class

VB.NET 事件的含義

TextBox1_TextChanged() 'TextBox1.text屬性改變時發(fā)生

?Label1_Click() 'Label1被鼠標(biāo)點擊時發(fā)生

?MenuItem1_Click() 'MenuItem1被鼠標(biāo)點擊時發(fā)生

?Label1_MouseDown() '鼠標(biāo)左鍵在Label1上按下時發(fā)生

?Label1_DoubleClick() '有點難我也不太清楚，在MSDN上查了下：

雙擊操作由用戶操作系統(tǒng)的鼠標(biāo)設(shè)置確定。用戶可以設(shè)置兩次單擊鼠標(biāo)按鈕之間的時間以便將這兩次單擊認(rèn)為是雙擊而不是兩次單擊。每當(dāng)雙擊控件時，就會引發(fā) Click 事件。例如，如果您有 Form 的 Click 和 DoubleClick 事件的事件處理程序，則當(dāng)雙擊該窗體并同時調(diào)用這兩個方法時，會引發(fā) Click 和 DoubleClick 事件。如果雙擊一個控件并且該控件不支持 DoubleClick 事件，則 Click 事件可能被引發(fā)兩次。

Label1_MouseUp() '鼠標(biāo)左鍵在Label1上放開時發(fā)生，一般與Label1_MouseDown()搭配使用

?TextBox2_MouseMove() '鼠標(biāo)停留在TextBox2上時發(fā)生

?Form1_load() '加載窗體時發(fā)生

?Form1_click() '點擊窗體時發(fā)生

?Form1_Resize() '窗體調(diào)整大小后發(fā)生

Form1_KeyPress() '當(dāng)窗體有焦點鍵盤有操作時發(fā)生

?Form1_KeyDown() '當(dāng)窗體具有焦點并鍵盤有按鍵按下時發(fā)生

?Form1_KeyUp() '當(dāng)窗體焦點并鍵盤有按鍵放開時發(fā)生