'把圖片的聲明放在外面,類里面過程外面,而且要用As,不然等會(huì)兒沒法用
創(chuàng)新互聯(lián)建站專注于企業(yè)全網(wǎng)整合營銷推廣、網(wǎng)站重做改版、棗強(qiáng)網(wǎng)站定制設(shè)計(jì)、自適應(yīng)品牌網(wǎng)站建設(shè)、H5建站、成都做商城網(wǎng)站、集團(tuán)公司官網(wǎng)建設(shè)、外貿(mào)營銷網(wǎng)站建設(shè)、高端網(wǎng)站制作、響應(yīng)式網(wǎng)頁設(shè)計(jì)等建站業(yè)務(wù),價(jià)格優(yōu)惠性價(jià)比高,為棗強(qiáng)等各大城市提供網(wǎng)站開發(fā)制作服務(wù)。
Dim myPicture As New System.Windows.Forms.PictureBox()
'動(dòng)態(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
'再來個(gè)事件,放在聲明的地方,就是類里面、過程外面
Private Event returnid(ByVal id As String) '這個(gè)事件可以傳遞值哦~
'普通的單擊事件
Private Sub mypic_Click()
RaiseEvent returnid(myPicture.Name)
End Sub
'會(huì)傳值的事件過程
Private Sub idReturned(ByVal id As String)
Dim bookInfo As New BookInfo
bookInfo.Show()
Me.Parent.Enabled = False
'用id變量做點(diǎn)什么吧
End Sub
如果要改事件的簽名(參數(shù)一類的)的話,得重寫控件。你可以這樣自己弄一個(gè)事件。
軟糖來回答羅。
“調(diào)用事件”有歧義,你的意思是不是下面兩種:
調(diào)用事件處理方法
直接調(diào)用對象名.方法名
'例如有這樣一個(gè)按鈕點(diǎn)擊事件處理程序
Private?Sub?Button1_Click(sender?As?Object,?e?As?EventArgs)?Handles?Button1.Click
秒表.Start()
End?Sub
'調(diào)用它直接用
Button1_Click(me,?new?EventArgs())
引發(fā)事件
Button1.Click.Invoke(me,?new?EventArgs())
另外?RaiseEvent 也可以引發(fā)事件,但不能使用 RaiseEvent?來引發(fā)派生窗體的控件事件,只有自己定義的類的事件才能用它引發(fā)。
如滿意,請采納,謝謝。
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?=?"菜單項(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"
……
上委托啊,單或者多播任選。
"線程來操作 結(jié)束后 響應(yīng)事件"
直接用線程回調(diào)就行了
名稱
說明
Activated
當(dāng)使用代碼激活或用戶激活窗體時(shí)發(fā)生。
AutoSizeChanged
當(dāng)?AutoSize?屬性更改時(shí)發(fā)生。
AutoValidateChanged
當(dāng)?AutoValidate?屬性更改時(shí)發(fā)生。
BackColorChanged
當(dāng)?BackColor?屬性的值更改時(shí)發(fā)生。(從?Control?繼承。)
BackgroundImageChanged
當(dāng)?BackgroundImage?屬性的值更改時(shí)發(fā)生。(從?Control?繼承。)
BackgroundImageLayoutChanged
當(dāng)?BackgroundImageLayout?屬性更改時(shí)發(fā)生。(從?Control?繼承。)
BindingContextChanged
當(dāng)?BindingContext?屬性的值更改時(shí)發(fā)生。(從?Control?繼承。)
CausesValidationChanged
當(dāng)?CausesValidation?屬性的值更改時(shí)發(fā)生。(從?Control?繼承。)
ChangeUICues
焦點(diǎn)或鍵盤用戶界面 (UI) 提示更改時(shí)發(fā)生。(從?Control?繼承。)
Click
在單擊控件時(shí)發(fā)生。(從?Control?繼承。)
ClientSizeChanged
當(dāng)?ClientSize?屬性的值更改時(shí)發(fā)生。(從?Control?繼承。)
Closed
關(guān)閉窗體時(shí)發(fā)生。
Closing
關(guān)閉窗體時(shí)發(fā)生。
ContextMenuChanged
當(dāng)?ContextMenu?屬性的值更改時(shí)發(fā)生。(從?Control?繼承。)
ContextMenuStripChanged
當(dāng)?ContextMenuStrip?屬性的值更改時(shí)發(fā)生。(從?Control?繼承。)
ControlAdded
在將新控件添加到?Control.ControlCollection?時(shí)發(fā)生。(從?Control?繼承。)
ControlRemoved
在從?Control.ControlCollection?移除控件時(shí)發(fā)生。(從?Control?繼承。)
CursorChanged
當(dāng)?Cursor?屬性的值更改時(shí)發(fā)生。(從?Control?繼承。)
Deactivate
當(dāng)窗體失去焦點(diǎn)并不再是活動(dòng)窗體時(shí)發(fā)生。
Disposed
當(dāng)通過調(diào)用?Dispose?方法釋放組件時(shí)發(fā)生。(從?Component?繼承。)
DockChanged
當(dāng)?Dock?屬性的值更改時(shí)發(fā)生。(從?Control?繼承。)
DoubleClick
在雙擊控件時(shí)發(fā)生。(從?Control?繼承。)
DragDrop
拖放操作完成時(shí)發(fā)生。(從?Control?繼承。)
DragEnter
在將對象拖入控件的邊界時(shí)發(fā)生。(從?Control?繼承。)
DragLeave
將對象拖出控件的邊界時(shí)發(fā)生。(從?Control?繼承。)
DragOver
在將對象拖到控件的邊界上發(fā)生。(從?Control?繼承。)
EnabledChanged
在?Enabled?屬性值更改后發(fā)生。(從?Control?繼承。)
Enter
進(jìn)入控件時(shí)發(fā)生。(從?Control?繼承。)
FontChanged
在?Font?屬性值更改時(shí)發(fā)生。(從?Control?繼承。)
ForeColorChanged
在?ForeColor?屬性值更改時(shí)發(fā)生。(從?Control?繼承。)
FormClosed
關(guān)閉窗體后發(fā)生。
FormClosing
關(guān)閉窗體前發(fā)生。
GiveFeedback
在執(zhí)行拖動(dòng)操作期間發(fā)生。(從?Control?繼承。)
GotFocus
在控件接收焦點(diǎn)時(shí)發(fā)生。(從?Control?繼承。)
HandleCreated
在為控件創(chuàng)建句柄時(shí)發(fā)生。(從?Control?繼承。)
HandleDestroyed
在控件的句柄處于銷毀過程中時(shí)發(fā)生。(從?Control?繼承。)
HelpButtonClicked
單擊“幫助”按鈕時(shí)發(fā)生。
HelpRequested
用戶請求控件幫助時(shí)發(fā)生。(從?Control?繼承。)
ImeModeChanged
在?ImeMode?屬性更改后發(fā)生。(從?Control?繼承。)
InputLanguageChanged
更改窗體的輸入語言后發(fā)生。
InputLanguageChanging
當(dāng)用戶嘗試更改窗體的輸入語言時(shí)發(fā)生。
Invalidated
控件的顯示要求重新繪制時(shí)發(fā)生。(從?Control?繼承。)
KeyDown
在控件有焦點(diǎn)的情況下按下鍵時(shí)發(fā)生。(從?Control?繼承。)
KeyPress
在控件有焦點(diǎn)的情況下字符、空格或退格鍵時(shí)發(fā)生。(從?Control?繼承。)
KeyUp
在控件有焦點(diǎn)的情況下釋放鍵時(shí)發(fā)生。(從?Control?繼承。)
Layout
在控件應(yīng)重新定位其子控件時(shí)發(fā)生。(從?Control?繼承。)
Leave
在輸入焦點(diǎn)離開控件時(shí)發(fā)生。(從?Control?繼承。)
Load
在第一次顯示窗體前發(fā)生。
LocationChanged
在?Location?屬性值更改后發(fā)生。(從?Control?繼承。)
LostFocus
在控件失去焦點(diǎn)時(shí)發(fā)生。(從?Control?繼承。)
MarginChanged
當(dāng)?Margin?屬性更改時(shí)發(fā)生。
MaximizedBoundsChanged
在?MaximizedBounds?屬性的值更改后發(fā)生。
MaximumSizeChanged
在?MaximumSize?屬性的值更改后發(fā)生。
MdiChildActivate
在多文檔界面 (MDI) 應(yīng)用程序內(nèi)激活或關(guān)閉 MDI 子窗體時(shí)發(fā)生。
MenuComplete
當(dāng)窗體菜單失去焦點(diǎn)時(shí)發(fā)生。
MenuStart
當(dāng)窗體菜單接收焦點(diǎn)時(shí)發(fā)生。
MinimumSizeChanged
在?MinimumSize?屬性的值更改后發(fā)生。
MouseCaptureChanged
當(dāng)控件失去鼠標(biāo)捕獲時(shí)發(fā)生。(從?Control?繼承。)
MouseClick
用鼠標(biāo)單擊控件時(shí)發(fā)生。(從?Control?繼承。)
MouseDoubleClick
用鼠標(biāo)雙擊控件時(shí)發(fā)生。(從?Control?繼承。)
MouseDown
當(dāng)鼠標(biāo)指針位于控件上并按下鼠標(biāo)鍵時(shí)發(fā)生。(從?Control?繼承。)
MouseEnter
在鼠標(biāo)指針進(jìn)入控件時(shí)發(fā)生。(從?Control?繼承。)
MouseHover
在鼠標(biāo)指針停放在控件上時(shí)發(fā)生。(從?Control?繼承。)
MouseLeave
在鼠標(biāo)指針離開控件時(shí)發(fā)生。(從?Control?繼承。)
MouseMove
在鼠標(biāo)指針移到控件上時(shí)發(fā)生。(從?Control?繼承。)
MouseUp
在鼠標(biāo)指針在控件上并釋放鼠標(biāo)鍵時(shí)發(fā)生。(從?Control?繼承。)
MouseWheel
在控件有焦點(diǎn)且鼠標(biāo)輪移動(dòng)時(shí)發(fā)生。(從?Control?繼承。)
Move
在移動(dòng)控件時(shí)發(fā)生。(從?Control?繼承。)
PaddingChanged
在控件空白區(qū)更改時(shí)發(fā)生。(從?Control?繼承。)
Paint
在重繪控件時(shí)發(fā)生。(從?Control?繼承。)
ParentChanged
在?Parent?屬性值更改時(shí)發(fā)生。(從?Control?繼承。)
PreviewKeyDown
在焦點(diǎn)位于此控件上的情況下,當(dāng)有按鍵動(dòng)作時(shí)發(fā)生(在?KeyDown?事件之前發(fā)生)。(從Control?繼承。)
QueryAccessibilityHelp
在?AccessibleObject?為輔助功能應(yīng)用程序提供幫助時(shí)發(fā)生。(從?Control?繼承。)
QueryContinueDrag
在拖放操作期間發(fā)生,并且允許拖動(dòng)源確定是否應(yīng)取消拖放操作。(從?Control?繼承。)
RegionChanged
當(dāng)?Region?屬性的值更改時(shí)發(fā)生。(從?Control?繼承。)
Resize
在調(diào)整控件大小時(shí)發(fā)生。(從?Control?繼承。)
ResizeBegin
窗體進(jìn)入大小調(diào)整模式時(shí)發(fā)生。
ResizeEnd
窗體退出大小調(diào)整模式時(shí)發(fā)生。
RightToLeftChanged
在?RightToLeft?屬性值更改時(shí)發(fā)生。(從?Control?繼承。)
RightToLeftLayoutChanged
更改?RightToLeftLayout?屬性值之后發(fā)生。
Scroll
用戶或代碼滾動(dòng)工作區(qū)時(shí)發(fā)生。(從?ScrollableControl?繼承。)
Shown
只要窗體是首次顯示就發(fā)生。
SizeChanged
在?Size?屬性值更改時(shí)發(fā)生。(從?Control?繼承。)
StyleChanged
在控件樣式更改時(shí)發(fā)生。(從?Control?繼承。)
SystemColorsChanged
系統(tǒng)顏色更改時(shí)發(fā)生。(從?Control?繼承。)
TabIndexChanged
此 API 支持 產(chǎn)品 基礎(chǔ)結(jié)構(gòu),不能在代碼中直接使用。?當(dāng)?TabIndex?屬性的值更改時(shí)發(fā)生。
TabStopChanged
當(dāng)?TabStop?屬性更改時(shí)發(fā)生。
TextChanged
在?Text?屬性值更改時(shí)發(fā)生。(從?Control?繼承。)
Validated
在控件完成驗(yàn)證時(shí)發(fā)生。(從?Control?繼承。)
Validating
在控件驗(yàn)證時(shí)發(fā)生。(從?Control?繼承。)
VisibleChanged
在?Visible?屬性值更改時(shí)發(fā)生。(從?Control?繼承。)
首先: textbox里沒有顯示,是因?yàn)镾erialPort1和TextBox2不是同一線程創(chuàng)建的,需要跨線程操作。需要用到委托,這樣才能顯示出來。 其次: 我覺得用串口的接收數(shù)據(jù)事件更好一些。
當(dāng)前名稱:關(guān)于vb.net指派事件的信息
分享地址:http://www.muchs.cn/article48/hcpjhp.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供定制開發(fā)、面包屑導(dǎo)航、企業(yè)建站、全網(wǎng)營銷推廣、微信小程序、軟件開發(fā)
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請盡快告知,我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場,如需處理請聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時(shí)需注明來源: 創(chuàng)新互聯(lián)