将变量从一个过程传递到另一个过程

Question

如何在另一个子项中使用来自Sub Main的可放弃项。

例 Sub Main() Dim x As Long End Sub

Sub Test() Dim y = x End Sub 

这是可能的vb.net

Answer 1

你可以把它作为一个功能，再返回它：

Sub Main() 
Dim x As Long 
' Give x a value 
x = Test(x) 
' Do something else with x 
End Sub 

Function Test(x As Long) As Long 
' Do something with x 
Return x 
End Sub 

或者声明它作为一个全球性的变量：

Dim x As Long 
Sub Main() 
' Do something with x 
End Sub 

Sub Test() 
Dim y = x ' Do something else 
End Sub 

Answer 2

有一个非常简单的方法来做到这一点。

从顶部的所有Subs中声明该值。

Public Class Form 1 
     Dim x As Long 

    Private Sub Main() 

    End Sub 

    Private Sub Test() 

    End Sub  
End Class 

然后写y = x无论你想要哪个子！