awxb01.cls

VB 源始碼 VB 源始碼 VB 源始碼 VB 源始碼 VB 源始碼 VB 源始碼 VB 源始碼 VB 源始碼 VB 源始碼 VB 源始碼 VB 源始碼 VB 源始碼 VB 源始碼 VB 源始碼 VB

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "AWXB01"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Option Explicit
Private mstrThreadID As String
Private mobjFRM As frmAWXB01
Public Sub Show(strThreadID As String)

Dim objMessenger As AWXB02MSG.clsA02I
Dim colMessages As Collection
Dim objMessage As AWXB02MSG.clsA02Msg
Dim lngTotal As Long
Dim lngCounter As Long

mstrThreadID = strThreadID
Set mobjFRM = New frmAWXB01
mobjFRM.ThreadID = strThreadID
mobjFRM.Caption = "Thread: " & strThreadID
mobjFRM.Show

Set objMessenger = New AWXB02MSG.clsA02I
Dim datNow As Date
datNow = Now
Do While True
    objMessenger.GetXMessages strThreadID, colMessages
    For lngCounter = 1 To colMessages.Count
        Set objMessage = colMessages(lngCounter)
        If objMessage.strMessage = "STOP" Then
            Unload mobjFRM
            Set mobjFRM = Nothing
            Exit Do
        End If
    Next
    If Abs(DateDiff("s", datNow, Now)) > 2 Then
        objMessenger.AddXMessage "MAINQUEUE", "A message from thread " & strThreadID
        datNow = Now
    End If
    DoEvents
Loop

Set objMessenger = Nothing

End Sub