Question

我想知道如何设置我通过引用传递的变量的值。在这个例子中，我传递一个整数，但在应用程序中，它可能是一个不同的对象。

无论如何，这里有一个简短的总结：

程序从Sub Main（）开始，并引发一个新的表单实例。表单的构造函数是一个ByRef参数。
执行New（）子程序时，此参数将保存在表单实例的私有成员中。
用户按下按钮，并为该私人成员分配值。
为什么原始结果也没有改变？（它仍然是0而不是5555）

代码示例：

Option Strict On

Public Class SpecialForm
    Inherits System.Windows.Forms.Form
    Private WithEvents _Btn As System.Windows.Forms.Button = Nothing
    Private _Result As Integer
    Public Sub New(ByRef Out_Result As Integer)
        _Result = Out_Result
    End Sub
    Private Sub SpecialForm_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        _Btn = New System.Windows.Forms.Button
        With _Btn
            'Set size
            'Set location
            'Set text
            'etc
        End With
        Me.Controls.Add(_Btn)
    End Sub
    Private Sub Btn_Click(sender As Object, e As System.EventArgs) Handles _Btn.Click
        _Result = 5555
        Me.Close()
    End Sub
End Class

Module EntryPoint
    Public Sub Main()
        Dim result As Integer
        Using mySpecialForm As New SpecialForm(result)
            mySpecialForm.ShowDialog()
        End Using
        MsgBox(String.Format("The result is {0}", result)) 'DEBUG MESSAGE
    End Sub
End Module

也许我做错了，或者说这可能是语言的限制。但有没有办法在不使用全局的情况下做到这一点？

Answer 1

语句_Result = Out_Result存储Out_Result的值而不是其地址。您应该使用类的实例，例如：

Class MyData
    public value as integer
End Class

你可以这样做：

_Result.value = 5555

设置引用传递的整数的值

1 个答案: