Obsługa podprogramów > GoTo - polecenie | | Drukuj |
Polecenie powoduje przerwanie wykonania programu w danym miejscu i kontynuację wykonania programu od miejsca oznaczonego etykietą, czyli tzw. skok do innego miejsca programu.
Składnia
GoTo etykieta
Argumenty
Typ |
Nazwa |
Opis |
etykieta |
Nazwa etykiety oznaczającej miejsce w programie. |
Wartość zwracana
Nie zwraca wartości.
Przykład
//Określenie tytułu i rozmiarów i wyświetlenie okna dialogowego
Form "Działanie polecenia GoTo", 500, 130
Button "Wyjście do komunikatu z pytaniem o wydruk", 44, 20, 400, 24, -1
Button "Wyjście do komunikatu o zakończeniu bez wydruku", 44, 60, 400, 24, 3
Int ko = ExecForm
If ko == 3 Then GoTo wyj
//Wyświetlenie komunikatu umożliwiającego wybór sposobu zakończenia raportu
If (Message "Czy utworzyć wydruk raportu DefBtn: &Tak=2 Btn: &Nie=1 Ico:?") == 1 Then
//Przerwanie wykonywania raportu i podanie komunikatu o zakończeniu
wyj:
Message "Zakończenie bez tworzenia wydruku"
Error ""
Else
//Zakończenie raportu, wyświetlenie strony raportu z napisem Koniec i możliwością wydrukowania
Print "Koniec"
End
EndIf