Visual Basic

Public Event IamDone(ByVal sender As Object, ByVal IP As String)

RaiseEvent IamDone(Me, "111")

AddHandler myworkerthreadclass.IamDone, Addressof myworkerthreadclass.IamDone

Public Event IamDone(ByVal sender As Object, ByVal IP As String)

RaiseEvent IamDone(Me, "111")

AddHandler myworkerthreadclass.IamDone, Addressof myworkerthreadclass.IamDone

svanwass wrote:

that doesn't work

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim passing(0, 3) As String
        passing(0, 0) = "10.1.1.1"
        passing(0, 1) = "10.1.1.2"
        passing(0, 2) = "10.1.1.3"
        passing(0, 3) = "10.1.1.4"
        Dim myworker As New Foo(passing)
    End Sub

   Private Sub IHeardThat() Handles Foo.IamDone
          'this does NOT work
    End Sub
End Class

Imports System.ComponentModel
Imports System.IO
Imports System.Threading
Public Class Foo

    Public WithEvents backgroundWorker1 As System.ComponentModel.BackgroundWorker
    Public Event IamDone(ByVal sender As Object, ByVal IP As String)

    Dim devicelist(,) As String
    Dim txtFile
    Public Sub New(ByVal Value As String(,))
        devicelist = Value
        backgroundWorker1 = New BackgroundWorker

        backgroundWorker1.WorkerReportsProgress = True
        backgroundWorker1.RunWorkerAsync(devicelist)
    End Sub
    Private Sub backgroundWorker1_DoWork(ByVal sender As Object, ByVal e As DoWorkEventArgs) Handles backgroundWorker1.DoWork

        ' Get the BackgroundWorker object that raised this event.
        Dim worker As BackgroundWorker = CType(sender, BackgroundWorker)
        Dim myargs As String(,) = e.Argument

    End Sub
    Private Sub backgroundWorker1_RunWorkerCompleted(ByVal sender As Object, ByVal e As RunWorkerCompletedEventArgs) Handles backgroundWorker1.RunWorkerCompleted

            RaiseEvent IamDone(Me, "Done")
        End If
    End Sub 
   
End Class

svanwass wrote:

Private Sub IHeardThat() Handles Foo.IamDone

Dim myworker As New Foo(passing)
AddHandler myworker.IamDone, AddressOf IHeardThat

Imports System.Threading

Public Class Form1

    Dim t1 As Thread
    Dim t2 As Thread()
    Dim c As Collection

    Dim treeview As TreeView

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


        tMain()


    End Sub

    Sub tMain()

        c = New Collection

        treeview = New TreeView
        Me.Controls.Add(treeview)
        treeview.Size = New Size(200, 400)
        treeview.Location = New Point(10, 6)
        treeview.Visible = True

        c.Add(100, "StartData")

        t1 = New Thread(AddressOf MainThreading)

        t1.Start(New Object() {c})

    End Sub

    Sub MainThreading(ByVal args As Object)

        With CType(args(0), Collection)

            ReDim t2(.Item("StartData"))

            Dim i As Integer

            For i = 0 To UBound(t2)

                .Add(i, "ThreadKey" & i)

                t2(i) = New Thread(AddressOf WorkerThread)

                t2(i).Start(New Object() {args(0), i})

            Next

            Do

                Dim bol As Boolean = True

                For i = 0 To UBound(t2)

                    If t2(i).IsAlive Then

                        bol = False

                    End If

                Next

                If bol Then

                    Exit Do

                End If

                Thread.Sleep(100)

            Loop

            Dim treenode As TreeNode

            For i = 0 To .Item("StartData")

                With treeview.Nodes.Item("Nod" & i)

                    ChangeNodes(New Object() {treeview.Nodes.Item("Nod" & i), _
                                                    .Text & _
                                              " [" & .Name & _
                                              " of " & .Tag & "]"})

                End With

            Next

        End With

    End Sub

    Sub WorkerThread(ByVal args As Object())

        Dim treenode As TreeNode = New TreeNode

        Dim CollectionCount As Integer = CType(args(0), Collection).Item("StartData")
        Dim Name As String = CType(args(1), String)

        treenode.Name = "Nod" & Name
        treenode.Text = Name
        treenode.Tag = CollectionCount

        AddNodes(treenode)

    End Sub

    Public Delegate Sub AddNode(ByRef obj As Object)

    Sub AddNodes(ByRef obj As Object)

        If treeview.InvokeRequired Then

            Dim ad As AddNode = New AddNode(AddressOf AddNodes)

            treeview.Invoke(ad, obj)

        Else

            treeview.BeginUpdate()

            treeview.Nodes.Add(obj)

            treeview.EndUpdate()

        End If

    End Sub

    Public Delegate Sub ChangeNode(ByRef obj As Object)

    Sub ChangeNodes(ByRef obj As Object)

        If treeview.InvokeRequired Then

            Dim ad As ChangeNode = New ChangeNode(AddressOf ChangeNodes)

            treeview.Invoke(ad, obj)

        Else

            Dim TreeNode As TreeNode = CType(obj(0), TreeNode)

            TreeNode.Text = CType(obj(1), String)

        End If

    End Sub

End Class

vvincent wrote:

We've tried marking Exclude on the duplicates, but that seems like a workaround and not a real solution.

vvincent wrote:

I'm assuming that if we did the Setup scraper, and used InstallShield Express, we'd also need to include code in each project to manually force the project to look in the Common File folder for the 'missing' DLLs.

Dave Kreskowiak wrote:

vvincent wrote:
We've tried marking Exclude on the duplicates, but that seems like a workaround and not a real solution.

There's a bunch of little gotcha's in the S&D project like that.