locationchangedeventargs.vb

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

Namespace Microsoft.WindowsMobile.Samples.Location

    Public Class LocationChangedEventArgs
        Inherits EventArgs

        Private m_position As GpsPosition


        Public Sub New(ByVal position As GpsPosition)
            m_position = position
        End Sub

        Public ReadOnly Property Position() As GpsPosition
            Get
                Return m_position
            End Get
        End Property

    End Class


    Public Delegate Sub LocationChangedEventHandler(ByVal sender As Object, ByVal args As LocationChangedEventArgs)

End Namespace