日韩无码专区无码一级三级片|91人人爱网站中日韩无码电影|厨房大战丰满熟妇|AV高清无码在线免费观看|另类AV日韩少妇熟女|中文日本大黄一级黄色片|色情在线视频免费|亚洲成人特黄a片|黄片wwwav色图欧美|欧亚乱色一区二区三区

RELATEED CONSULTING
相關(guān)咨詢
選擇下列產(chǎn)品馬上在線溝通
服務(wù)時(shí)間：8:30-17:00
你可能遇到了下面的問題
關(guān)閉右側(cè)工具欄

新聞中心

這里有您想知道的互聯(lián)網(wǎng)營銷解決方案
VB.NET事件通道使用技巧須知

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

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

C#代碼示例如下:

 
 
 
    
  
  
  
  1. public delegate void showMsg    
    2. 
  
  
  
  2. EventHandler(string msg);       
    3. 
  
  
  
  3. class msg       
    4. 
  
  
  
  4. {       
    5. 
  
  
  
  5. public event showMsgEvent  
    Handler showMsgEvent;     
    public string execMsg(string msg)       
    6. 
  
  
  
  6. {       
    7. 
  
  
  
  7. if (showMsgEvent != null)       
    8. 
  
  
  
  8. {       
    9. 
  
  
  
  9. showMsgEvent(msg + "," +   
    DateTime.Now.ToString());       
    10. 
  
  
  
  10. }       
    11. 
  
  
  
  11. return string.Empty;       
    12. 
  
  
  
  12. }       
    13. 
  
  
  
  13. }       
    14. 
  
  
  
  14. ===調(diào)用===       
    15. 
  
  
  
  15. int i = 3;       
    16. 
  
  
  
  16. msg[] myMsg;       
    17. 
  
  
  
  17. private void button2_Click  
    (object sender, EventArgs e)       
    18. 
  
  
  
  18. {       
    19. 
  
  
  
  19. myMsg = new msg[i];       
    20. 
  
  
  
  20. for(int j=0;j
  
  
  
  21. {       
    22. 
  
  
  
  22. myMsg[j]=new msg();       
    23. 
  
  
  
  23. myMsg[j].showMsgEvent +=new   
    showMsgEventHandler(Form3_  
    showMsgEvent);       
    24. 
  
  
  
  24. }       
    25. 
  
  
  
  25. }       
    26. 
  
  
  
  26. void Form3_showMsgEvent  (string msg)       
    27. 
  
  
  
  27. {       
    28. 
  
  
  
  28. MessageBox.Show(msg);       
    29. 
  
  
  
  29. }       
    30. 
  
  
  
  30. private void button3_Click  
    (object sender, EventArgs e)       
    31. 
  
  
  
  31. {       
    32. 
  
  
  
  32. for (int j = 0; j < i; j++)       
    33. 
  
  
  
  33. {       
    34. 
  
  
  
  34. myMsg[j].execMsg("good "   
    + j.ToString());       
    35. 
  
  
  
  35. }       
    36. 
  
  
  
  36. }   
    37.

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

 
 
 
    
  
  
  
  1. Delegate Sub showMsgEventHandler
    ()Sub showMsgEventHandler
    (ByVal msg As String)  
    2. 
  
  
  
  2. Class msgClass msg  
    3. 
  
  
  
  3. Public name As String  
    4. 
  
  
  
  4. Event msgEvent As showMsg
    EventHandler  
    5. 
  
  
  
  5. Public Sub showMsg()Sub showMsg
    (ByVal msg As String)  
    6. 
  
  
  
  6. MsgBox(msg + DateTime.Now.
    ToString() + " ," + name)  
    7. 
  
  
  
  7. End Sub  
    8. 
  
  
  
  8. End Class===調(diào)用===  
    9. 
  
  
  
  9. Dim i As Integer = 0 
    10. 
  
  
  
  10. Dim myContain As New List(Of msg)  
    11. 
  
  
  
  11. Private Sub Button2_Click(
    )Sub Button2_Click(ByVal sender 
    As System.Object, ByVal e As 
    System.EventArgs) Handles Button2.Click  
    12. 
  
  
  
  12. For i = 0 To 3 Step 1  
    13. 
  
  
  
  13. Dim myMsg As New msg  
    14. 
  
  
  
  14. myMsg.name = "name" & i.ToString()  
    15. 
  
  
  
  15. myContain.Add(myMsg)  
    16. 
  
  
  
  16. AddHandler myMsg.msgEvent, 
    New showMsgEventHandler(AddressOf 
    responseMsg)  
    17. 
  
  
  
  17. Next i  
    18. 
  
  
  
  18. End Sub  
    19. 
  
  
  
  19. Private Sub responseMsg()Sub 
    responseMsg(ByVal msg As String)  
    20. 
  
  
  
  20. MsgBox(msg)  
    21. 
  
  
  
  21. End Sub  
    22. 
  
  
  
  22. Private Sub Form1_Load()Sub Form1_Load
    (ByVal sender As System.Object, ByVal 
    e As System.EventArgs) Handles MyBase.Load  
    23. 
  
  
  
  23. End Sub  
    24. 
  
  
  
  24. Private Sub Button3_Click()Sub 
    Button3_Click(ByVal sender As 
    System.Object, ByVal e As System.
    EventArgs) Handles Button3.Click  
    25. 
  
  
  
  25. For i = 0 To 3 Step 1  
    26. 
  
  
  
  26. Dim myMsg As New msg  
    27. 
  
  
  
  27. myMsg = myContain.Item(i)  
    28. 
  
  
  
  28. myMsg.showMsg("good ")  
    29. 
  
  
  
  29. Next i  
    30. 
  
  
  
  30. End Sub 
    31.

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

【編輯推薦】

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

本文名稱：VB.NET事件通道使用技巧須知
本文來源：http://www.5511xx.com/article/dpesoij.html