Просьба не прикалываться надо мной, я только учусь

[Создатель]

дело в том, что прочитав кучу всякой инфы, я так и не смог понять как сделать так, что при определенных условиях одна форма закрывалась и открывалась другая.....

Просьба помочь.....и привести простенький прог. код
заранее благодарен

[Fedorfx]

Private Sub Command1_Click()
Dim dd As New Form1
dd.Show
Unload Me
End Sub

[Создатель]

Огромное вам спасибо!!!

[Nikolka]

зачем мучать человека? Смотри как это делается:

Unload Me 'Выгружаешь старую форму
Form2.Show 'Показываешь новую форму

Вот и всё!

[Ramzes]

Все с точностью до наоборот!!!
Если ты сначалаа выгрузиш форму то код который находиться после выгрузки формы не выполняеться!!!
Ты же форму выгрузил!!!

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

private sub command1_click()
form1.show
unload me
end sub



ИМЕННО ТАК И НИКАК ИНАЧЕ!!!

[Amed]

Спешу обрадовать, что выполняется

Сначала сам так же хотел написать, а потом решил проверить на деле... и всё работает

[GSerg]

И это ещё не главный прикол.
Главный прикол - это то, что в VBA можно макросом удалить тот модуль, в котором этот макрос находится, и при этом макрос пойдёт выполняться дальше.

[Создатель]

В общем всем спасибо, только хорошь дискуссию разводить по такому то вопросу
А то еще и такой чел найдется, который это все через API функцию
сделает

[SSecurity]

А так ты можешь предложить всем любоваться тока твоей формой:)

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

Private Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Dim MASS(1000) As Long, MASSCount As Integer

Private Sub FindWindow()
Dim AAA As Long
MASSCount = 0
AAA = GetWindow(hwnd, 0)
While AAA <> 0
  If AAA <> hwnd Then MASS(MASSCount) = AAA
  MASSCount = MASSCount + 1
  AAA = GetWindow(AAA, 2)
Wend
For I = 0 To MASSCount
  ShowWindow MASS(I), 0
Next I
Unload me
Form2.Show
End Sub


[CyberYen]

Круто конечно.... По такому вопросу дискуссию проводить...
Хотя, пару месяцев назад я не мог даже этого...
Так, что учись... Этот сайт как раз для этого и создан.

[Создатель]

Да ладно......всем спасибо......
Я слава богу этому уже научился (причем именно из этого форума),
хотя качал тучу справочников, но там нормального пояснения не нашел.....

Кстати, может кто подскажет, как удалить эту тему, а то вроде написавно, что можно удалять!!!

[A.A.Z.]

Удалить - никак, можно закрыть, просто оставь сообщение, мол, тему можно закрыть, придут добрые админы и закроют.

[Создатель]

Уважаемые Админы и Модераторы
Эту тему можно закрыть.......