如何在同一模块中调用sub

时间:2015-03-27 15:17:26

标签: vb.net function console command call

我正在寻找一种方法,在用户阅读大邮件后返回上一页。它在一个单独的子中的原因是因为它有50多行文本,我想减少加载时间。我一定是在互联网上找到答案并没有太多运气。我已经尝试了这个但是由于StackOverFlow异常而导致"进程终止"

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

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

1 个答案:

答案 0 :(得分:1)

notes sub完成后,例如a2 =“b”或a2 =“B”,程序将自动返回主子程序(假设你从那里调用它)。您无法调用模块中的Main子。