最近2018中文字幕在日韩欧美国产成人片_国产日韩精品一区二区在线_在线观看成年美女黄网色视频_国产精品一区三区五区_国产精彩刺激乱对白_看黄色黄大色黄片免费_人人超碰自拍cao_国产高清av在线_亚洲精品电影av_日韩美女尤物视频网站

VB.NET事件通道的實現(xiàn)，可以通過多個類的操作來進(jìn)行實現(xiàn)。對于初學(xué)者來說，這一技巧的應(yīng)用往往會給他們在實際應(yīng)用中帶來一定的麻煩。下面就為大家詳細(xì)解讀一下具體的操作步驟，以方便大家參考學(xué)習(xí)。

成都創(chuàng)新互聯(lián)是一家集網(wǎng)站建設(shè),三門峽企業(yè)網(wǎng)站建設(shè),三門峽品牌網(wǎng)站建設(shè),網(wǎng)站定制,三門峽網(wǎng)站建設(shè)報價,網(wǎng)絡(luò)營銷,網(wǎng)絡(luò)優(yōu)化,三門峽網(wǎng)站推廣為一體的創(chuàng)新建站企業(yè)，幫助傳統(tǒng)企業(yè)提升企業(yè)形象加強企業(yè)競爭力?？沙浞譂M足這一群體相比中小企業(yè)更為豐富、高端、多元的互聯(lián)網(wǎng)需求。同時我們時刻保持專業(yè)、時尚、前沿，時刻以成就客戶成長自我，堅持不斷學(xué)習(xí)、思考、沉淀、凈化自己，讓我們?yōu)楦嗟钠髽I(yè)打造出實用型網(wǎng)站。

C#代碼示例如下:

 
 
 

  
  
  
public delegate void showMsg    
  
  
  
EventHandler(string msg);       
  
  
  
class msg       
  
  
  
{       
  
  
  
public event showMsgEvent  
Handler showMsgEvent;     
public string execMsg(string msg)       
  
  
  
{       
  
  
  
if (showMsgEvent != null)       
  
  
  
{       
  
  
  
showMsgEvent(msg + "," +   
DateTime.Now.ToString());       
  
  
  
}       
  
  
  
return string.Empty;       
  
  
  
}       
  
  
  
}       
  
  
  
===調(diào)用===       
  
  
  
int i = 3;       
  
  
  
msg[] myMsg;       
  
  
  
private void button2_Click  
(object sender, EventArgs e)       
  
  
  
{       
  
  
  
myMsg = new msg[i];       
  
  
  
for(int j=0;j
  
  
  
{       
  
  
  
myMsg[j]=new msg();       
  
  
  
myMsg[j].showMsgEvent +=new   
showMsgEventHandler(Form3_  
showMsgEvent);       
  
  
  
}       
  
  
  
}       
  
  
  
void Form3_showMsgEvent  (string msg)       
  
  
  
{       
  
  
  
MessageBox.Show(msg);       
  
  
  
}       
  
  
  
private void button3_Click  
(object sender, EventArgs e)       
  
  
  
{       
  
  
  
for (int j = 0; j < i; j++)       
  
  
  
{       
  
  
  
myMsg[j].execMsg("good "   
+ j.ToString());       
  
  
  
}       
  
  
  
}   
 
 
 

轉(zhuǎn)換后的VB.NET事件通道代碼:

 
 
 

  
  
  
Delegate Sub showMsgEventHandler
()Sub showMsgEventHandler
(ByVal msg As String)  
  
  
  
Class msgClass msg  
  
  
  
Public name As String  
  
  
  
Event msgEvent As showMsg
EventHandler  
  
  
  
Public Sub showMsg()Sub showMsg
(ByVal msg As String)  
  
  
  
MsgBox(msg + DateTime.Now.
ToString() + " ," + name)  
  
  
  
End Sub  
  
  
  
End Class===調(diào)用===  
  
  
  
Dim i As Integer = 0 
  
  
  
Dim myContain As New List(Of msg)  
  
  
  
Private Sub Button2_Click(
)Sub Button2_Click(ByVal sender 
As System.Object, ByVal e As 
System.EventArgs) Handles Button2.Click  
  
  
  
For i = 0 To 3 Step 1  
  
  
  
Dim myMsg As New msg  
  
  
  
myMsg.name = "name" & i.ToString()  
  
  
  
myContain.Add(myMsg)  
  
  
  
AddHandler myMsg.msgEvent, 
New showMsgEventHandler(AddressOf 
responseMsg)  
  
  
  
Next i  
  
  
  
End Sub  
  
  
  
Private Sub responseMsg()Sub 
responseMsg(ByVal msg As String)  
  
  
  
MsgBox(msg)  
  
  
  
End Sub  
  
  
  
Private Sub Form1_Load()Sub Form1_Load
(ByVal sender As System.Object, ByVal 
e As System.EventArgs) Handles MyBase.Load  
  
  
  
End Sub  
  
  
  
Private Sub Button3_Click()Sub 
Button3_Click(ByVal sender As 
System.Object, ByVal e As System.
EventArgs) Handles Button3.Click  
  
  
  
For i = 0 To 3 Step 1  
  
  
  
Dim myMsg As New msg  
  
  
  
myMsg = myContain.Item(i)  
  
  
  
myMsg.showMsg("good ")  
  
  
  
Next i  
  
  
  
End Sub 
 
 
 

VB.NET事件通道相關(guān)共用方法就為大家介紹到這里。

【編輯推薦】

1. VB.NET壓縮ZIP文件實際方式解析
2. 徹底解決VB.NET窗體繼承相關(guān)問題
3. VB.NET使用MS Access技術(shù)指導(dǎo)
4. VB.NET獲取硬盤信息操作方式總結(jié)概覽
5. VB.NET序列化實現(xiàn)方式簡單介紹

本文題目：VB.NET事件通道使用技巧須知
瀏覽地址：http://www.fisionsoft.com.cn/article/dpesoij.html