?? record.cls
字號:
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
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -