2

我正在寻找构建一个多线程文本导入工具（通常是 CSV 到 SQL Server 2005），并希望在 VB.NET 中执行此操作，但我不反对 C#。我有 VS 2008 试用版，只是不知道从哪里开始。谁能指出我可以查看和使用 VS 2008 的非常简单的多线程应用程序的源代码的方向？

谢谢！

4

3 回答 3

4

这是一篇很棒的文章：

http://www.devx.com/DevX/10MinuteSolution/20365

尤其：

Dim t As Thread
t = New Thread(AddressOf Me.BackgroundProcess)
t.Start()

Private Sub BackgroundProcess()
   Dim i As Integer = 1
   Do While True
        ListBox1.Items.Add("Iterations: " + i)
        i += 1
        Thread.CurrentThread.Sleep(2000)
   Loop
End Sub
于 2008-09-18T18:59:32.510 回答
2

引用的DevX文章来自 2001 年和 .Net Framework 1.1，但今天 .Net Framework 2.0 提供了BackgroundWorker类。如果您的应用程序包含前台 UI 组件，这是推荐的线程类。

从MSDN 线程和线程：

如果您需要运行与用户界面交互的后台线程，.NET Framework 2.0 版提供了一个使用事件进行通信的 BackgroundWorker 组件，并通过跨线程封送处理到用户界面线程。

这个来自MSDN BackgroundWorker 类的示例显示了一个后台任务、进度 % 和取消选项。（该示例比 DevX 示例更长，但功能更多。）

Imports System.ComponentModel

Partial Public Class Page
    Inherits UserControl
    Private bw As BackgroundWorker = New BackgroundWorker

    Public Sub New()
        InitializeComponent()

        bw.WorkerReportsProgress = True
        bw.WorkerSupportsCancellation = True
        AddHandler bw.DoWork, AddressOf bw_DoWork
        AddHandler bw.ProgressChanged, AddressOf bw_ProgressChanged
        AddHandler bw.RunWorkerCompleted, AddressOf bw_RunWorkerCompleted

    End Sub
    Private Sub buttonStart_Click(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs)
        If Not bw.IsBusy = True Then
            bw.RunWorkerAsync()
        End If
    End Sub
    Private Sub buttonCancel_Click(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs)
        If bw.WorkerSupportsCancellation = True Then
            bw.CancelAsync()
        End If
    End Sub
    Private Sub bw_DoWork(ByVal sender As Object, ByVal e As DoWorkEventArgs)
        Dim worker As BackgroundWorker = CType(sender, BackgroundWorker)

        For i = 1 To 10
            If bw.CancellationPending = True Then
                e.Cancel = True
                Exit For
            Else
                ' Perform a time consuming operation and report progress.
                System.Threading.Thread.Sleep(500)
                bw.ReportProgress(i * 10)
            End If
        Next
    End Sub
    Private Sub bw_RunWorkerCompleted(ByVal sender As Object, ByVal e As RunWorkerCompletedEventArgs)
        If e.Cancelled = True Then
            Me.tbProgress.Text = "Canceled!"
        ElseIf e.Error IsNot Nothing Then
            Me.tbProgress.Text = "Error: " & e.Error.Message
        Else
            Me.tbProgress.Text = "Done!"
        End If
    End Sub
    Private Sub bw_ProgressChanged(ByVal sender As Object, ByVal e As ProgressChangedEventArgs)
        Me.tbProgress.Text = e.ProgressPercentage.ToString() & "%"
    End Sub
End Class
于 2009-02-04T03:53:10.937 回答
1

关于我发现的最好的线程文档是这个http://www.albahari.com/threading/

如果可以的话，简单示例的问题在于它们通常过于简单。一旦您在后台演示中通过计数或排序，您通常需要更新 UI 或类似内容，并且有一些陷阱。同样，您很少需要在简单的示例中处理资源争用问题，并且当资源不可用时（例如 Db 连接）需要考虑让线程优雅地降级。

从概念上讲，您需要决定如何跨线程分配工作以及需要多少线程。管理线程会产生开销，并且某些机制使用共享线程池，这本身可能会受到资源争用的影响（例如，每当您运行一个仅显示空表单的程序时，您会在任务管理器下看到多少线程）。

因此，对于您的情况，您执行实际上传的线程需要在它们已完成、是否失败（以及失败原因）时发回信号。控制器需要能够处理这些并管理启动/停止过程等。

最后（几乎），假设制作多线程会提高性能并不总是正确的。例如，如果您将文件分割成多个段，但它必须通过低速链路（例如 ADSL）传输，那么您会受到外力的限制，并且再多的线程技巧也无法解决这个问题。这同样适用于数据库更新、Web 请求、任何涉及大量磁盘 i/o 的事情等等。

尽管如此，我不是末日的预言家。这里的参考资料足以帮助您实现您想要的，但请注意，线程看起来很复杂的原因之一是因为它可以:)

如果您想要比 BackgroundWorker/Threadpool 更多的控制，但又不想自己做所有事情，那么至少有两个非常好的免费线程库在这个地方敲门（Wintellect 和 PowerThreading）

干杯

西蒙

于 2009-08-14T12:47:42.783 回答