datawind.frm

gps全球卫星定位VB源码（部分）请自行准备设备接口

VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Begin VB.Form DataWindow 
   Caption         =   "数据窗口"
   ClientHeight    =   3555
   ClientLeft      =   2745
   ClientTop       =   2190
   ClientWidth     =   6120
   LinkTopic       =   "Form1"
   PaletteMode     =   1  'UseZOrder
   ScaleHeight     =   3555
   ScaleWidth      =   6120
   Begin MSFlexGridLib.MSFlexGrid GridRecieveData 
      Height          =   3135
      Left            =   720
      TabIndex        =   0
      Top             =   240
      Width           =   4455
      _ExtentX        =   7858
      _ExtentY        =   5530
      _Version        =   393216
   End
End
Attribute VB_Name = "DataWindow"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private m_nIndex As Integer

Private Sub ClearGrid()
    Dim i, j As Integer
    For i = 1 To GridRecieveData.Rows - 1
        GridRecieveData.Row = i
        For j = 0 To GridRecieveData.Cols - 1
            GridRecieveData.Col = j
            GridRecieveData.Text = ""
        Next
    Next
    m_nIndex = 1
End Sub

Public Sub ReceiveData(ByVal oRecord As CRecord)
    Dim oTarget As CTarget
    Dim lIndex As Integer
    If m_nIndex = 10 Then
        ClearGrid
    End If
    GridRecieveData.Row = m_nIndex
    GridRecieveData.Col = 0
    GridRecieveData.Text = Format(oRecord.dTime, "AMPM hh:mm:ss")
    GridRecieveData.Col = 1
    lIndex = MDIMainForm.oTargetManager.GetIndexByID(oRecord.nID)
    Set oTarget = MDIMainForm.oTargetManager.GetTargetByIndex(lIndex)
    GridRecieveData.Text = oTarget.GetName
    GridRecieveData.Col = 2
    GridRecieveData.Text = Format(oRecord.fLatitude, "#0.000000")
    GridRecieveData.Col = 3
    GridRecieveData.Text = Format(oRecord.fLongitude, "#0.000000")
    GridRecieveData.Col = 4
    GridRecieveData.Text = oRecord.fSpeed
    GridRecieveData.Col = 5
    GridRecieveData.Text = oRecord.fDirection
    m_nIndex = m_nIndex + 1
End Sub


Private Sub Form_Activate()
    'SetWindowPos Me.hwnd, -1, 0, 0, 0, 0, 3
End Sub

Private Sub Form_Initialize()
    m_nIndex = 1
End Sub

Private Sub Form_Load()
    Dim lRow, lCol As Long
    GridRecieveData.Cols = 6
    GridRecieveData.Rows = 10
    GridRecieveData.FixedCols = 0
    GridRecieveData.FixedRows = 1
    GridRecieveData.ColWidth(0) = 1200
    GridRecieveData.ColWidth(1) = 600
    GridRecieveData.ColWidth(2) = 1300
    GridRecieveData.ColWidth(3) = 1300
    GridRecieveData.ColWidth(4) = 800
    GridRecieveData.ColWidth(5) = 800
    lRow = GridRecieveData.Row
    lCol = GridRecieveData.Col
    GridRecieveData.Row = 0
    GridRecieveData.Col = 0
    GridRecieveData.Text = "时间"
    GridRecieveData.Col = 1
    GridRecieveData.Text = "车辆"
    GridRecieveData.Col = 2
    GridRecieveData.Text = "纬度"
    GridRecieveData.Col = 3
    GridRecieveData.Text = "经度"
    GridRecieveData.Col = 4
    GridRecieveData.Text = "速度"
    GridRecieveData.Col = 5
    GridRecieveData.Text = "方向"
    GridRecieveData.Row = lRow
    GridRecieveData.Col = lCol
End Sub

Private Sub Form_Resize()
On Error GoTo errhandle
    If Me.Width > 6230 Then
        Me.Width = 6230
    End If
    If Me.Height > 2760 Then
        Me.Height = 2760
    End If
    GridRecieveData.left = 0
    GridRecieveData.top = 0
    GridRecieveData.Width = Me.Width - 8 * 15
    GridRecieveData.Height = Me.Height - 28 * 15
errhandle:
End Sub