﻿<?xml version="1.0" encoding="UTF-8"?><rss version="2.0" xmlns:dc="http://purl.org/dc/elements/1.1/"><channel><title>StrataFrame Forum » StrataFrame Application Framework - V1 » Issues  » ThreadManager problem</title><generator>InstantForum 2017-1 Final</generator><description>StrataFrame Forum</description><link>http://forum.strataframe.net/</link><webMaster>StrataFrame Forum</webMaster><lastBuildDate>Mon, 20 Apr 2026 21:01:24 GMT</lastBuildDate><ttl>20</ttl><item><title>ThreadManager problem</title><link>http://forum.strataframe.net/FindPost23741.aspx</link><description>Hi,&lt;br&gt;
I try to create new process for my method. The method must run a form asynchronically..&lt;br&gt;
&lt;br&gt;
The code is&lt;br&gt;
&lt;br&gt;
[code]&lt;br&gt;
Public Class MKSServiceManager&lt;br&gt;
    Private pmks_ServiceStartProcessName = "MainServiceProcess"&lt;br&gt;
    Public WithEvents pmks_ThreadManager As MicroFour.StrataFrame.Threading.ThreadManager&lt;br&gt;
&lt;br&gt;
    Public Sub mmks_CreateService(ByVal tcPk_RecId As String)&lt;br&gt;
    ...................&lt;br&gt;
    ...................&lt;br&gt;
    ' me.pmks_Service - is an object and mmks_execute is a Public Sub ...&lt;br&gt;
&lt;br&gt;
     pmks_ThreadManager.AddProcess(AddressOf Me.pmks_Service.mmks_execute, Me.pmks_ServiceStartProcessName)&lt;br&gt;
&lt;br&gt;
                Dim llExec As Boolean = pmks_ThreadManager.IsExecuting()&lt;br&gt;
    ' There I  can see llExec is True.. seems to executed..&lt;br&gt;
    End Sub&lt;br&gt;
&lt;br&gt;
   Private Sub _mmks_ThreadManager_ThreadStarted(ByVal e As MicroFour.StrataFrame.Threading.ThreadManagerEventArgs) Handles pmks_ThreadManager.ThreadStarted&lt;br&gt;
        '-- Add a line item to the 'Status' list box to notify the user that thread has started&lt;br&gt;
        Dim lnThreadStart As Boolean = True&lt;br&gt;
    End Sub&lt;br&gt;
&lt;br&gt;
    Private Sub _mmks_ThreadManager_ThreadCompleted(ByVal e As MicroFour.StrataFrame.Threading.ThreadManagerEventArgs) Handles pmks_ThreadManager.ThreadCompleted&lt;br&gt;
        If e.ThreadName = Me.pmks_ServiceStartProcessName Then&lt;br&gt;
            'Me.RunningModules.Add(Me.pmks_Service)&lt;br&gt;
        End If&lt;br&gt;
    End Sub&lt;br&gt;
&lt;br&gt;
&lt;br&gt;
    Private Sub _mmks_ThreadManager_AllThreadCompleted() Handles pmks_ThreadManager.AllThreadsCompleted&lt;br&gt;
    End Sub&lt;br&gt;
&lt;br&gt;
[/code]&lt;br&gt;
&lt;br&gt;
There.. I set debugger inside the procedures and.. the code NEVER suspend there.. seems events never faired.. and of course.. my form also does not appears..&lt;br&gt;
Also I put breakpoint into my mmks_execute() method.. and its also never happens..&lt;br&gt;
Seems ThreadManager not able to execute my procedure? the question.. what made I wrong?&lt;br&gt;
&lt;br&gt;
Thanks&lt;br&gt;
Denis</description><pubDate>Wed, 08 Jul 2009 07:48:24 GMT</pubDate><dc:creator>dgsoft</dc:creator></item><item><title>RE: ThreadManager problem</title><link>http://forum.strataframe.net/FindPost23776.aspx</link><description>Have you looked at the ThreadManager sample that comes with the framework? It may help you better understand how it is to be used.</description><pubDate>Wed, 08 Jul 2009 07:48:24 GMT</pubDate><dc:creator>Trent L. Taylor</dc:creator></item></channel></rss>