Модуль класса и форма (продолжение)

[Steiner]

Имеется процедура, в стандартном модуле (Excel), из неё загружается форма. На форме две кнопки. Вопрос:
Можно ли сделать так, чтобы при нажатии одной из кнопок, продолжалось выполнение запускающей форму процедуры.
Короче, чтобы при нажатии нужной кнопки, управление передавалось запускающей процедуре и продолжалось дальнейшее выполнение програмного кода процедуры (которая рассположена не в модуле формы).
Вышлите пожалуйста пример кода, если возможно решение данной проблемы.

[Matew]

Не совсем тебя понял, но тебе должно помочь ИМХО следующее:
Объяви процедуру, как Public (а не Private) и вызывай: ИмяФормы.ИмяПроцедуры()

[Viper]

Прорыв телепатических способностей подсказывает мне, что автор хочет чтоб запускающая процедура запустилась еще раз, но видимо с другой точки входа? Ежели так, то может помочь только одно - разбиение ее на две части, ибо точка входа в процедуру всегда одна.

Ежели же автор имеет ввиду что-то другое, то срочно рекомендуется сформулировать что же он все-таки хочет, ибо непонятно.

[Nicky]

Form1

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

Option Explicit

Private Sub Command1_Click()
  Hide
  Show
End Sub


Module1

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

Option Explicit

Sub Main()
  Form1.Show 1
  MsgBox "Лалала"
End Sub


[EDIT]: Ах да! Startup Object: Sub Main

[Viper]

И что это людям дает?

[Nicky]

Короче, чтобы при нажатии нужной кнопки, управление передавалось запускающей процедуре и продолжалось дальнейшее выполнение програмного кода процедуры (которая рассположена не в модуле формы)

Один-в-один

[Avtopic]

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

Form1.Show 1

Помоему тоже, автор хочет
Form1.Show 0
Form1.Show 1

[GSerg]

Когда я читаю такие темы, я всегда умиляюсь.
Тому, сколько упорно люди используют конструкции а-ля ".Show 1".
Что означает эта конструкция, блин? Я не могу понять. Во всяком случае, на это уходит время.
Вообще-то, есть .Show vbModal или .Show vbModeless. Но который год повторяется одно и тоже. Show 1, Show 0.

[Nicky]

2GSerg:

style Optional. Integer that determines if the form is modal or modeless. If style is 0, the form is modeless; if style is 1, the form is modal.

[Steiner]

Спасибо за советы, но уважаемые всё не то и дело не в отображении формы модальном или не модальном режиме. Постараюсь изложить проблемму попонятнее.
Дело в том что есть программа по складу, написанная мною недавно. Спустя некоторое время я понял, что msgbox сильно портит интерфейс программы и занялся изготовлением собственных msgbox-ов. Так вот в моей программе есть класс "Товар" со своими свойствами и методами. И вот, при запуске одного из методов, это собственно процедура в модуле класса, который называется "Delete"
(удалить товар из базы данных) начинается выполнение програмного кода, и наступает момент когда от пользователя требуется подтверждение типа "Вы действительно хотите удалить такой-то товар?". Тогда из данной процедуры
вызывается форма, естественно методом Show, форма это мой собственный msgbox, на ней две кнопки "Оk" и "Close". Так вот, как сделать так, чтобы при нажатии кнопки "Ок", продолжилось выполнение вызывающей процедуры с того места програмного кода, которое находиться ниже вызова формы ( как при вызове обычного msgbox и принажатии Ok происходит дальнейшее выполнение кода).
Ведь процедура вызывающая форму не дошла но "End Sub", вот по этому я и решил обратиться к вам по данному вопросу, можно ли так сделать или нет. А вы либо дайте совет либо опровергните моё предположение.

[Nicky]

Module1

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

Option Explicit

Sub main()
  Select Case Form1.ShowMe
    Case -1: MsgBox "Просто закрыли"
    Case 0: MsgBox "Нажали Close"
    Case 1: MsgBox "Нажали OK"
  End Select
End Sub


Form1

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

Option Explicit

Dim lRet As Long

Function ShowMe(Optional sErr As String) As Long
  On Error GoTo er
 
  lRet = -1
  Show vbModal 'привет GSerg'у
  ShowMe = lRet
  GoTo ok
 
er:
  sErr = Err.Description
ok:
  Unload Me
End Function

Private Sub cbClose_Click()
  lRet = 0
  Hide
End Sub

Private Sub cbOk_Click()
  lRet = 1
  Hide
End Sub