VS中简单的多线程示例

Guardian·F·冰

我想问一下，多线程是不是只能计算数据，不能用多线程对Excel进行操作？比如说同时对两个页面中的数据进行填充？因为我每次试了之后都给我报出异常来，求指点~

doryan

Guardian·F·冰 发表于 2012-11-30 22:47
我想问一下，多线程是不是只能计算数据，不能用多线程对Excel进行操作？比如说同时对两个页面中的数据进行填 ...

没有问题啊 为了严谨我亲自测试了一下

建立文档级的Excel项目

在Sheet1中添加一个button控件 相关代码如下

1. Imports System.Threading
   
2. 
   
3. Public Class Sheet1
   
4. 
   
5.     Private Sub Sheet1_Startup() Handles Me.Startup
   
6. 
   
7.     End Sub
   
8. 
   
9.     Private Sub Sheet1_Shutdown() Handles Me.Shutdown
   
10. 
    
11.     End Sub
    
12.     Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    
13.         Dim rng() As Microsoft.Office.Interop.Excel.Range
    
14.         Dim num, i As Integer
    
15.         num = Application.InputBox("请输入需要同时填充几个区域", Type:=1)
    
16.         ReDim rng(num - 1)
    
17.         Dim s() As sA : ReDim s(num - 1)
    
18.         Dim Td() As Thread : ReDim Td(num - 1)
    
19.         For i = 0 To num - 1
    
20.             rng(i) = Application.InputBox("请输入需要填充的区域", Type:=8)
    
21.             s(i) = New sA(rng(i))
    
22.         Next
    
23.         For i = 0 To num - 1
    
24.             Td(i) = New Thread(New ThreadStart(AddressOf s(i).SumeOfNum))
    
25.             Td(i).Start()
    
26.         Next
    
27.     End Sub
    
28. End Class
    
29. Public Class sA
    
30.     Private sRng As Microsoft.Office.Interop.Excel.Range
    
31.     Public Sub New(ByVal rng As Microsoft.Office.Interop.Excel.Range)
    
32.         sRng = rng
    
33.     End Sub
    
34.     Public Sub SumeOfNum()
    
35.         sRng.Value = "OK"
    
36.     End Sub
    
37. End Class

复制代码

一点问题都没有呢 多线程完成任务.....

但是你说的两个页面中的数据填充 是否是在两个工作簿中同时填充数据呢？

如果是的话也不会有问题 不过应该制作的应该是EXCEL的外接程序 或者 窗体应用程序 那样比较方便

Guardian·F·冰

非常感谢doyran~

風中的雨點

这个正需要学习一下。

3dcapture

好文章，感谢分享。

kry100

支持一下！

wu1306

谢谢分享   。