Отмена загрузки формы

[Rodos]

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


Private Sub Form_Load()
If Combo1.Text = "" Then MsgBox "Печать невозможна! Принтеры не обнаружены.", vbCritical, "Ошибка": 'Что написать
End Sub


Надо сделать, чтобы при пустом Combo1 выдавалась ошибка и форма не загружалась. Если написать Unload Me ругается, Exit Sub форма все равно загружается, End закрывается весь проект. Как отменить загрузку формы?

[dr.MIG]

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


Private Sub Form_Load()
If Combo1.Text = "" Then
MsgBox "Печать невозможна! Принтеры не обнаружены.", vbCritical, "Ошибка"
Unload Me
End If
End Sub

Или я не совсем понял вопрос?...

[Rodos]

Unload Me не работает, выдает ошибку Run-time error '364': Object was unloaded. И ссылается на frmPrint.Show из формы, из которой я загружаю данную.

[dr.MIG]

Вот теперь понятно.
Возможно не лучший выход из ситуации, но простой и действенный:

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


Private Sub Timer1_Timer()
If Combo1.Text = "" Then
MsgBox "Печать невозможна! Принтеры не обнаружены.", vbCritical, "Ошибка": Unload Form2
End If
End Sub


А таймер поместить на вызываемую форму. (Не забудь его включить).
При этом форму можно не показывать frmPrint.Show, а просто загрузить Load frmPrint, а показать frmPrint.Visible=True, только если в Boxe что-то есть.

[Rodos]

Вроде бы пустяковый вопрос, неужели нет другого способа без использования таймеров?

просто загрузить Load frmPrint

Тогда форма с MsgBox появляется сразу, после запуска программы.

[dr.MIG]

On Error Resume Next в той процедуре, откуда вызывается frmPrint.Show

[GB826]

Сделай паблик процедуру (например ShowSProverkoi) в форме, которая в зависимости от условий сама "решает", показывать себя или нет :о)

frmPrint.ShowSProverkoi

[echo]

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

Private Sub Form_Load()
If Combo1.Text = "" Then MsgBox "Печать невозможна! Принтеры не обнаружены.", vbCritical, "Ошибка": 'Что написать
End Sub


Надо сделать, чтобы при пустом Combo1 выдавалась ошибка и форма не загружалась. Если написать Unload Me ругается, Exit Sub форма все равно загружается, End закрывается весь проект. Как отменить загрузку формы?

А есть у тебя уверенность, что на той форме которую ты грузишь этой процедурой есть Комбо1?

[Rodos]

Сделай паблик процедуру (например ShowSProverkoi)

грузишь этой процедурой

Какой процедурой?

А есть у тебя уверенность, что на той форме которую ты грузишь этой процедурой есть Комбо1?

Комбо1 есть!

[GB826]

А чего ты все смешал, кому вопросы?

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

Public sub ShowSProverkoi()
  If Combo1.Text = "" Then
    MsgBox "Печать невозможна! Принтеры не обнаружены.", vbCritical, "Ошибка"
    unload me
  else
    me.show
  end if   
end sub


этот код пихаешь в frmPrint

а из другой формы вызываешь frmPrint.ShowSProverkoi

[Rodos]

GB826, отлично! Я знал, что есть разумный ответ на этот вопрос!

[echo]

А чего ты все смешал, кому вопросы?

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

Public sub ShowSProverkoi()
  If Combo1.Text = "" Then
    MsgBox "Печать невозможна! Принтеры не обнаружены.", vbCritical, "Ошибка"
    unload me
  else
    me.show
  end if   
end sub


этот код пихаешь в frmPrint

а из другой формы вызываешь frmPrint.ShowSProverkoi

и чем это отличается от первоначального кода? Вообще странная дискуссия - у меня отлично работает и первоначальный код автора топика (если добавить туда Unload Me).

[GB826]

Создай две формы

в первой

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


Private Sub Form_Load()
   Form2.Show
End Sub


во второй

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


Private Sub Form_Load()
  Unload Me
End Sub


И дальше расскажи, как у тя все прекрасно работало!

[echo]

GB826

(с) GSerg