Vb.net 在vb中使用其他类访问GOTO

如何使用其他类访问goto。第一个代码是我的第一个类，最后一个代码是我的第二个类。我想用第二个类的goto来执行class1的那一行。这是我的代码，也许有人会理解我的意思

第一类

我想从这个class2访问标签“Next4sides:”

如果计数=1，则
如果（String.Compare（CType（Form1.Controls（“txtlengthside”），TextBox.Text，“return”，True）0），那么
如果e.KeyChar.Equals（Microsoft.VisualBasic.ChrW（Keys.Return））那么
Shape.setSquare（CType（Form1.Controls（“txtlengthside”），TextBox.Text）
MsgBox（“在框中键入Return以返回主菜单”&vbNewLine&vbNewLine&“应答”&vbNewLine&“区域：”&Shape.getTriangle（）&vbNewLine&vbNewLine&“下一个是矩形”）
计数=计数+1
CreateObject.txtbox.Dispose（）
'从此行中，我想使用GoTo访问标签
如果结束
其他的
Application.Restart（）
如果结束

您应该做的第一件事是决定使用哪种语言。NET不是VBA，两者都不是VB61）转到通常被认为是一种不好的做法，您的情况似乎也不例外。2） 标签是单个方法的本地标签，因此无论您如何努力，都无法转到另一个类。很抱歉，我认为vba、vb6和vb.net是一样的…我使用的是visual studio 2010 visual basic。如果它确实是vb.net，那么1980年代的

GoTo

（以及由此产生的）在OOP中真的没有位置，课程等。这是21世纪。加入我们。（所有主标记都包含文本，以提供标记何时应用或不应用的指导）。我是否可以尝试在不使用循环的情况下重复if-else语句，因为我的程序日志记录和我无法向文本框输入值。您首先要做的是决定使用哪种语言。NET不是VBA，两者都不是VB61）转到通常被认为是一种不好的做法，您的情况似乎也不例外。2） 标签是单个方法的本地标签，因此无论您如何努力，都无法转到另一个类。很抱歉，我认为vba、vb6和vb.net是一样的…我使用的是visual studio 2010 visual basic。如果它确实是vb.net，那么1980年代的

GoTo

（以及由此产生的）在OOP中真的没有位置，课程等。这是21世纪。加入我们。（所有主标记都包含文本，用于提供标记何时应用或不应用的指导）。由于我的程序日志记录和我无法向文本框输入值，我是否可以尝试在不使用循环的情况下重复if-else语句

Next4sides:  'My label here
        'MsgBox(ObjectFunction.count)
        If ObjectFunction.count = 1 Then
            Me.Size = New Size(506, 200)
            CreateObject.AddTextBox()
            CreateObject.AddLabel()

            CreateObject.lbl.Text = "Square"

            CreateObject.txtbox.Text = "Enter length side"
            CreateObject.txtbox.Name = "txtlengthside"

            cmbox.Visible = False


        ElseIf ObjectFunction.count = 2 Then

            CreateObject.AddTextBox()
            CreateObject.AddTwoTextBox()

            CreateObject.lbl.Text = "Rectangle"

            CreateObject.txtbox.Text = "Enter width"
            CreateObject.txtbox.Name = "txtrecwidth"

            CreateObject.txtbox1.Text = "Enter height"
            CreateObject.txtbox1.Name = "txtrecheight"

        End If

 If count = 1 Then
            If (String.Compare(CType(Form1.Controls("txtlengthside"), TextBox).Text, "return", True) <> 0) Then
                If e.KeyChar.Equals(Microsoft.VisualBasic.ChrW(Keys.Return)) Then
                    Shape.setSquare(CType(Form1.Controls("txtlengthside"), TextBox).Text)
                    MsgBox("Type Return In The Box to Return to main menu" & vbNewLine & vbNewLine & "Answer" & vbNewLine & "Area: " & Shape.getTriangle() & vbNewLine & vbNewLine & "Next is Rectangle")
                    count = count + 1
                    CreateObject.txtbox.Dispose()
     'FROM THIS LINE I WANT TO ACCESS THE LABEL USING GoTo
                End If
            Else
                Application.Restart()
            End If