Visual Basic

Bernhard Hiller wrote:

However, if UI elements are accessed, you should check for InvokeRequired.

  Imports System.Threading
  'Imports System


Public Class Form1

  '--------------------------------------------------------------------------------------
  'Background thread setup for the Pause/Continue button:

  'Define a delegate type for the form's Pause_Continue_cmd button:
  Private Delegate Sub Pause_Continue_cmd_ClickDelegateType(_
                ByVal sender As System.Object, _
                ByVal e As System.EventArgs) 

  'Declare a delegate button to point to the form's Pause_Continue_cmd button:
  Private Pause_Continue_cmd_ClickDelegate As _
          Pause_Continue_cmd_ClickDelegateType

  Private BG_Thread As Thread

  'The main thread as "owner" of Form1 (and its controls will provide the actual
  'button clicks for the Pause_Continue_cmd button, because the background thread
  'cannot access the form's controls directly.
  '--------------------------------------------------------------------------------------




  Private Sub Form1_Load(ByVal sender As System.Object, _
                         ByVal e As System.EventArgs) _
                         Handles MyBase.Load

    FormIsLoadingFlag = 1
        Threading.Thread.CurrentThread.Name = "UI Thread"

        ProgramLaunchFlag = 0
        'Any other initializtion code for the main thread and form goes here.
    FormIsLoadingFlag = 0

    '--------------------------------------------------------------------------------------
    'Background thread setup for the Pause/Continue button.

    'Make a new Pause_Continue_cmd button object:
    Dim New_DelegatePauseContinueButton As New _
            Delegate_Pause_Continue_Button(Me, BGThreadNumber:=1)

    'Make the thread to run the object's Run method:
    BG_Thread = New Thread(AddressOf New_DelegatePauseContinueButton.Run)

    'Make this a background thread so it automatically
    'ends when the form's thread ends:
    BG_Thread.IsBackground = True
    BG_Thread.Start()

  End Sub

    Private Sub StartLoop_cmd_Click(ByVal sender As System.Object, _
                                    ByVal e As System.EventArgs) _
                                    Handles StartLoop_cmd.Click
        Call StartLoop()
    End Sub

    Private Sub StartLoop()
        Dim loopo As Long
        Dim loopo2 As Long

        For loopo = 1 To 100000000
            For loopo2 = 1 To 100000000    'Time Delay for each pass.
                loopo = loopo
                'Do nothing.
            Next loopo2

            Call Pause_Continue()

            Counto = Counto + 1

            Me.CounterVal_echo.Text = Str(Counto)
            Me.CounterVal_echo.Refresh()
        Next loopo

    End Sub

    Public Sub Pause_Continue()
        'Pause the above loops by getting caught in this endless loop until
        'the value of CountStopFlag = 0:

EndlessLoop:
        If CountStopFlag = 0 Then Exit Sub
        GoTo EndlessLoop

    End Sub

  Public Sub Pause_Continue_cmd_Click(ByVal sender As System.Object, _
                                      ByVal e As System.EventArgs) _
                                      Handles Pause_Continue_cmd.Click
      CountStopFlag = 1
  End Sub


End Class





Public Class Delegate_Pause_Continue_Button
    'The form that owns the Pause_Continue_cmd button:
    Private OwnerForm As Form1

    'Define a delegate type for the form's DisplayValue method:
    Private Delegate Sub Pause_Continue_cmd_ClickDelegateType( _
              ByVal sender As System.Object, _
              ByVal e As System.EventArgs) 'Handles Pause_Continue_cmd.Click

    'Declare a delegate variable to point to the form's DisplayValue method:
    Private Pause_Continue_cmd_ClickDelegate As Pause_Continue_cmd_ClickDelegateType

    'This counter's thread number:
    Private PrivateBGThreadNumber As Integer



    Public Sub New(ByVal my_form As Form1, _
                   ByVal BGThreadNumber As Integer)
        OwnerForm = my_form
        PrivateBGThreadNumber = BGThreadNumber    'The thread number.

        'Initialize the delegate variable to point to the form's DisplayValue method:
        Pause_Continue_cmd_ClickDelegate = AddressOf OwnerForm.Pause_Continue_cmd_Click

    End Sub

    Public Sub Run()
        Try
            Do
                'Wait 1 second:
                'Thread.Sleep(1000)

                'Lock the form object. This doesn't do anything to the form, it just means no other
                'thread can lock the form object until we release the lock.  That means a thread can
                'update m_MyForm.Value and then display its value without interference:
                SyncLock OwnerForm
                    If OwnerForm.InvokeRequired() Then

                        'Make an array containing the parameters to pass to the method:
'NOT SURE THIS ARRAY IS THE CORRECT WAY TO DO THIS SINCE THAT WOULD MEAN THAT THE BUTTON CLICK EVENT
'ARGUMENTS WOULD NEED TO BE PARSED OUT OF IT, WHICH EVENTS CANNOT DO:
                        Dim args() As Object = {Nothing, Nothing}

                        'Invoke the delegate:
                        'OwnerForm.Invoke(Pause_Continue_cmd_ClickDelegate, args)
'NOT SURE ABOUT THE FOLLOWING LINE.  THE CLICK EVENT HAS PASSED ARGUMENTS, SO THIS SHOULD TOO, CORRECT?
'AT ANY RATE, THIS LINE LOCKS UP THE FORM_LOAD PROCEDURE WHEN THE PROGRAM IS LAUNCHED:
                        OwnerForm.Invoke(Pause_Continue_cmd_ClickDelegate)
                    End If
                End SyncLock
            Loop
        Catch ex As Exception
            Debug.WriteLine("Unexpected error in thread " & PrivateBGThreadNumber & vbCrLf & ex.Message)
        End Try
    End Sub


End Class

Module Extensions

       <Runtime.CompilerServices.Extension()> _
       Sub SynchronisedInvoke(synchMe As ISynchronizeInvoke, action As Action)

           If Not synchMe.InvokeRequired Then

               action()

           Else

               synchMe.Invoke(action, New Object() {})

           End If

       End Sub

   End Module

btnClickety.SynchronisedInvoke(Sub() btnClickety)

Member 9819470 wrote:

DataGrid1.Bookmark(i) = lastRow

Bastard Programmer from Hell
If you can't read my code, try converting it here[^]

diegosendra wrote:

Didn't know such a section existed in the site

tolarion wrote:

Somehow it must be possible to combine the jobs

tolarion wrote:

BeginDoc / EndDoc

Dim ps As New PrintServer(serverName, PrintSystemDesiredAccess.AdministrateServer)
Dim queue As New PrintQueue(ps, printerName, PrintSystemDesiredAccess.AdministratePrinter)
queue.Pause()

queue.Resume()

Quote:

tolarion wrote:

and the file will still be there cause i stoped the Queue

tolarion wrote:

Why could it not be all in system.printing ... now i must play around with pinvoke ...