frmscheduler.frm

用VB实现的编译器的源代码

VERSION 5.00
Begin VB.Form frmScheduler 
   BorderStyle     =   0  'Kein
   Caption         =   "Socket"
   ClientHeight    =   1080
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   2130
   LinkTopic       =   "Form1"
   ScaleHeight     =   1080
   ScaleWidth      =   2130
   ShowInTaskbar   =   0   'False
   StartUpPosition =   3  'Windows-Standard
   Begin VB.Timer tmrInterval 
      Index           =   0
      Left            =   120
      Top             =   120
   End
End
Attribute VB_Name = "frmScheduler"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private ThreadsCount

Public Function AddThread(BImprovedCommand As String, RepeatInterval As Integer)
    ThreadsCount = ThreadsCount + 1
    Load Me.tmrInterval(ThreadsCount)
    tmrInterval(ThreadsCount).Tag = BImprovedCommand
    tmrInterval(ThreadsCount).Interval = RepeatInterval
    tmrInterval(ThreadsCount).Enabled = False
    AddThread = ThreadsCount
End Function

Public Function StartThread(Index As Integer)
    tmrInterval(Index).Enabled = True
End Function

Public Function StopThread(Index As Integer)
    tmrInterval(Index).Enabled = False
End Function

Private Sub tmrInterval_Timer(Index As Integer)
    Interprete tmrInterval(Index).Tag, getObject("AppMain")
End Sub