建站
咨詢
售后
建站咨詢
新聞中心
vb.net 給委托的函數(shù)傳遞參數(shù)
兩個(gè)參數(shù)：一個(gè)是數(shù)組名,一個(gè)是傳遞的長(zhǎng)度
企業(yè)建站必須是能夠以充分展現(xiàn)企業(yè)形象為主要目的，是企業(yè)文化與產(chǎn)品對(duì)外擴(kuò)展宣傳的重要窗口，一個(gè)合格的網(wǎng)站不僅僅能為公司帶來巨大的互聯(lián)網(wǎng)上的收集和信息發(fā)布平臺(tái)，創(chuàng)新互聯(lián)建站面向各種領(lǐng)域：混凝土攪拌站等成都網(wǎng)站設(shè)計(jì)、成都全網(wǎng)營(yíng)銷推廣解決方案、網(wǎng)站設(shè)計(jì)等建站排名服務(wù)。
Function thename(ByVal imgFrom As Image) As String
thename = imgFrom.Name
End Function
Private Sub Image1_Click()
MsgBox thename(Image1)
End Sub
vb.net 中的異步委托機(jī)制，最好有相關(guān)的詳細(xì)資料講解，我是新手
所謂的委托（Delegate）實(shí)際上就是和C/C++里面的函數(shù)指針差不多，只是增強(qiáng)了類型檢查等其它健壯性方面的內(nèi)容。異步調(diào)用的回調(diào)函數(shù)有格式要求，所謂格式要求就是參數(shù)數(shù)量及類型順序的要求，具體是什么樣的你要看文檔了。一般.NET Framework里面都是AsyncCallBack。
所謂異步編程，就是說你要求做某樣事情，但是在完成這件事之前，我能接著做下一件事，而當(dāng)這件事情完成之后，能夠有一種機(jī)制通知我完成了。相反，在完成之前一直等待，直到完成了才能進(jìn)行下一步操作，叫做同步。一般來說，我們平常寫的程序都是“同步”，或者成為“順序執(zhí)行”更加貼切，而“異步”則可以說是“亂序執(zhí)行”的。
可以看到，同步的代碼非常好寫，因?yàn)槲覀兛梢灶A(yù)測(cè)執(zhí)行的順序和情況。而異步就不是很好寫了，因?yàn)闊o法得知完成的時(shí)候我正在做什么、做到什么程度。過去寫這些代碼是比較麻煩的，實(shí)現(xiàn)的辦法就是自己建立一個(gè)處理異步事物的線程，然后在這個(gè)線程和主線程之間建立聯(lián)系。而現(xiàn)在這個(gè)過程大部分已經(jīng)被系統(tǒng)封裝起來了，你只要調(diào)用BeginXXX，系統(tǒng)就會(huì)為你自動(dòng)建立一個(gè)新的線程處理這個(gè)事情，當(dāng)前線程不阻塞，可以馬上進(jìn)行下一項(xiàng)操作，于是就實(shí)現(xiàn)了“異步”了。但是從前面我講道的你就應(yīng)該知道，開始異步操作并沒有完事，還需要能夠得知操作完成，并能夠進(jìn)行相應(yīng)的處理。于是你在調(diào)用BeginXXX的時(shí)候就需要傳遞一個(gè)回調(diào)函數(shù)，在.NET里是以委托的方式傳遞的?；卣{(diào)函數(shù)的意思就是“回過頭來調(diào)用你”，或者說A調(diào)用B并且傳遞函數(shù)C的地址，于是B在指定的情況下調(diào)用A指定的函數(shù)C?，F(xiàn)在就應(yīng)該明白這個(gè)回調(diào)函數(shù)在BeginXXX中的作用就是，當(dāng)你指定的事情做完之后將會(huì)調(diào)用這個(gè)回調(diào)函數(shù)。
在這個(gè)回調(diào)函數(shù)里面，我們就可以進(jìn)行一些后續(xù)的工作，例如接著進(jìn)行性質(zhì)相同的工作，或者相應(yīng)的處理。在這里，我們也許向知道剛才那件事情執(zhí)行的情況和結(jié)果，這個(gè)時(shí)候我們就可以通過EndXXX來獲得這些東西。說到這里，結(jié)合上面說到的AsyncCallBack以及隨便哪個(gè)BeginXXX，我們可能會(huì)對(duì)下列兩個(gè)東西感到困惑：
IAsyncResult
stateObject
首先說IAsyncResult，這個(gè)是一個(gè)接口，你在回調(diào)函數(shù)中通過參數(shù)獲得的對(duì)象具體是什么類型的一般我們不需要關(guān)心，我們只需要依照這個(gè)接口的定義進(jìn)行訪問就可以了。簡(jiǎn)單點(diǎn)說，這個(gè)接口規(guī)定了順利完成異步操作所需信息的最小集合。一般來說，我們需要通過這個(gè)參數(shù)（ar）來識(shí)別異步操作。比如說，你在一瞬間發(fā)起一百個(gè)“從不同的網(wǎng)絡(luò)連接獲取數(shù)據(jù)”的異步請(qǐng)求，當(dāng)某一個(gè)請(qǐng)求被完成的時(shí)候，如何判斷是那個(gè)請(qǐng)求被完成呢？就是依靠回調(diào)函數(shù)的參數(shù)ar。實(shí)際上你一般是不需要參與判斷的，你只要將這個(gè)ar傳遞給EndXXX就可以了，EndXXX會(huì)根據(jù)這個(gè)ar自行判斷的。需要注意的是，這個(gè)ar就是你調(diào)用BeginXXX的時(shí)候的返回值，可以說是一個(gè)存根，如果你需要在完成操作前終止他，也可以通過將這個(gè)存根傳遞給EndXXX，EndXXX就會(huì)根據(jù)情況終止操作。（IAsyncResult里面的IsCompleted提供了是否已經(jīng)完成的判斷，EndXXX就是根據(jù)這個(gè)值決定是否有必要終止。當(dāng)然，你不需要關(guān)心他。）
接下來我們看看stateObject，這個(gè)東西被稱為狀態(tài)對(duì)象。于是大家就可能奇怪了：那個(gè)ar不也是狀態(tài)嗎？實(shí)際上stateObject是一個(gè)留給用戶使用的東西，BeginXXX/EndXXX根本就不使用。這個(gè)stateObject會(huì)被裝到ar的AsyncState里面，也就是說這個(gè)stateObject可以隨時(shí)通過訪問存根（BeginXXX的返回值）或者回調(diào)函數(shù)里的ar得到，你完全沒必要額外的保存到什么地方，更不需要費(fèi)神的去考慮如何和你的某個(gè)異步操作對(duì)應(yīng)起來。說了半天，這個(gè)東西有什么用呢？你想怎么用就怎么用唄，發(fā)揮一下你的想象力。比如說，你可以保存這是第幾次操作，或者在多個(gè)異步操作之間要同步的時(shí)候可以作為信號(hào)旗，再或者直接是操作這個(gè)異步操作的對(duì)象（x.BeginXXX的時(shí)候?qū)傳遞到stateObject參數(shù)上）。
第一種用法有點(diǎn)多余，第二種用法有點(diǎn)復(fù)雜，第三種我用得最多。因?yàn)槟愫芸赡茉趨f(xié)一個(gè)服務(wù)端，而服務(wù)段必須能夠響應(yīng)多個(gè)客戶端，這決定了必須用異步。同時(shí)，對(duì)于多個(gè)客戶端必然有多個(gè)對(duì)象，例如網(wǎng)絡(luò)連接的時(shí)候可能是Socket。而實(shí)際上處理的方法或者協(xié)議是和具體哪個(gè)客戶端沒有關(guān)聯(lián)的，因此我們只需要一套處理程序就夠了。這個(gè)時(shí)候第三種用法就很有用處，我們完全可以把代碼寫成這樣：
Sub DataReceived(ByVal ar As IAsyncResult)
ar.AsyncState.EndReceive(ar)
ar.AsyncState.BeginReceive(... , ar.AsyncState)
End Sub
這樣就不需要額外的數(shù)據(jù)結(jié)構(gòu)去記錄有那些正在活動(dòng)的對(duì)象了。
vb.net 如何傳遞類參數(shù)
線程結(jié)束后利用委托生成事件返回，線程應(yīng)用包括傳入和傳出參數(shù)。
Public Delegate Sub ThreadCallback(value As ThreadResult)
Public Class Form1
Private WithEvents _th_1 As Thread_1
Protected Overrides Sub OnLoad(e As System.EventArgs)
Dim value As ThreadObject
value.Index = 1
Me._th_1 = New Thread_1(Me)
Me._th_1.Run(value)
MyBase.OnLoad(e)
End Sub
Private Sub Thread_1_End(sender As Object, e As ThreadEventArgs) Handles _th_1.ThreadEnd
Me.TextBox1.Text = e.Result.Text
End Sub
End Class
Public Class Thread_1
Public Event ThreadEnd(sender As Object, e As ThreadEventArgs)
Private _control As Control
Sub New(control As Control)
Me._control = control
End Sub
Public Sub Run(value As Object)
Dim th As New Threading.Thread(AddressOf ThreadProc)
th.Start(value)
End Sub
Private Sub ThreadProc(obj As Object)
Dim value As ThreadObject = CType(obj, ThreadObject)
Dim result As ThreadResult = Nothing
If value.Index = 1 Then result.Text = "測(cè)試"
Dim callback As New ThreadCallback(AddressOf ThreadInvoke)
_control.Invoke(callback, result)
End Sub
Private Sub ThreadInvoke(value As ThreadResult)
RaiseEvent ThreadEnd(Me, New ThreadEventArgs(value))
End Sub
End Class
Public Structure ThreadObject
Public Index As Integer
'Public Rect As Rectangle
End Structure
Public Structure ThreadResult
Public Text As String
'Public Rect As Rectangle
End Structure
Public Class ThreadEventArgs
Inherits System.EventArgs
Private _result As ThreadResult
Public ReadOnly Property Result As ThreadResult
Get
Return _result
End Get
End Property
Sub New(value As ThreadResult)
Me._result = value
End Sub
End Class
急求：vb.net委托的資料...
我給你個(gè)簡(jiǎn)單的例子吧，
public Delegate Sub GetUserInfo '首先定義一個(gè)委托，Delegate 為委托關(guān)鍵字
'''
'''
'''定義一個(gè)方法，該方法將會(huì)被交給委托去做
public sub GetData
dim strUserData as string="sdafsdhf"
msgbox(strUserData )
end sub
'''
'''
'''調(diào)用委托
public sub strData
dim aa as new GetUserInfo '實(shí)例化剛才定義的委托
aa=AddressOf GetData'通過AddressOf 讓委托去執(zhí)行GetData方法
end sub
簡(jiǎn)單點(diǎn)說就是strData 不想去做GetData 這件事，所以它就將GetData 這件事交給委托GetUserInfo 去幫它做
文章名稱：關(guān)于vb.net帶參數(shù)的委托的信息
網(wǎng)頁(yè)地址：http://fisionsoft.com.cn/article/hegodd.html
