record.cls

全球定位系统GPS_卫星定位_VB源码+使用说明

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
END
Attribute VB_Name = "CRecord"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Public nID As Integer
Public dTime As Date
Public bAlert As Boolean
Public fLongitude As Double
Public fLatitude As Double
Public fSpeed As Double
Public fDirection As Double

Public Sub CopyRecord(ByVal oRecord As CRecord)
    With oRecord
        nID = .nID
        fLongitude = .fLongitude
        fLatitude = .fLatitude
        bAlert = .bAlert
        dTime = .dTime
        fSpeed = .fSpeed
        fDirection = .fDirection
    End With
End Sub