VB點(diǎn)虐 如何設(shè)計(jì)多線程運(yùn)行

Sub Main()

創(chuàng)新互聯(lián)堅(jiān)持“要么做到，要么別承諾”的工作理念，服務(wù)領(lǐng)域包括：成都網(wǎng)站制作、成都網(wǎng)站建設(shè)、外貿(mào)營銷網(wǎng)站建設(shè)、企業(yè)官網(wǎng)、英文網(wǎng)站、手機(jī)端網(wǎng)站、網(wǎng)站推廣等服務(wù)，滿足客戶于互聯(lián)網(wǎng)時(shí)代的噶爾網(wǎng)站設(shè)計(jì)、移動(dòng)媒體設(shè)計(jì)的需求，幫助企業(yè)找到有效的互聯(lián)網(wǎng)解決方案。努力成為您成熟可靠的網(wǎng)絡(luò)建設(shè)合作伙伴！

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() //困氏啟動(dòng)租謹(jǐn)多線程進(jìn)程

Application.DoEvents

Next

End Sub

求教VB點(diǎn)虐 多線程問題

多線程是用于處理復(fù)雜項(xiàng)慎高目的

打個(gè)比方

你的主程序線程A中有個(gè)循環(huán)，由于代碼是一行行走的，所以循環(huán)結(jié)束前下面的代碼無法運(yùn)行，而此時(shí)主界面的反應(yīng)就類似卡死的樣子，你點(diǎn)擊按鈕也沒有反應(yīng)，因?yàn)橹骶€程在忙著循環(huán)呢，所以對(duì)按鈕的事件代碼要等待了，如果要避免這種情況，就要用到多線程，另開一個(gè)新線程專門用來執(zhí)行循環(huán)代碼，轎孝孫主界面就不會(huì)卡死閉鏈了，只要在循環(huán)結(jié)束后將結(jié)果傳回主線程調(diào)用就可以了，再復(fù)雜點(diǎn)要涉及到委托，控制了

按你的要求其實(shí)你的代碼用不到多線程，只要把sleep放到兩段代碼中間就可以了。

新線程結(jié)束用thread.abort()

在vb點(diǎn)虐 中，多線程如何使用

Sub Main() Dim thr As New Thread(AddressOf 循環(huán)源中態(tài)) thr.Start("a") End Sub Sub 循環(huán)(a() As String) '這培斗里隨雹源你干什么循環(huán)也行 For Each i As String In a MsgBox(i) Next End Sub