home *** CD-ROM | disk | FTP | other *** search
- VERSION 4.00
- Begin VB.Form frmTimer
- Caption = "olesrv3"
- ClientHeight = 2895
- ClientLeft = 4155
- ClientTop = 960
- ClientWidth = 3000
- ControlBox = 0 'False
- Height = 3300
- Left = 4095
- LinkTopic = "Form1"
- MaxButton = 0 'False
- MinButton = 0 'False
- ScaleHeight = 2895
- ScaleWidth = 3000
- Top = 615
- Visible = 0 'False
- Width = 3120
- Begin VB.CommandButton Command1
- Caption = "&Clear"
- Height = 360
- Left = 1845
- TabIndex = 1
- Top = 2385
- Width = 1035
- End
- Begin VB.ListBox List1
- Height = 2205
- Left = 30
- TabIndex = 0
- Top = 45
- Width = 2820
- End
- Begin VB.Timer Timer1
- Interval = 8000
- Left = 1245
- Top = 735
- End
- Attribute VB_Name = "frmTimer"
- Attribute VB_Creatable = False
- Attribute VB_Exposed = False
- Option Explicit
- Private Sub Command1_Click()
- List1.Clear
- End Sub
- Private Sub timer1_Timer()
- '----- Run continuously until all object
- ' references are released. For testing,
- ' leave running until manual program
- ' shutdown.
- '----- Note: in real-life situation there would
- ' be an error handler in function NxtItm().
- Dim lngCount As Long
- If gcolQueue.Count > 0 Then
- timer1.Enabled = False
- List1.AddItem gcolQueue(1).ID & ": Processing request "
- List1.Refresh
- lngCount = NxtItm()
- gcolQueue(1).Notify (lngCount)
- gcolQueue.Remove 1
- timer1.Enabled = True
- End If
- End Sub
-