Exit lause

Exits a Do...Loop, For...Next, a function, a property, or a subroutine.

S√ľntaks:


Exit Do, Exit For, Exit Function, Exit Property, Exit Sub

Parameetrid:

Exit Do

Kehtib ainult lauses Do...Loop ts√ľkli sulgemiseks. Programmi k√§itamine j√§tkub ts√ľkli lausele j√§tkuva lausega. Kui laused Do...Loop on pesestatud, viiakse juhtelement j√§rgmise taseme ts√ľklisse.

Exit For

Kehtib ainult lauses For...Next ts√ľkli sulgemiseks. Programmi k√§itamine j√§tkub ts√ľkli lausele j√§tkuva lausega. Kui laused For...Next on pesestatud, viiakse juhtelement j√§rgmise taseme ts√ľklisse.

Exit Function

Suleb kohe protseduuri Function. Programmi käitamine jätkub kutsele Function järgneva lausega.

Exit Property

Exits the Property procedure immediately. Program execution continues with the statement that follows the Property call.

Exit Sub

Suleb kohe alaprogrammi. Programmi käitamine jätkub kutsele Sub järgneva lausega.

Märkuse ikoon

Lause Exit ei m√§√§ratle struktuuri l√Ķppu ja seda ei tohi segamini ajada lausega End.


Näide:


Sub ExampleExit
Dim sReturn As String
Dim sListArray(10) As String
Dim siStep As Single
    For siStep = 0 to 10 REM Täidab massiivi testandmetega
        sListArray(siStep) = chr(siStep + 65)
        MsgBox sListArray(siStep)
    Next siStep
    sReturn = LinSearch(sListArray(), "B")
    Print sReturn
End Sub
 
Function LinSearch( sList(), sItem As String ) As Integer
Dim iCount As Integer
REM LinSearch otsib TextArray:sList() seest TextEntry:
REM tagastab kirje indeksi v√Ķi 0 (Null)
    For iCount=1 To Ubound( sList() )
        If sList( iCount ) = sItem Then
            Exit for REM leiti sItem
        End If
    Next iCount
    If iCount = Ubound( sList() ) Then iCount = 0
    LinSearch = iCount
End Function

Palun toeta meid!