dotNETportal.cz

Dobrý den,

věděl by někdo jak napsat toto ve VB.NET (nejlépe, aby to bylo funkční v CF 2.0) ?

  private void ProgressDispatcherProc()
    {
      m_stopThreads = false;

      while (!m_stopThreads)
      {
        while (m_progressQueue.Count > 0)
        {
          ProgressChangedEventArgs args = m_progressQueue.Dequeue();

          if (ProgressChanged != null)
          {
            m_guiMarshaller.BeginInvoke(new MethodInvoker(delegate()
            {
              ProgressChanged(this, args);
            }));
            Application.DoEvents();
          }
        }
  
        Thread.Sleep(this.WorkerReportsProgress ? 5 : 1000);
      }
    }

Private Sub ProgressDispatcherProc()
    m_stopThreads = False
    
    While Not m_stopThreads
        While m_progressQueue.Count > 0
            Dim args As ProgressChangedEventArgs = m_progressQueue.Dequeue()
            
            If ProgressChanged IsNot Nothing Then
                m_guiMarshaller.BeginInvoke(New MethodInvoker(Function() Do
                    ProgressChanged(Me, args)
                End Function))
                Application.DoEvents()
            End If
        End While
        
        Thread.Sleep(If(Me.WorkerReportsProgress, 5, 1000))
    End While
End Sub

Tohle je překlad z:

http://www.developerfusion.com/tools/con...

nebo něčeho podobného.

Mno problém je s tímhle:

 If ProgressChanged IsNot Nothing Then
                        m_guiMarshaller.BeginInvoke(New MethodInvoker(Function() Do
                            ProgressChanged(Me, args)
                        End Function))

m_guiMarshaller je typu System.Windows.Forms.Control

ProgressChanged je událost. pokud to dobře chápu tak přes delegáta vstupuji do volajícího vlákna vyvoláním události ProgressChanged.

Ve VB by normálně asi stačilo zavolat událost raiseevent progressChanged. Jenže nevím jak to udělat do spouštěcího vlákna.

Nepomôže pridať pred názov eventu to RaiseEvent ?

 If ProgressChanged IsNot Nothing Then
                        m_guiMarshaller.BeginInvoke(New MethodInvoker(Function() Do
                            RaiseEvent ProgressChanged(Me, args)
                        End Function))

Mno já si myslím, že je chyba na předchozím řádku.

I ten překladač na DeveloperFusion hlásí varování:

VB does not support anonymous methods/lambda expressions with a statement body

Děkuji funguje.

           Private args As ProgressChangedEventArgs
            Private Sub ProgressDispatcherProc()

                m_stopThreads = False

                While Not m_stopThreads

                    While m_progressQueue.Count > 0

                        args = m_progressQueue.Dequeue()

                        m_guiMarshaller.BeginInvoke(New MethodInvoker(AddressOf CallProgressChanged))

                        Application.DoEvents()

                    End While

                    Thread.Sleep(If(Me.WorkerReportsProgress, 5, 1000))

                End While

            End Sub
            Private Sub CallProgressChanged()
                RaiseEvent ProgressChanged(Me, args)
            End Sub