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

然后在你想要的任何Sub上写y = x！

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

2 个答案: