Warning: file_get_contents(/data/phpspider/zhask/data//catemap/1/vb.net/16.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181

Warning: file_get_contents(/data/phpspider/zhask/data//catemap/8/variables/2.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
返回/链接变量vb.net_Vb.net_Variables_Return - Fatal编程技术网

返回/链接变量vb.net

返回/链接变量vb.net,vb.net,variables,return,Vb.net,Variables,Return,我想让VB.Net代码像这样编写 模块1.运行(参数,参数) “>>将参数传递给模块2>>” 模块2.运行(参数,参数) 本质上是在模块之间传递参数,而无需通过return语句或本例中的多个语句运行模块。避免共享公共注册。这可能吗?我可以在模块头中传递变量吗 您好,好的,我找到了第一部分。我要做的是通过引用传递参数。将ByRef关键字放在模块头中。并制作一个额外的变量来存储双向变量。“如果你问我,设置数据方向的奇怪方式” 无论如何,有没有一种方法可以使用头提供的变量,因为我可以控制在哪里使用被调

我想让VB.Net代码像这样编写

模块1.运行(参数,参数) “>>将参数传递给模块2>>” 模块2.运行(参数,参数)

本质上是在模块之间传递参数,而无需通过return语句或本例中的多个语句运行模块。避免共享公共注册。这可能吗?我可以在模块头中传递变量吗


您好,

好的,我找到了第一部分。我要做的是通过引用传递参数。将ByRef关键字放在模块头中。并制作一个额外的变量来存储双向变量。“如果你问我,设置数据方向的奇怪方式”

无论如何,有没有一种方法可以使用头提供的变量,因为我可以控制在哪里使用被调用类的哪个实例?在那里保存一些变量


关于,

创建一个类
MyParameters

Public Class MyParameters
    'Add any inputs / outputs
    Public AnInput As Integer
    Public AnOutput As String
End Class
定义
模块1。按以下方式运行

Public Sub Run(ByVal args As MyParameters)
    args.AnOutput = String.Format("The user passed {0}", args.AnInput)
End Sub
将“Module2.Run”定义为

Public Sub Run(ByVal args As MyParameters)
    Msgbox(args.AnOutput)
End Sub
然后您可以通过以下方式拨打电话:

Public Sub Main()
    Dim args = New MyParameters() With {.AnInput = 5}
    Module1.Run(args)
    Module2.Run(args)
End Sub