Как завершить команду?

[neic]

Допустим у меня есть форма и модуль(fileopen), и при загрузке формы выполняется:

Код: Выделить всё

Call fileopen.fileopen
Form2.show


В модуле написано:

Код: Выделить всё

Public Function fileopen() string
...
MsgBox "Файлов нету!"
[color=red]Exit Sub[/color]
...
End Function


Вот Exit Sub не срабатывает, как закончить процедуру в данном случае?

[lister]

Exit Function

[neic]

lister
Ты показал выход из функции, а не из процедуры!

[GB826]

А как Function переводится?

[lister]

neic, а у тебя как раз функция, а не процедура

Из Function выйти можно только Exit Function

Exit Sub выводит из Sub

[neic]

neic, а у тебя как раз функция, а не процедура

Из Function выйти можно только Exit Function

Exit Sub выводит из Sub

ОК. Как выйти в Function из Sub?

GB826
Function - Функция

[Nicky]

Допустим у меня есть форма и модуль(fileopen), и при загрузке формы выполняется:

Код: Выделить всё

Call fileopen.fileopen
Form2.show


В модуле написано:

Код: Выделить всё

Public Function fileopen() string
...
MsgBox "Файлов нету!"
[color=red]Exit Sub[/color]
...
End Function


Вот Exit Sub не срабатывает, как закончить процедуру в данном случае?

Код: Выделить всё

dim b as boolean
Call fileopen.fileopen(b)
if not b then exit sub
Form2.show
...
Public Function fileopen(bIsOpen as boolean) string
...
MsgBox "Файлов нету!"
Exit Function
...
bIsOpen = true
End Function


[lister]

Как выйти в Function из Sub?

Это как это? Вот это вопросик... Ну, если я тебя правильно понял, то примерно так:

Код: Выделить всё

Private Function MyFunction
   Call MySub

End Function

Private Sub MySub
.
.
.
   Exit sub
.
.
.
End Sub

[Nicky]

2 All: нет, он хочет выйти из function, и из sub, ее вызвавшего

[Tarantul]

Exit Sub/Function выходят только из текущей подпрограммы. Чтобы перескочить по стеку на 2 процедуры выше, можно использовать Err.Raise, а потом ошибку поймать в верхней процедуре и там сделать Exit Sub. По сути, метод тот же, что с булевым флагом, но элегантнее...

[Azur]

Я в таких когда то делал может и не очень красиво, но элементарно:
выходишь из функции через goto... Делаешь метку какую - нить типа EndFunct и ставишь его перед exit function... Собственно все
Хотя конечно exit function - логично =)

[Viper]

Я в таких когда то делал может и не очень красиво, но элементарно:
выходишь из функции через goto... Делаешь метку какую - нить типа EndFunct и ставишь его перед exit function... Собственно все
Хотя конечно exit function - логично =)

вот это все к чему?

[Drag]

Можно еще сделать примерно так:

Код: Выделить всё

Sub SampleSub
    If SampleFunc = 1 Then Exit Sub
    ...
End Sub

Function SampleFunc As Byte
    If ... Then SampleFunc = 1
End Function

На месте ... то, что требуется

[Viper]

to Drag, во-первых читай топик полностью, во-вторых, может все-таки переменную типа Boolean использовать для таких дел

[Drag]

А я топик всегда читаю полностью.
А Byte я часто использую вместо boolean из-за того, что он в два раза меньше памяти требует.