setintervalform.frm

这是一个GPS卫星定位系统源代码！可供参考！

VERSION 5.00
Object = "{FE0065C0-1B7B-11CF-9D53-00AA003C9CB6}#1.1#0"; "COMCT232.OCX"
Begin VB.Form SetIntervalForm 
   Caption         =   "呼叫间隔"
   ClientHeight    =   1380
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4680
   ControlBox      =   0   'False
   BeginProperty Font 
      Name            =   "仿宋_GB2312"
      Size            =   8.25
      Charset         =   134
      Weight          =   400
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   ForeColor       =   &H00FFFFFF&
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   1380
   ScaleWidth      =   4680
   StartUpPosition =   3  '窗口缺省
   Begin ComCtl2.UpDown UpDown1 
      Height          =   375
      Left            =   2040
      TabIndex        =   4
      Top             =   720
      Width           =   240
      _ExtentX        =   476
      _ExtentY        =   661
      _Version        =   327681
      Value           =   3
      BuddyControl    =   "Text1"
      BuddyDispid     =   196611
      OrigLeft        =   2160
      OrigTop         =   720
      OrigRight       =   2400
      OrigBottom      =   1215
      Max             =   300
      Min             =   3
      SyncBuddy       =   -1  'True
      BuddyProperty   =   0
      Enabled         =   -1  'True
   End
   Begin VB.CommandButton Command2 
      Caption         =   "取 消"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   3360
      TabIndex        =   3
      Top             =   840
      Width           =   1095
   End
   Begin VB.CommandButton Command1 
      Caption         =   "确 定"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   3360
      TabIndex        =   2
      Top             =   240
      Width           =   1095
   End
   Begin VB.TextBox Text1 
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   840
      TabIndex        =   0
      Text            =   "Text1"
      Top             =   720
      Width           =   1215
   End
   Begin VB.Label Label1 
      Caption         =   "呼叫间隔：(秒)"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   840
      TabIndex        =   1
      Top             =   240
      Width           =   1935
   End
End
Attribute VB_Name = "SetIntervalForm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private m_Last As Double

Private Sub Command1_Click()
    On Error GoTo errorhandler
    If Val(Text1.Text) < 1 Then
        MsgBox "无效的呼叫间隔", 48, "设置呼叫间隔"
        Text1.Text = ""
        Exit Sub
    Else
        LoopTimes = Val(Trim(Text1.Text))
        Call_Interval = Val(Trim(Text1.Text))
                   'MDIMainForm.oWorkMode.SetInterval Val(Text1.Text) * 1000
        MDIMainForm.StatusBar1.Panels(3) = Text1.Text & "秒"
                   'Temp_HjTime = Val(Text1.Text) * 1000
        Unload SetIntervalForm
        Exit Sub
    End If
errorhandler:
  MsgBox "无效的呼叫间隔", 48, "设置呼叫间隔"
  Text1.Text = ""
  Resume Next
End Sub

Private Sub Command2_Click()
   Unload SetIntervalForm
End Sub

Private Sub Form_Load()
     Text1.Text = 3
     
    'm_Last = MDIMainForm.oWorkMode.GetInterval / 1000
    'Text1.Text = str(m_Last)
End Sub

Private Sub Text1_Change()
    If Text1.Text < 20 Then
       UpDown1.Increment = 1
    Else
       UpDown1.Increment = 5
    End If
    If Not IsNumeric(Text1.Text) Then
        MsgBox "请输入数值", 48, "提示"
        Text1.Text = ""
        Text1.SetFocus
    End If
End Sub