vb點(diǎn)虐 自定義控件的事件問題

題外話,從JAVA轉(zhuǎn)過來的,為什么不用C#,畢竟JAVA和C#接近

公司主營業(yè)務(wù)：成都網(wǎng)站建設(shè)、網(wǎng)站建設(shè)、移動(dòng)網(wǎng)站開發(fā)等業(yè)務(wù)。幫助企業(yè)客戶真正實(shí)現(xiàn)互聯(lián)網(wǎng)宣傳，提高企業(yè)的競爭能力。成都創(chuàng)新互聯(lián)公司是一支青春激揚(yáng)、勤奮敬業(yè)、活力青春激揚(yáng)、勤奮敬業(yè)、活力澎湃、和諧高效的團(tuán)隊(duì)。公司秉承以“開放、自由、嚴(yán)謹(jǐn)、自律”為核心的企業(yè)文化，感謝他們對(duì)我們的高要求，感謝他們從不同領(lǐng)域給我們帶來的挑戰(zhàn)，讓我們激情的團(tuán)隊(duì)有機(jī)會(huì)用頭腦與智慧不斷的給客戶帶來驚喜。成都創(chuàng)新互聯(lián)公司推出賀州免費(fèi)做網(wǎng)站回饋大家。

添加事件處理程序借助設(shè)計(jì)器就可以了.我下面說的是如何用代碼處理

在用戶控件的構(gòu)造函數(shù)Sub New()里添加代碼注冊事件處理函數(shù)

AddHandler ToolStripMenuItem1.Click, AddressOf MyHandler

然后實(shí)現(xiàn)這個(gè)處理函數(shù)

Sub MyHandler(sender As Object, e As EventArgs)

'在這里處理這個(gè)菜單命令

End Sub

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

Imports?System.Text

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

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

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

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

'For?…?Next??

Me.Controls.Add(Me.TextBox1)

Me.Controls.Add(Me.Button1)

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

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"

……

vb點(diǎn)虐 自定義事件

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

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

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