VB.NET有很多值得學(xué)習的地方，這里我們主要介紹VB.NET多線(xiàn)程，包括介紹功能和實(shí)現等方面。
功能：把選定文件夾下的dll、子文件夾和子文件夾中的dll填寫(xiě)到窗體的treeview控件上。缺點(diǎn)：窗體簡(jiǎn)單，代碼有些混亂，線(xiàn)程之間的調用可能沒(méi)有到最優(yōu)化。
實(shí)現：imagelist中的圖片需要自己重新定義。

VB.NET多線(xiàn)程的優(yōu)點(diǎn)：可以及時(shí)響應用戶(hù)的操作，不至于產(chǎn)生“未響應”的尷尬；設計合理（結合需求）的話(huà)，可使軟件的性能提高。VB.NET多線(xiàn)程的編寫(xiě)：結構合理、注意同步。

以上是我對這個(gè)例程和VB.NET多線(xiàn)程的個(gè)人體會(huì )，如有不妥之處，還請大家批評指正。

        
            
Imports System.IO              
Public Class Form1              
Inherits System.Windows.Forms.Form              
             
#Region " Windows 窗體設計器生成的代碼 "              
             
Public Sub New()              
MyBase.New()              
'該調用是 Windows 窗體設計器所必需的。              
InitializeComponent()              
'在 InitializeComponent() 調用之后添加任何初始化              
End Sub              
             
'窗體重寫(xiě) dispose 以清理組件列表。              
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)              
If disposing Then              
If Not (components Is Nothing) Then              
components.Dispose()              
End If              
End If              
MyBase.Dispose(disposing)              
End Sub              
             
'Windows 窗體設計器所必需的              
Private components As System.ComponentModel.IContainer              
             
'注意: 以下過(guò)程是 Windows 窗體設計器所必需的              
'可以使用 Windows 窗體設計器修改此過(guò)程。              
'不要使用代碼編輯器修改它。              
Friend WithEvents TreeView1 As System.Windows.Forms.TreeView              
Friend WithEvents btnOpenBrower As System.Windows.Forms.Button              
Friend WithEvents ImageList1 As System.Windows.Forms.ImageList              
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()              
Me.components = New System.ComponentModel.Container              
Dim resources As System.Resources.ResourceManager = 
New System.Resources.ResourceManager(GetType(Form1))              
Me.TreeView1 = New System.Windows.Forms.TreeView              
Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components)              
Me.btnOpenBrower = New System.Windows.Forms.Button              
Me.SuspendLayout()              
             
'TreeView1              
             
Me.TreeView1.Dock = System.Windows.Forms.DockStyle.Left              
MeMe.TreeView1.ImageList = Me.ImageList1              
Me.TreeView1.Location = New System.Drawing.Point(0, 0)              
Me.TreeView1.Name = "TreeView1"             
Me.TreeView1.Size = New System.Drawing.Size(376, 581)              
Me.TreeView1.TabIndex = 0             
             
'ImageList1              
             
Me.ImageList1.ImageSize = New System.Drawing.Size(16, 16)              
Me.ImageList1.ImageStream = CType(resources.GetObject("ImageList1.ImageStream"), 
System.Windows.Forms.ImageListStreamer)              
Me.ImageList1.TransparentColor = System.Drawing.Color.Transparent              
             
'btnOpenBrower              
             
Me.btnOpenBrower.Location = New System.Drawing.Point(408, 64)              
Me.btnOpenBrower.Name = "btnOpenBrower"             
Me.btnOpenBrower.Size = New System.Drawing.Size(96, 23)              
Me.btnOpenBrower.TabIndex = 1             
Me.btnOpenBrower.Text = "Open Brower"             
             
'Form1              
             
Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)              
Me.ClientSize = New System.Drawing.Size(536, 581)              
Me.Controls.Add(Me.btnOpenBrower)              
Me.Controls.Add(Me.TreeView1)              
Me.Name = "Form1"             
Me.Text = "Form1"             
Me.ResumeLayout(False)              
End Sub              
             
#End Region              
Private Sub OpenBrower()              
Dim f As New FolderBrowserDialog              
If f.ShowDialog = DialogResult.OK Then              
Me.TreeView1.Nodes.Clear()              
Me.SuspendLayout()              
Dim nodeTemp As TreeNode = CType(Me.Invoke(New AddTreeNodeHandler
(AddressOf Me.AddFileToTreeview), New Object() {f.SelectedPath}), TreeNode)              
Me.AddFile(New DirectoryInfo(f.SelectedPath), nodeTemp)              
Me.ResumeLayout(False)              
End If              
End Sub              
             
Private Sub AddFile(ByVal dirPath As DirectoryInfo, ByVal node As TreeNode)              
Dim tempHandler As New AddFileHandler(AddressOf Me.AddFileToTreeNode)              
For Each dir As DirectoryInfo In dirPath.GetDirectories()              
Dim nodeTemp As TreeNode = CType(Me.Invoke(tempHandler, 
New Object() {dir.Name, CLASSIO.Directory, node}), TreeNode)              
Me.AddFile(dir, nodeTemp)              
Next              
For Each file As FileInfo In dirPath.GetFiles("*.dll")              
Me.Invoke(tempHandler, New Object() {file.Name, CLASSIO.File, node})              
Next              
End Sub              
             
Private Function AddFileToTreeNode(ByVal str As String, 
ByVal cls As CLASSIO, ByVal node As TreeNode) As TreeNode              
Dim nodeTemp As New TreeNode(str)              
nodeTemp.ImageIndex = CInt(cls)              
node.Nodes.Add(nodeTemp)              
nodeTempnodeTemp.SelectedImageIndex = nodeTemp.ImageIndex              
Return nodeTemp              
End Function              
             
Private Function AddFileToTreeview(ByVal str As String) As TreeNode              
Dim nodeTemp As New TreeNode(str)              
Me.TreeView1.Nodes.Add(nodeTemp)              
Return nodeTemp              
nodeTemp.SelectedImageIndex = CInt(CLASSIO.Directory)              
End Function              
             
Private Sub btnOpenBrower_Click(ByVal sender As System.Object, 
ByVal e As System.EventArgs) Handles btnOpenBrower.Click              
'多線(xiàn)程              
Dim t As Threading.Thread = New Threading.Thread(AddressOf Me.OpenBrower)              
t.Start()              
             
'單線(xiàn)程              
'Me.OpenBrower()              
End Sub              
End Class              
             
Public Enum CLASSIO              
File = 1             
Directory = 0             
End Enum              
             
Public Delegate Function AddFileHandler(ByVal str As String, 
ByVal cls As CLASSIO, ByVal Node As TreeNode) As TreeNode              
Public Delegate Function AddTreeNodeHandler(ByVal str As String) As TreeNode 
        
        

【編輯推薦】