devicestatechangedeventargs.vb

来自「清华大学出版社出版的 移动应用开发宝典 张大威（2008）的附书源代码」· VB 代码 · 共 24 行

Namespace Microsoft.WindowsMobile.Samples.Location

    Public Class DeviceStateChangedEventArgs
        Inherits EventArgs

        Private m_deviceState As GpsDeviceState


        Public Sub New(ByVal deviceState As GpsDeviceState)
            m_deviceState = deviceState
        End Sub

        Public ReadOnly Property DeviceState() As GpsDeviceState
            Get
                Return m_deviceState
            End Get
        End Property

    End Class


    Public Delegate Sub DeviceStateChangedEventHandler(ByVal sender As Object, ByVal args As DeviceStateChangedEventArgs)

End Namespace