VBA基础
Access vba中参数前关键字ByRef和ByVal的详细解释
2013-10-18 14:59:25
    在公用过程或是自定义函数中，我们经常会在定义的参数前，看到关键字 ByRef 或 ByVal ，它们起什么作用呢？它们又有什么区别呢？我们先看一段代码。
 
过程实例代码：
Sub CallByRef(ByRef Y as Integer )  ‘代码中Y 及为输入的参数
    Y = 2
End Sub
 
    当我们调用这个过程时，可以用两种方式来传送参数，即：传址方式（也称：引用方式）和传值方式。如果以传址方式传送，加入关键字ByRef ；如果以传值方式传送，则加上关键字ByVal。
 
    ByRef 表示该参数按地址传递。 ByRef 是 Visual Basic 的缺省选项。直白的说这传递方式所传递的是参数的地址，因此当两个变量指向同一个内存地址时，其中一个变量改变，别一个变量也会随之变化。
见如下实例：
'**************************************
'用“传址”方式传递参数
'************************************** 
Private Sub Command0_Click()
  Dim X As Integer
  X = 1
  MsgBox "调用程序之前X值是：" & X
  Call CallByRef(X)
  MsgBox "调用程序之后X值是：" & X
End Sub
'默认方式是传址方式传递参数，可以不加 ByRef 关键字
Sub CallByRef(ByRef Y As Integer)
    Y = Text2
End Sub
 
   
 
       ByVal 表示该参数按值传递，可选。如果不希望调用的程序修改原调用端的变量值，可以加入该关键字，这保证了该变量有自己独立内存区域或者说空间，而不会受到调用端变量的影响。只会把传递的变量值重新复制一份给调用的程序，所以即使在程序内变更参数的值，也不会改变原调用端的参数值。
 
见如下实例：
 '**************************************
'用“传值”方式传递参数
'**************************************
Private Sub Command1_Click()
  Dim X As Integer
  X = 1
  MsgBox "调用程序之前X值是：" & X
  Call CallByVal(X)
  MsgBox "调用程序之后X值是：" & X
End Sub
'以传值方式传递参数，必须加上 ByVal 关键字
Sub CallByVal(ByVal Y As Integer)
    Y = Text2
End Sub
-----------------------------------------------------------------------------------------------------------------
首页