如何在 vb.net 為動態(tài)生成的控件添加事件并傳遞數(shù)據(jù)

'把圖片的聲明放在外面，類里面過程外面，而且要用As，不然等會兒沒法用

創(chuàng)新互聯(lián)建站專注于企業(yè)全網(wǎng)整合營銷推廣、網(wǎng)站重做改版、棗強網(wǎng)站定制設計、自適應品牌網(wǎng)站建設、H5建站、成都做商城網(wǎng)站、集團公司官網(wǎng)建設、外貿(mào)營銷網(wǎng)站建設、高端網(wǎng)站制作、響應式網(wǎng)頁設計等建站業(yè)務，價格優(yōu)惠性價比高，為棗強等各大城市提供網(wǎng)站開發(fā)制作服務。

Dim myPicture As New System.Windows.Forms.PictureBox()

'動態(tài)生成的控件，加一行

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

Me.Panel3.Controls.Add(myPicture)

myPicture.Size =New System.Drawing.Size(115, 160)

myPicture.TabStop =False

myPicture.Name ="p"

myPicture.Cursor = Cursors.Hand

AddHandler myPicture.Click, AddressOf mypic_Click '添加事件

AddHandler returnid, AddressOf idReturned '綁定事件和過程

End Sub

'再來個事件，放在聲明的地方，就是類里面、過程外面

Private Event returnid(ByVal id As String) '這個事件可以傳遞值哦~

'普通的單擊事件

Private Sub mypic_Click()

RaiseEvent returnid(myPicture.Name)

End Sub

'會傳值的事件過程

Private Sub idReturned(ByVal id As String)

Dim bookInfo As New BookInfo

bookInfo.Show()

Me.Parent.Enabled = False

'用id變量做點什么吧

End Sub

如果要改事件的簽名（參數(shù)一類的）的話，得重寫控件。你可以這樣自己弄一個事件。

VB.net中怎么調用控件的事件

軟糖來回答羅。

“調用事件”有歧義，你的意思是不是下面兩種：

調用事件處理方法

直接調用對象名.方法名

'例如有這樣一個按鈕點擊事件處理程序

Private?Sub?Button1_Click(sender?As?Object,?e?As?EventArgs)?Handles?Button1.Click

秒表.Start()

End?Sub

'調用它直接用

Button1_Click(me,?new?EventArgs())

引發(fā)事件

Button1.Click.Invoke(me,?new?EventArgs())

另外?RaiseEvent 也可以引發(fā)事件，但不能使用 RaiseEvent?來引發(fā)派生窗體的控件事件，只有自己定義的類的事件才能用它引發(fā)。

如滿意，請采納，謝謝。

