快捷導(dǎo)航

ByVal和ByRef(編寫ASP子程序所用到命令）

更新時(shí)間：2006年08月26日 00:00:00 作者：

ByRef 傳送參數(shù)內(nèi)存的實(shí)際地址給被調(diào)用者。也就是說，棧中壓入的是實(shí)際內(nèi)容的地址。被調(diào)用者可以直接更改該地址中的內(nèi)容。

ByVal 傳送參數(shù)內(nèi)存的一個(gè)拷貝給被調(diào)用者。也就是說，棧中壓入的直接就是所傳的值。
ByRef 傳送參數(shù)內(nèi)存的實(shí)際地址給被調(diào)用者。也就是說，棧中壓入的是實(shí)際內(nèi)容的地址。被調(diào)用者可以直接更改該地址中的內(nèi)容。
ByVal是傳遞值源數(shù)據(jù)不會(huì)被修改
你可以把這個(gè)值當(dāng)作自己的局部變量來使用
ByRef是傳遞地址，源數(shù)據(jù)可能被修改
你對(duì)這個(gè)變量的操作將對(duì)你傳入的那個(gè)變量產(chǎn)生影響，就像指針的感覺

實(shí)例：

復(fù)制代碼代碼如下:

 
sub Add1(ByVal no as int32) 
    no=no+100 
end sub 
sub Add2(ByRef no as int32) 
    no=no+100 
end sub 
private sub button1_click(sender as object,e as eventargs)handles button1.click 
    dim a as int32 
    a=100 
    Add1(a) 
    msgbox ("a的值為：" & a)     '顯示：a的值為100 
    Add2(a) 
    msgbox ("a的值為：" & a)     '顯示：a的值為200,因?yàn)锳dd2中的參數(shù)no為ByRef,即 
                                 '按地址傳遞，因此在Add2中對(duì)no進(jìn)行修改后，將會(huì)導(dǎo)致 
                                 '源參數(shù)a的值也被修改。 
End Sub 

——————————————————————————————————————
3、ByVal和ByRef
    ByVal傳遞的參數(shù)值，而ByRef傳遞的參數(shù)的地址。在這里，我們不用去區(qū)別傳指針/傳地址/傳引用的不同，在VB里，它們根本就是一個(gè)東西的三種不同說法，即使VB的文檔里也有地方在混用這些術(shù)語（但在C++里的確要區(qū)分指針和引用）
    初次接觸上面的程序二SwapPtr的朋友，一定要搞清在里面的CopyMemory調(diào)用中，在什么地方要加ByVal，什么地方不加（不加ByVal就是使用VB缺省的ByRef）
    準(zhǔn)確的理解傳值和傳地址（指針）的區(qū)別，是在VB里正確使用指針的基礎(chǔ)。
    現(xiàn)在一個(gè)最簡單的實(shí)驗(yàn)來看這個(gè)問題，如下面的程序三：
【程序三】：體會(huì)ByVal和ByRef

復(fù)制代碼代碼如下:

Sub TestCopyMemory() 
Dim k As Long 
k = 5 
Note: CopyMemory ByVal VarPtr(k), 40000, 4 
Debug.Print k 
End Sub 

    上面標(biāo)號(hào)Note處的語句的目的，是將k賦值為40000，等同于語句k=40000，你可以在"立即"窗口試驗(yàn)一下，會(huì)發(fā)現(xiàn)k的值的確成了40000。
    實(shí)際上上面這個(gè)語句，翻譯成白話:
-----------------------------------------------------------------
就是從保存常數(shù)40000的臨時(shí)變量處拷貝4個(gè)字節(jié)到變量k所在的內(nèi)存中。
-----------------------------------------------------------------
    現(xiàn)在我們來改變一個(gè)Note處的語句，若改成下面的語句：
Note2:   CopyMemory ByVal VarPtr(k), ByVal 40000, 4
    這句話的意思就成了，從地址40000拷貝4個(gè)字節(jié)到變量k所在的內(nèi)存中。由于地址40000所在的內(nèi)存我們無權(quán)訪問，操作系統(tǒng)會(huì)給我們一個(gè)Access Violation內(nèi)存越權(quán)訪問錯(cuò)誤，告訴我們"試圖讀取位置0x00009c40處內(nèi)存時(shí)出錯(cuò)，該內(nèi)存不能為'Read'"。
    我們?cè)俑某扇缦碌恼Z句看看。
Note3:   CopyMemory VarPtr(k), 40000, 4
    這句話的意思就成了，從保存常數(shù)40000的臨時(shí)變量處拷貝4個(gè)字節(jié)到到保存變量k所在內(nèi)存地址值的臨時(shí)變量處。這不會(huì)出出內(nèi)存越權(quán)訪問錯(cuò)誤，但k的值并沒有變。
    我們可以把程序改改以更清楚的休現(xiàn)這種區(qū)別，如下面的程序四：
【程序四】：'看看我們的東西被拷貝到哪兒去了

復(fù)制代碼代碼如下:

Sub TestCopyMemory() 
Dim i As Long, k As Long 
k = 5 
i = VarPtr(k) 
NOTE4: CopyMemory i, 40000, 4 
Debug.Print k 
Debug.Print i 
i = VarPtr(k) 
NOTE5: CopyMemory ByVal i, 40000, 4 
Debug.Print k 
End Sub 

程序輸出：
5
40000
40000
由于NOTE4處使用缺省的ByRef，傳遞的是i的地址（也就是指向i的指針），所以常量40000拷貝到了變量i里，因此i的值成了40000，而k的值卻沒有變化。但是，在NOTE4前有：i=VarPtr(k)，本意是要把i本身做為一個(gè)指針來使用。這時(shí)，我們必須如NOTE5那樣用ByVal來傳遞指針i，由于i是指向變量k的指針，所以最后常量40000被

您可能感興趣的文章: