Преждевременное прекращение загрузки формы !!! (+++)

08.02.2008, 17:34. **Показов** 1201. **Ответов** 6

Author24 — интернет-сервис помощи студентам

Во время обработки события Form_Load я вдруг просека, что у меня не все данные пришли в форму и я хочу сделать Unload, а VB говорит, что я не прав.
Я ему не верю...

Кто нас рассудит?

@borm · 08.02.2008, 19:20

конечно, ты не прав

11.02.2008, 08:35

Я это вообщем понял, НО КАК МНЕ ОСТАНОВИТЬ ЗАГРУЗКУ ФОРМЫ ???

11.02.2008, 09:13

Приведи фрагмент кода и сообщение VB, иначе долго объясняться

11.02.2008, 10:10

Создай конструкцию следующего типа

Sub Form_Load()
Private FlagError As Boolean

FlagError = False '// по умолчанию False, но на всякий случай...
'//.....
'//Твой код
If (Что-то не так) Then FlagError = True
'//.....

If FlagError = True Then
UnLoad Me
Exit Sub '// В конце!
End If

End Sub

11.02.2008, 10:12

Опечатка:
Замени Private FlagError As Boolean на
Dim FlagError As Boolean

@Alexey · 11.02.2008, 11:19

просто проверяй условие вне формы, тогда и выгружать ничего не надо:

if x=1 then
form1.show
end if

@borm 0 / 0 / 0 Регистрация: 16.07.2007 Сообщений: 458
	08.02.2008, 19:20	2
	конечно, ты не прав 0

SIR
	11.02.2008, 08:35	3
	Я это вообщем понял, НО КАК МНЕ ОСТАНОВИТЬ ЗАГРУЗКУ ФОРМЫ ???

eddy
	11.02.2008, 09:13	4
	Приведи фрагмент кода и сообщение VB, иначе долго объясняться

eddy
	11.02.2008, 10:10	5
	Создай конструкцию следующего типа Sub Form_Load() Private FlagError As Boolean FlagError = False '// по умолчанию False, но на всякий случай... '//..... '//Твой код If (Что-то не так) Then FlagError = True '//..... If FlagError = True Then UnLoad Me Exit Sub '// В конце! End If End Sub

eddy
	11.02.2008, 10:12	6
	Опечатка: Замени Private FlagError As Boolean на Dim FlagError As Boolean

@Alexey 0 / 2 / 3 Регистрация: 27.03.2012
	11.02.2008, 11:19	7
	просто проверяй условие вне формы, тогда и выгружать ничего не надо: if x=1 then form1.show end if 0