函数返回Byref

Question

函数可以返回值byref而不是默认的byval吗？也就是说，允许我直接编辑它正在检索的变量，而不是只给我一个变量的副本。

现在，我正在尝试编写一个函数，它将根据用户通过组合框选择的内容，返回一个特定的设置(例如。My.Settings.somethingHere)。然后，我希望能够直接通过调用该函数来编辑设置。这有可能吗？

private function myFunction() as byte
  select case comboBox1.text
     case "a"
       return my.settings.a
     case "b"
       return my.settings.b
  end select
end function

private sub something()
  myFunction() -= 1
end sub

Answer 1

字节的可写引用。您可以创建属性( Function can't return )来赋值。

 Public WriteOnly Property Change As SByte
        Set(value As SByte)
            Select Case comboBox1.text
                Case "a"
                    My.Settings.a = value
                Case "b"
                    My.Settings.b = value
            End Select
        End Set
 End Property

并赋值以更改属性，

private sub something()
  Change -= 1
end sub