首先,你把你那些要運(yùn)行很久的過程。盡量放在一個(gè)過程中。
創(chuàng)新互聯(lián)于2013年開始,是專業(yè)互聯(lián)網(wǎng)技術(shù)服務(wù)公司,擁有項(xiàng)目成都網(wǎng)站設(shè)計(jì)、網(wǎng)站制作網(wǎng)站策劃,項(xiàng)目實(shí)施與項(xiàng)目整合能力。我們以讓每一個(gè)夢(mèng)想脫穎而出為使命,1280元共和做網(wǎng)站,已為上家服務(wù),為共和各地企業(yè)和個(gè)人服務(wù),聯(lián)系電話:18980820575
因?yàn)榫€程只能是過程,不能使函數(shù),沒有返回值的。
然后,在某個(gè)事件下這樣寫:
**這里我假設(shè)你的那個(gè)很就的過程叫做 sub aaa()
調(diào)用如下:
Dim mythread As New System.Threading.Thread(AddressOf aaa)
mythread.Start()
***********
這樣就是定義一個(gè)線程,名字叫 mythread,這個(gè)線程會(huì)運(yùn)行aaa這個(gè)過程。
start 就是讓線程運(yùn)行。
是每個(gè)窗口都一個(gè)SQLConnection。
當(dāng)然也可以 每次連接一個(gè) SQLConnection。
如果是 一個(gè)窗口需要多次連接SQL,可以繼續(xù)使用原來的SQLConnection對(duì)象的,更改對(duì)應(yīng)的SQL命令即可。
Sub Main() Dim thr As New Thread(AddressOf 循環(huán)) 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
告訴你原理吧,要實(shí)現(xiàn)郵箱激活其實(shí)就是解決服務(wù)器上發(fā)郵件的問題,用戶注冊(cè)后,把用戶狀態(tài)默認(rèn)成未激活,然后生成一個(gè)鏈接到一個(gè)頁(yè)面,在那個(gè)頁(yè)面加載時(shí)運(yùn)行一個(gè)SQl語(yǔ)句把用戶狀態(tài)改成激活,然后再跳轉(zhuǎn)到什么成功激活的頁(yè)面就可以了,當(dāng)然要傳遞一些有效的參數(shù)了;郵件激活的話就給注冊(cè)時(shí)用戶填寫的郵箱發(fā)信就可以了,內(nèi)容里面寫上那個(gè)自動(dòng)生成鏈接,怎么發(fā)郵件呢,建議你使用第三方控件Jmail不錯(cuò),當(dāng)然還有別的,如果用Smtp協(xié)議發(fā)的話20封左右就掛掉了···
找回密碼一樣,用戶回答對(duì)密保問題的話就把密碼給他發(fā)到郵箱就是了,歸根結(jié)底還是發(fā)郵件···
補(bǔ)一句:源碼的沒有····
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() //啟動(dòng)多線程進(jìn)程
Application.DoEvents
Next
End Sub
當(dāng)前標(biāo)題:vb.net多線段鏈接的簡(jiǎn)單介紹
當(dāng)前網(wǎng)址:http://www.rwnh.cn/article24/dododce.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供靜態(tài)網(wǎng)站、全網(wǎng)營(yíng)銷推廣、網(wǎng)站設(shè)計(jì)、網(wǎng)頁(yè)設(shè)計(jì)公司、外貿(mào)網(wǎng)站建設(shè)、虛擬主機(jī)
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請(qǐng)盡快告知,我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng),如需處理請(qǐng)聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時(shí)需注明來源: 創(chuàng)新互聯(lián)