.NET (Core and Framework)

Member 9496613 wrote:

Where did I go wrong?

Can anyone give me a tip?

Imports System.Threading

Public Class Form1
    Dim MyNewThread As Thread

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'create the thread 
        MyNewThread = New Thread(AddressOf MyThread.MyThreadExecute)
        MyNewThread.Name = "NuovoThread"
        'start the thread
        MyNewThread.Start(Me)
    End Sub

    Public Sub AggiornaLabel(ByVal What As String)
        If InvokeRequired Then
            Invoke(New Action(Of String)(AddressOf AggiornaLabel), New Object() {What})
            Return
        End If

        Label1.Text = What
    End Sub
End Class

Public Class MyThread
    Private Shared miii As Int32 = 0

    Public Shared Property iii() As Int32
        Get
            Return miii
        End Get
        Set(ByVal value As Int32)
            miii = value
        End Set
    End Property

    Public Shared Sub MyThreadExecute(ByVal Origin As Object)
        Dim OriginForm As Form1 = CType(Origin, Form1)
        Do
            iii = iii + 1
            OriginForm.AggiornaLabel(iii.ToString)
            Thread.Sleep(100)
        Loop
    End Sub
End Class

Bastard Programmer from Hell
If you can't read my code, try converting it here[^]
They hate us for our freedom![^]

steve_9496613 wrote:

1) the method Start(Object) is not supported in Compact Framework so I have to call MyNewThread.Start()

For the second error, I'm searching through MSDN...

steve_9496613 wrote:

About the use of global variables, is it such a bad thing?

steve_9496613 wrote:

The real application is more complex of this example, the function executed by the thread will communicate with a PLC via ethernet and will read a lot of data (and write some) and then, at the end of each loop, it will call a function to visualize new data in different "pages" (I use UserControl objects) in the application. My idea is to use a class in order to collect all of these data and make them available inside and outside the thread. What do you think about this

Bastard Programmer from Hell
If you can't read my code, try converting it here[^]
They hate us for our freedom![^]

steve_9496613 wrote:

Searching the help I found that the delegate ThreadStart() is called automatically when I call "New Thread(AddressOf ...)" so how can I modify its parameters?

MyNewThread.Start(Me)

Bastard Programmer from Hell
If you can't read my code, try converting it here[^]
They hate us for our freedom![^]

Imports System.Threading

Public Class Form1
  Dim MyNewThread As Thread

  Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    'create the thread 
    MyNewThread = New Thread(AddressOf MyThread.MyThreadExecute)
    MyNewThread.Name = "NuovoThread"
    'start the thread
    MyNewThread.Start()   'no "Me" parameter
  End Sub

  Public Sub AggiornaLabel(ByVal What As String)
    If InvokeRequired Then
      Invoke(New Action(Of String)(AddressOf AggiornaLabel), New Object() {What})
      Return
    End If

    Label1.Text = What
  End Sub

End Class


Public Class MyThread
  Private Shared miii As Int32 = 0

  Public Shared Property iii() As Int32
    Get
      Return miii
    End Get
    Set(ByVal value As Int32)
      miii = value
    End Set
  End Property

  Public Shared Sub MyThreadExecute(ByVal Origin As Object)
  'Public Shared Sub MyThreadExecute()
    Dim OriginForm As Form1 = CType(Origin, Form1)
    'Dim OriginForm As Form1 = New Form1()
    Do
      iii = iii + 1
      OriginForm.AggiornaLabel(iii.ToString)
      Thread.Sleep(100)
    Loop
  End Sub
End Class

steve_9496613 wrote:

About passing a parameter in an object when I start the thread, I can't do this because in the Compact Framework (not the full .NET) only the method Thread.Start() is supported, the method Thread.Start(Object) is not supported.

Imports System.Threading

Public Class Form1
    Dim MyNewThread As Thread

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click        
        'create the thread 
        MyNewThread = New Thread(AddressOf MyThread.MyThreadExecute)
        MyNewThread.Name = "NuovoThread"
        MyThread.ThatForm = Me
        'start the thread
        MyNewThread.Start()
    End Sub

    Public Sub AggiornaLabel(ByVal What As String)
        If InvokeRequired Then
            Invoke(New Action(Of String)(AddressOf AggiornaLabel), New Object() {What})
            Return
        End If

        Label1.Text = What
    End Sub
End Class

Public Class MyThread
    Private Shared miii As Int32 = 0
    Public Shared ThatForm As Form1

    Public Shared Property iii() As Int32
        Get
            Return miii
        End Get
        Set(ByVal value As Int32)
            miii = value
        End Set
    End Property

    Public Shared Sub MyThreadExecute()
        Do
            iii = iii + 1
            ThatForm.AggiornaLabel(iii.ToString)
            Thread.Sleep(100)
        Loop
    End Sub
End Class

Module MyThread
    Private miii As Int32 = 0
    Public ThatForm As Form1

    Public Property iii() As Int32
        Get
            Return miii
        End Get
        Set(ByVal value As Int32)
            miii = value
        End Set
    End Property

    Public Sub MyThreadExecute()
        Do
            iii = iii + 1
            ThatForm.AggiornaLabel(iii.ToString)
            Thread.Sleep(100)
        Loop
    End Sub
End Module

Bastard Programmer from Hell
If you can't read my code, try converting it here[^]
They hate us for our freedom![^]