VB Forum / General / February 2005

Hiw
I built ActiveEXE Server for Multithreading ..

I hope the ActiveXExe Server finish of itself..

So I used Timer control and Running State values...

The Problem is this :

the Instance of this Class does not end of itself...

Class_Terminate is called by Program.. but it still lives on memory

how can I do my ActiveEXE be finished automatically ... ??

See my Class....

------------------------------------------------------------

Private frm As Form
Private WithEvents Ti As Timer

Public Event ListDone(ByVal i As Long)

Private mStartInt As Long
Private mRunState As Boolean
Private AppRunning As Boolean

Private Sub LoadAXFrm()
   Dim i As Long
   For i = 1 To 1000
       Do
           If mRunState Then Exit Do
           DoEvents
       Loop
       DoEvents
       RaiseEvent ListDone(CLng(mStartInt + i))
   Next

End Sub

Public Sub EndClass()
   mRunState = False
   Call Class_Terminate
End Sub

Private Sub Class_Initialize()
   mRunState = False
   AppRunning = False
   Set frm = frmAX
   Set Ti = frmAX.Timer1
End Sub

Private Sub Class_Terminate()
   Set frm = Nothing
   Set Ti = Nothing
End Sub

Public Property Get StartInt() As Long
   StartInt = mStartInt
End Property

Public Property Let StartInt(ByVal vNewValue As Long)
   mStartInt = vNewValue
   Ti.Enabled = True
   Ti.Interval = 500
End Property

Public Property Let RunState(ByVal vNewValue As Boolean)
   mRunState = vNewValue
End Property

Public Property Get RunState() As Boolean
   RunState = mRunState
End Property

Private Sub Ti_Timer()
   If mRunState <> True Then Exit Sub

   If AppRunning = False Then
       Ti.Enabled = False
       Call LoadAXFrm
       AppRunning = True
       Call Class_Terminate  --> It calls Class_Terminate correctly..

   End If

End Sub