An SNTP Client for C# and VB.NET

Imports System

Namespace SNTP

    ''' <summary>
    ''' Arguments that are passed along with the SNTPClient.QueryServerCompleted event.
    ''' </summary>
    Public Class QueryServerCompletedEventArgs
        Inherits EventArgs

        Private _data As SNTPData
        Private _errorData As ErrorData
        Private _localDateTimeUpdated As Boolean
        Private _succeeded As Boolean

#Region "Constructors"

        Friend Sub New()
            _errorData = New ErrorData()
        End Sub

#End Region

#Region "Properties"

        ''' <summary>
        ''' Gets the data that was returned by the server.
        ''' </summary>
        ''' <returns>The data that was returned by the server.</returns>
        Public Property Data() As SNTPData
            Get
                Return _data
            End Get
            Friend Set(ByVal value As SNTPData)
                _data = value
            End Set
        End Property

        ''' <summary>
        ''' Gets data relating to any error that occurred.
        ''' </summary>
        ''' <returns>Data relating to any error that occurred.</returns>
        Public Property ErrorData() As ErrorData
            Get
                Return _errorData
            End Get
            Friend Set(ByVal value As ErrorData)
                _errorData = value
            End Set
        End Property

        ''' <summary>
        ''' Gets whether the local date and time was updated.
        ''' </summary>
        ''' <returns>Whether the local date and time was updated.</returns>
        Public Property LocalDateTimeUpdated() As Boolean
            Get
                Return _localDateTimeUpdated
            End Get
            Friend Set(ByVal value As Boolean)
                _localDateTimeUpdated = value
            End Set
        End Property

        ''' <summary>
        ''' Gets whether the server query completed successfully.
        ''' NB: It is possible that other errors occurred (not related to the querying of the server) after the query,
        ''' so ErrorData should still be examined regardless of the value of this property.
        ''' </summary>
        ''' <returns>Whether the server query completed successfully.</returns>
        Public Property Succeeded() As Boolean
            Get
                Return _succeeded
            End Get
            Friend Set(ByVal value As Boolean)
                _succeeded = value
            End Set
        End Property

#End Region

    End Class

End Namespace