Re: Help with some VB Code

Silly me!  I am tooting my horn about how VBA doesn't sup****t
multithreading and that you can only do it in OOP.  I forgot to mention
that multithreading requires the use of delegates - here is some sample
code of a program I wrote which does something similar to what this post
is about - being able to control the execution of an operation -
start/stop:


Public Delegate Sub StartSlideShowDelegate()
Private Delegate Sub ShowPicsDelegate(ByVal PicCount As 
      Integer, ByVal str2 As String)
...

btnStopStart.Text = "Stop SlideShow"
btnSinglePicBack.Enabled = False
btnSinglePicFwd.Enabled = False
bRunPics = True
Dim dlgt As StartSlideShowDelegate = New 
    StartSlideShowDelegate(AddressOf StartLoadSlideShow)
Dim state As Integer = 0
Dim ar As IAsyncResult = dlgt.BeginInvoke(New AsyncCallback
   (AddressOf DoneCallback), state)
...

Try
  If Me.InvokeRequired Then
  ' if operating on a thread, invoke a delegate
  ' on the UI thread.
    Dim omd As ShowPicsDelegate = New ShowPicsDelegate
         (AddressOf ShowPics)
    Dim arx As IAsyncResult = Me.BeginInvoke(omd, New 
            Object() {PicCount, str2})
    Me.EndInvoke(arx)
    Return
  End If
...

--you can't do this in VBA.  You can only do this in OOP.

Rich

*** Sent via Developersdex http://www.developersdex.com
***