vb.net多线程,VB多线程

vb.net多线程如何返回参数，举个例子，谢谢

Public Class Form1

我们拥有10年网页设计和网站建设经验，从网站策划到网站制作，我们的网页设计师为您提供的解决方案。为企业提供成都做网站、成都网站制作、成都外贸网站建设、微信开发、成都微信小程序、手机网站制作设计、H5页面制作、等业务。无论您有什么样的网站设计或者设计方案要求，我们都将富于创造性的提供专业设计服务并满足您的需求。

Public Class SquareClass '把多线程调用的函数封装到类中，通过类事件返回

Public Value As Double

Public Square As Double

Public Event ThreadComplete(ByVal Square As Double)

Public Sub CalcSquare()

Square = Value * Value

RaiseEvent ThreadComplete(Square)

End Sub

End Class

Dim WithEvents oSquare As SquareClass

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click '多线程返回值测试，当线程运行完成激发事件

oSquare = New SquareClass()

Dim t As New Threading.Thread(AddressOf oSquare.CalcSquare)

oSquare.Value = 30

t.Start()

End Sub

Sub SquareEventHandler(ByVal Square As Double) Handles oSquare.ThreadComplete '响应事件函数

MsgBox("The square is "  Square)

End Sub

End Class

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

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

VB.net多线程编程问题

你可以在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

在vb.net中，多线程如何使用

Sub Main() Dim thr As New Thread(AddressOf 循环) thr.Start("a") End Sub Sub 循环(a() As String) '这里随你干什么循环也行 For Each i As String In a MsgBox(i) Next End Sub

怎么在vb.net里用多线程缩短循环时间

多线程并不一定就可以缩短时间，具体要看你上面的“过程”是否调用数据库完成。如果调用了数据库，可以考虑用存储过程替代“过程”。另外看看“过程”里是否反复打开和关闭了数据库连接，如果是，这才是真正的耗时动作。如果没调用数据库，可以考虑使用Parallel类(.net4以后)里面的函数，使多个任务在多核CPU上并行运行，缩短时间。

本文题目：vb.net多线程,VB多线程
分享URL：https://www.cdcxhl.com/article40/hsgpeo.html

成都网站建设公司_创新互联，为您提供虚拟主机、网站改版、响应式网站、品牌网站建设、关键词优化、ChatGPT

广告

声明：本网站发布的内容（图片、视频和文字）以用户投稿、用户转载内容为主，如果涉及侵权请尽快告知，我们将会在第一时间删除。文章观点不代表本网站立场，如需处理请联系客服。电话：028-86922220；邮箱：631063699@qq.com。内容未经允许不得转载，或转载时需注明来源： 创新互联