在VB.net里定義的控件數(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.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?=?"菜單項1"?????

'設置并添加相關控件，(窗體)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("你按了鼠標")

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.net 如何傳遞事件到函數(shù)，并且函數(shù) 執(zhí)行那個事件

上委托啊，單或者多播任選。

"線程來操作 結束后 響應事件"

直接用線程回調就行了

VB.NET的Form的所有事件

名稱

說明

Activated

當使用代碼激活或用戶激活窗體時發(fā)生。

AutoSizeChanged

當?AutoSize?屬性更改時發(fā)生。

AutoValidateChanged

當?AutoValidate?屬性更改時發(fā)生。

BackColorChanged

當?BackColor?屬性的值更改時發(fā)生。（從?Control?繼承。）

BackgroundImageChanged

當?BackgroundImage?屬性的值更改時發(fā)生。（從?Control?繼承。）

BackgroundImageLayoutChanged

當?BackgroundImageLayout?屬性更改時發(fā)生。（從?Control?繼承。）

BindingContextChanged

當?BindingContext?屬性的值更改時發(fā)生。（從?Control?繼承。）

CausesValidationChanged

當?CausesValidation?屬性的值更改時發(fā)生。（從?Control?繼承。）

ChangeUICues

焦點或鍵盤用戶界面 (UI) 提示更改時發(fā)生。（從?Control?繼承。）

Click

在單擊控件時發(fā)生。（從?Control?繼承。）

ClientSizeChanged

當?ClientSize?屬性的值更改時發(fā)生。（從?Control?繼承。）

Closed

關閉窗體時發(fā)生。

Closing

關閉窗體時發(fā)生。

ContextMenuChanged

當?ContextMenu?屬性的值更改時發(fā)生。（從?Control?繼承。）

ContextMenuStripChanged

當?ContextMenuStrip?屬性的值更改時發(fā)生。（從?Control?繼承。）

ControlAdded

在將新控件添加到?Control.ControlCollection?時發(fā)生。（從?Control?繼承。）

ControlRemoved

在從?Control.ControlCollection?移除控件時發(fā)生。（從?Control?繼承。）

CursorChanged

當?Cursor?屬性的值更改時發(fā)生。（從?Control?繼承。）

Deactivate

當窗體失去焦點并不再是活動窗體時發(fā)生。

Disposed

當通過調用?Dispose?方法釋放組件時發(fā)生。（從?Component?繼承。）

DockChanged

當?Dock?屬性的值更改時發(fā)生。（從?Control?繼承。）

DoubleClick

在雙擊控件時發(fā)生。（從?Control?繼承。）

DragDrop

拖放操作完成時發(fā)生。（從?Control?繼承。）

DragEnter

在將對象拖入控件的邊界時發(fā)生。（從?Control?繼承。）

DragLeave

將對象拖出控件的邊界時發(fā)生。（從?Control?繼承。）

DragOver

在將對象拖到控件的邊界上發(fā)生。（從?Control?繼承。）

EnabledChanged

在?Enabled?屬性值更改后發(fā)生。（從?Control?繼承。）

Enter

進入控件時發(fā)生。（從?Control?繼承。）

FontChanged

在?Font?屬性值更改時發(fā)生。（從?Control?繼承。）

ForeColorChanged

在?ForeColor?屬性值更改時發(fā)生。（從?Control?繼承。）

FormClosed

關閉窗體后發(fā)生。

FormClosing

關閉窗體前發(fā)生。

GiveFeedback

在執(zhí)行拖動操作期間發(fā)生。（從?Control?繼承。）

GotFocus

在控件接收焦點時發(fā)生。（從?Control?繼承。）

HandleCreated

在為控件創(chuàng)建句柄時發(fā)生。（從?Control?繼承。）

HandleDestroyed

在控件的句柄處于銷毀過程中時發(fā)生。（從?Control?繼承。）

HelpButtonClicked

單擊“幫助”按鈕時發(fā)生。

HelpRequested

用戶請求控件幫助時發(fā)生。（從?Control?繼承。）

ImeModeChanged

在?ImeMode?屬性更改后發(fā)生。（從?Control?繼承。）

InputLanguageChanged

更改窗體的輸入語言后發(fā)生。

InputLanguageChanging

當用戶嘗試更改窗體的輸入語言時發(fā)生。

Invalidated

控件的顯示要求重新繪制時發(fā)生。（從?Control?繼承。）

KeyDown

在控件有焦點的情況下按下鍵時發(fā)生。（從?Control?繼承。）

KeyPress

在控件有焦點的情況下字符、空格或退格鍵時發(fā)生。（從?Control?繼承。）

KeyUp

在控件有焦點的情況下釋放鍵時發(fā)生。（從?Control?繼承。）

Layout

在控件應重新定位其子控件時發(fā)生。（從?Control?繼承。）

Leave

在輸入焦點離開控件時發(fā)生。（從?Control?繼承。）

Load

在第一次顯示窗體前發(fā)生。

LocationChanged

在?Location?屬性值更改后發(fā)生。（從?Control?繼承。）

LostFocus

在控件失去焦點時發(fā)生。（從?Control?繼承。）

MarginChanged

當?Margin?屬性更改時發(fā)生。

MaximizedBoundsChanged

在?MaximizedBounds?屬性的值更改后發(fā)生。

MaximumSizeChanged

在?MaximumSize?屬性的值更改后發(fā)生。

MdiChildActivate

在多文檔界面 (MDI) 應用程序內激活或關閉 MDI 子窗體時發(fā)生。

MenuComplete

當窗體菜單失去焦點時發(fā)生。

MenuStart

當窗體菜單接收焦點時發(fā)生。

MinimumSizeChanged

在?MinimumSize?屬性的值更改后發(fā)生。

MouseCaptureChanged

當控件失去鼠標捕獲時發(fā)生。（從?Control?繼承。）

MouseClick

用鼠標單擊控件時發(fā)生。（從?Control?繼承。）

MouseDoubleClick

用鼠標雙擊控件時發(fā)生。（從?Control?繼承。）

MouseDown

當鼠標指針位于控件上并按下鼠標鍵時發(fā)生。（從?Control?繼承。）

MouseEnter

在鼠標指針進入控件時發(fā)生。（從?Control?繼承。）

MouseHover

在鼠標指針停放在控件上時發(fā)生。（從?Control?繼承。）

MouseLeave

在鼠標指針離開控件時發(fā)生。（從?Control?繼承。）

MouseMove

在鼠標指針移到控件上時發(fā)生。（從?Control?繼承。）

MouseUp

在鼠標指針在控件上并釋放鼠標鍵時發(fā)生。（從?Control?繼承。）

MouseWheel

在控件有焦點且鼠標輪移動時發(fā)生。（從?Control?繼承。）

Move

在移動控件時發(fā)生。（從?Control?繼承。）

PaddingChanged

在控件空白區(qū)更改時發(fā)生。（從?Control?繼承。）

Paint

在重繪控件時發(fā)生。（從?Control?繼承。）

ParentChanged

在?Parent?屬性值更改時發(fā)生。（從?Control?繼承。）

PreviewKeyDown

在焦點位于此控件上的情況下，當有按鍵動作時發(fā)生（在?KeyDown?事件之前發(fā)生）。（從Control?繼承。）

QueryAccessibilityHelp

在?AccessibleObject?為輔助功能應用程序提供幫助時發(fā)生。（從?Control?繼承。）

QueryContinueDrag

在拖放操作期間發(fā)生，并且允許拖動源確定是否應取消拖放操作。（從?Control?繼承。）

RegionChanged

當?Region?屬性的值更改時發(fā)生。（從?Control?繼承。）

Resize

在調整控件大小時發(fā)生。（從?Control?繼承。）

ResizeBegin

窗體進入大小調整模式時發(fā)生。

ResizeEnd

窗體退出大小調整模式時發(fā)生。

RightToLeftChanged

在?RightToLeft?屬性值更改時發(fā)生。（從?Control?繼承。）

RightToLeftLayoutChanged

更改?RightToLeftLayout?屬性值之后發(fā)生。

Scroll

用戶或代碼滾動工作區(qū)時發(fā)生。（從?ScrollableControl?繼承。）

Shown

只要窗體是首次顯示就發(fā)生。

SizeChanged

在?Size?屬性值更改時發(fā)生。（從?Control?繼承。）

StyleChanged

在控件樣式更改時發(fā)生。（從?Control?繼承。）

SystemColorsChanged

系統(tǒng)顏色更改時發(fā)生。（從?Control?繼承。）

TabIndexChanged

此 API 支持 產(chǎn)品 基礎結構，不能在代碼中直接使用。?當?TabIndex?屬性的值更改時發(fā)生。

TabStopChanged

當?TabStop?屬性更改時發(fā)生。

TextChanged

在?Text?屬性值更改時發(fā)生。（從?Control?繼承。）

Validated

在控件完成驗證時發(fā)生。（從?Control?繼承。）

Validating

在控件驗證時發(fā)生。（從?Control?繼承。）

VisibleChanged

在?Visible?屬性值更改時發(fā)生。（從?Control?繼承。）

在VB.net中，怎么在類中添加事件

首先： textbox里沒有顯示，是因為SerialPort1和TextBox2不是同一線程創(chuàng)建的，需要跨線程操作。需要用到委托，這樣才能顯示出來。 其次： 我覺得用串口的接收數(shù)據(jù)事件更好一些。

當前名稱：關于vb.net指派事件的信息
分享地址：http://chinadenli.net/article48/hcpjhp.html

成都網(wǎng)站建設公司_創(chuàng)新互聯(lián)，為您提供定制開發(fā)、面包屑導航、企業(yè)建站、全網(wǎng)營銷推廣、微信小程序、軟件開發(fā)

廣告

聲明：本網(wǎng)站發(fā)布的內容（圖片、視頻和文字）以用戶投稿、用戶轉載內容為主，如果涉及侵權請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場，如需處理請聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內容未經(jīng)允許不得轉載，或轉載時需注明來源： 創(chuàng)新互聯(lián)