如何在同一模块中调用子程序

Question

我正在寻找一种在用户阅读大邮件后返回到上一个的方法。它在一个单独的子目录中的原因是因为它有 50 多行文本，我想减少加载时间。我一定是走遍了互联网，却没有找到答案。我试过这个但是得到 "process is terminated due to Whosebug Exception"

这是我的代码的简单版本：

Sub notes()
    Dim a2 As String
    Do Until a2 = ("b") Or a2 = ("B")
        Console.Clear()
        Console.WriteLine("--------------------------------------------------------------------------------")
        Console.WriteLine("General Notes:")
        'more lines of text
        Console.WriteLine("--------------------------------------------------------------------------------")
        Console.WriteLine("Engine Status:")
        'more lines of text
        Console.WriteLine("Press <B> to go back to the menu")
        a2 = Console.ReadLine()
    Loop
    If a2 = ("b") Or a2 = ("B") Then
        Call Main()
    End If


End Sub

Answer 1

notes子完成后，例如a2="b"或a2="B"，程序会自动return到主子（假设你调用它从那里）。您不能在模块中调用 Main 子。

如何在同一模块中调用子程序

how to call a sub in same module

vb.net

console

command

function

call