VB.net多线程编程问题

Posted 2023-05-02

tags:

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

软件要连接远程4台计算机的固定端口和本地计算机的8个端口。要实时判断网络状态（显示到界面）并且读取12个端口的数据进行处理,用my.Computer.Network.Ping(IP,Timeout)判断网络状态.现在用的是TIMER控件。如果网络未连接在LOAD时要等10秒才能进入软件。网络正常但是端口没收到数据时会处于无响应状态。这种情况如果用多线程能解决吗？具体方法？
是连接不上的时候软件无响应10秒，要避免这个问题出现。端口没有读到数据的时候还要继续去读端口，直到有数据。

你可以在timer前用if判断网络状态，
如断开，可用
threading.Thread.Sleep（10000） ‘当前线程挂起10秒
’可以开一个新线程去读取脱机数据。

如连接，则继续执行。

补充：
dim i as integer
'超过100次退出，避免死循环
for i=0 to 100
try

'ping你的端口

if ‘ok

exit for
else
threading.Thread.Sleep（10000） ‘当前线程挂起10秒
end
Catch ex As Exception
End Try
next 参考技术A 你到底想干嘛，能说明白吗？怎么就一个等10秒才进入软件，没数据时干什么？可以去CSDN论坛

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