record.cls

来自「这是一个GPS卫星定位系统源代码！可供参考！」· CLS 代码 · 共 29 行

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