VB.net 如何设计多线程运行

Posted 2023-05-02

tags:

篇首语：本文由小常识网(cha138.com)小编为大家整理，主要介绍了VB.net 如何设计多线程运行相关的知识，希望对你有一定的参考价值。

Private Function MyFunctionHandler(byval Paramas() as string ) as Boolean
//这里是正常的处理函数代码和功能
//其中调用了第三方的插件dll
End Function
Private Function MyMulThreadCaller()
//多线程调用函数
MyFunctionHandler (GlobalParamas)
End Function
Sub Main()
Dim thr As New Thread(AddressOf MyMulThreadCaller)
For Pi as integer=0 to 4 //启用5线程
MulParams =Pi & vbTab & sFile & vbTab & dFile & vbTab & 1 & vbTab & DelN & vbTab & cr & vbTab & cg & vbTab & cb & vbTab & IndexI
GlobalParamas(pi)=MulParams .Split(vbTab)
thr.Start() //启动多线程进程
Application .DoEvents
next

End Sub
===========
上述代码本来是想启用5个线程的，但是实际的运行中，只启用了2个线程，然后就卡死不动了！
请问，如何才能实现多线程呢？

Sub Main()
Dim thr As Thread
For Pi As Integer=0 To 4 //启用5线程
MulParams =Pi & vbTab & sFile & vbTab & dFile & vbTab & 1 & vbTab & DelN & vbTab & cr & vbTab & cg & vbTab & cb & vbTab & IndexI
GlobalParamas(pi)=MulParams .Split(vbTab)
thr=New Thread(AddressOf MyMulThreadCaller)
thr.Start() //启动多线程进程
Application.DoEvents
Next
End Sub 参考技术A 下面是建行ETC办理步骤

vb.net 多线程访问界面控件

网上查了，都说用委托 invoke，就是不知道具体怎么做。麻烦大神了！
要执行的函数是 daochu() 就是把 datagridview1导出excel
private sub daochu()
SaveFileDialog1.DefaultExt = "xls"
SaveFileDialog1.Filter = "Text documents *.xls|*.xls|Text documents *.xlsx|*.xlsx|All File *.*|*.*"
Dim yon As SaveOptions = SaveFileDialog1.ShowDialog()
If yon = 1 Then
ToolStripProgressBar1.Style = ProgressBarStyle.Blocks
（省略创建exce 对象）
With xlapp.ActiveSheet
.cells(1, 1).value = Label1.Text & " 汇率 " & TextBox1.Text
.range("A1:M1").MergeCells = True
.Range("A1").HorizontalAlignment = Excel.XlHAlign.xlHAlignCenter
.Range("A1").VerticalAlignment = Excel.XlVAlign.xlVAlignCenter
' .range("A1:N1").Borders(XlBordersIndex.xlEdgeBottom).LineStyle = Excel.XlLineStyle.xlLineStyleNone
.range("A1:X1").Borders(Excel.XlBordersIndex.xlEdgeBottom).LineStyle = 1
.range("A2:X2").Borders(Excel.XlBordersIndex.xlEdgeBottom).LineStyle = 1
'.range("A20:N20").Borders(Excel.XlBordersIndex.xlEdgeBottom).LineStyle = 1
.cells(2, 1).value = "编号"

For i = 0 To Datagridview1.RowCount - 1
For j = 0 To Datagridview1.ColumnCount - 1
.cells(3 + i, j + 1).value = Datagridview1.Rows(i).Cells(j).Value
.cells(3 + i, j + 1).Borders(Excel.XlBordersIndex.xlEdgeTop).LineStyle = 1
.cells(3 + i, j + 1).Borders(Excel.XlBordersIndex.xlEdgeBottom).LineStyle = 1
.cells(3 + i, j + 1).Borders(Excel.XlBordersIndex.xlEdgeRight).LineStyle = 1
.cells(3 + i, j + 1).Borders(Excel.XlBordersIndex.xlEdgeLeft).LineStyle = 1
If CStr(.cells(3 + i, 2).value) = "合计" Then .range("A" & 3 + i & ":X" & 3 + i).Interior.Color = 10079487
p_value = (i * (Datagridview1.ColumnCount) + j + 1) / (Datagridview1.RowCount * Datagridview1.ColumnCount)
If p_value <= 100 Then
ToolStripProgressBar1.Value = p_value
End If
Application.DoEvents()
Next
Next
End With
省略保存excel代码
end sub
sub button1_click ()
Dim Thread2 As New System.Threading.Thread(AddressOf daochu)
Thread2.ApartmentState = ApartmentState.STA
Thread2.Start()
end sub