VB.NET中怎么實(shí)現(xiàn)事件接收功能

本篇文章給大家分享的是有關(guān)VB.NET中怎么實(shí)現(xiàn)事件接收功能，小編覺(jué)得挺實(shí)用的，因此分享給大家學(xué)習(xí)，希望大家閱讀完這篇文章后可以有所收獲，話不多說(shuō)，跟著小編一起來(lái)看看吧。

為了訪問(wèn)觸發(fā)VB.NET事件的類，我們必須給EventSource工程增加一個(gè)引用，具體操作如下：選擇菜單項(xiàng)Project（工程）->Add Reference（增加引用）。之后，我們可以增加一個(gè)按鈕到窗體上，并且打開窗體的代碼窗口，再引入以下的遠(yuǎn)程名空間：

Imports System.ComponentModel  Imports System.Drawing  Imports System.WinForms   Imports EventSource

在窗體A中，我們可以使用WithEvents關(guān)鍵字來(lái)定義遠(yuǎn)程類。

Public Class FormA  Inherits System.WinForms.Form  Private WithEvents objRemote As RemoteClass

當(dāng)objRemote項(xiàng)在左上角的類名字下拉表中被選擇的時(shí)候，我們可以在代碼窗口右上角的方法名字下拉列表中看到事件的列表。當(dāng)我們選擇了這個(gè)選項(xiàng)，以下的代碼就將被創(chuàng)建：

Public Sub objRemote_RemoteEvent() Handles objRemote.RemoteEvent  End Sub

不幸的是，這些代碼是錯(cuò)誤的，因?yàn)樗鼪](méi)有提供我們所傳遞的參數(shù)。為了解決這個(gè)問(wèn)題我們只需要增加參數(shù)到聲明中去即可：

Public Sub objRemote_RemoteEvent(ByVal Data As String) _  Handles objRemote.RemoteEvent  Messagebox.Show(Data)   End Sub

我們還需要增加代碼來(lái)在對(duì)話框中顯示結(jié)果。具體做法為：增加一個(gè)按鈕到窗體中去，并為按鈕增加以下的代碼：

Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs)  objRemote = New RemoteClass()  objRemote.DoSomething()  End Sub

以上就是VB.NET中怎么實(shí)現(xiàn)事件接收功能，小編相信有部分知識(shí)點(diǎn)可能是我們?nèi)粘９ぷ鲿?huì)見(jiàn)到或用到的。希望你能通過(guò)這篇文章學(xué)到更多知識(shí)。更多詳情敬請(qǐng)關(guān)注億速云行業(yè)資訊頻道。