1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28
|
Public Class MonThread
Private _thread As Thread
Private _isCancelled As Boolean = False
Private _paused As New ManualResetEvent(False)
Public myNodes As New TreeNode
Public myTreeView As TreeView
Public Sub New(ByVal cnxBase() As Base.cnxBaseAccess, ByVal iniTreeView As TreeView)
myTreeView = iniTreeView
End Sub
Public Sub SpinUp()
_thread = New Thread(AddressOf start)
_thread.Name = "Load Treeview"
_thread.Start()
End Sub
Protected Sub start()
Me.myNodes.Nodes.Add(New TreeNode("toto"))
Me.myTreeView.Nodes.Add(Me.myNodes)
End Sub
End Class |