Public Class UDPEventArgs Inherits EventArgs Public ReceivedBytes() As Byte End Class Public Class EntryPoint WithEvents Shared svr As udps Public Shared Sub Main() svr=New udps() AddHandler svr.ReceivedUDPPacket,Addressof UDPReceived svr.Listen() End Sub Public Shared Sub UDPReceived(sender As Object,e As UDPEventArgs) Dim rs As String=Encoding.UTF8.GetString(e.ReceivedBytes,0,e.ReceivedBytes.Length) Console.WriteLine("event発生->{0}",rs) End Sub End Class
