Question

你好这个网站是我的nr1代码灵感，现在我有一个问题myselve，我无法解决。

我有一个包含Tagcollection的模块CommCtrl 在另一个课程中，我提到了这个系列如果我使用项目填充参考，则仅添加项目在这个类中，而不是在CommCtrl类中。我不明白为什么引用不起作用。

Public Module CommCtrl
   Public TagCollection As New List(Of Tag)
   Private WayPointManager As WayPointClass

   Public Sub BuildConfigData()        
       WayPointManager = New WayPointClass()
       WayPointManager.SetTagListReference(TagCollection)

       ' Count items in Tagcollection here is 0 items 
       call WayPointManager.FillTags
       ' Count items in Tagcollection here is still 0 items??
   End Sub

End module  


Public Class WayPointClass

    Private TagListReference As List(Of Tag)

    Public Sub SetTagListReference(ByRef TagList As List(Of Tag))
        TagListReference = TagList
    End Sub 

    Public Function FillTags() As Boolean
        TagListReference = XmlBuddy.Deserialize(reader)    ' Fill Up the taglist
        ' Count items in TagListReference here is 100 items 
    End Function
 End Class

Answer 1

ByRef工作正常。发生的事情是：

当您首次调用WayPointClass.SetTagListReference方法时，您要将TagListReference字段设置为指向传入的List(of Tag)参数（在您的示例中，这将是CommCtrl.TagCollection）。

但是当您拨打WayPointClass.SetTags时，您没有设置原始列表（CommCtrl.TagCollection）的值，您实际上是在将TagListReference更改为指向新列表，并且没有原始CommCtrl.TagCollection的链接。

换句话说，最初你将TagListReference（A）指向TagCollection（B），即A - ＆gt; B.但是你正在制作A - ＆gt; C（XmlBuddy.Deserialize(reader)的结果），B不变。

正如Hans Passant所说，你可以通过将CommCtrl.TagCollection传递给`FillTags'方法来避免这种情况，因此你肯定会修改该列表。

Answer 2

带有ByRef关键字的方法参数只有在参数显示在作业的左侧时才会发生。

sub modify(byref p as integer)
    p = 1 ' byref param on the LHS of an assignment
end sub

dim a as int = 0
call modify(a)
console.writeline(a) ' prints 1

VB ByRef不起作用

2 个答案: