Завершение exe процедуры

[ANKA2006]

Подскажите пожалуйста!!!
Я создал небольшой тест на 30 вопросов. После того как, его проходят, в процессе висит exe. файл. Как его можно программно закрыть, после того как он отработал программу

[MIT]

Me.Close или End.

[alex77755]

exe процедуры

Так просто на такой вопрос и не ответишь

[Хакер]

Он сам закроется, если программа написана правильно. Перепиши программу так, чтобы она была написана правильно.

[ANKA2006]

У меня тест на 30 вопросов Великой Отечественной войны с видео роликами и фото. Когда форма 1 там где содержатся вопросы доходит до 30 вопроса, появляется форма 2 с результатом. Все формы отображаются и закрываются через Show, Hide (показать и скрыть). Если результат закрыть по кресту, то ВОВ.exe висит в диспетчере задач.
Все вопросы у меня проходят через Case. И как можно грамотно завершить весь этот процесс я не понимаю, так как это моя первая программа. Может на Форме 2 там где результат сделать еще к.нибудь кнопку которая бы закрывала всю прогу????. Только что туда прописать я не знаю

[Хакер]

Я правильно понимаю, что это первая программа, но пишется она не для себя, а чтобы быть применённой где-то для тестирования кого-то?

[Денис]

Все формы отображаются и закрываются через Show, Hide (показать и скрыть). Если результат закрыть по кресту, то ВОВ.exe висит в диспетчере задач.

Всё ясно. Неявное объяление классов. (Вкупе с незнанием автора что такое и для чего классы вообще).

Значит так. если в проекте есть форма Form1.frm то ты "ее" показываешь, делая Form1.Show, так?

А надо:

'Объявляешь переменную:
Dim frmForm1 as Form1

'Создаешь новый экземпляр своей формы (а форма — это и есть класс):
Set frmForm1 = New Form1

'Работаем с экземпляром:
frmForm1.Show
frmForm1.Hide
frmForm1.Show
frmForm1.Hide

'Выгружаем и уничтожаем экземпляр
Unload frmForm1
set frmForm1 = Nothing

[ANKA2006]

Да надеюсь этот тест будет для всех, а именно для школьников. Про объявление классов я даже и не подозревал. Попробую испавиться

[Денис]

Попробую испавиться

Ага, давай-давай! Мы тебя поднатаскаем, станешь лучшим учителем информатики!

[Antonariy]

А особенно, если будешь меньше слушать предыдущего оратора

[Денис]

А особенно, если будешь меньше слушать предыдущего оратора

За собой следи... (те)

[MIT]

[offtop]

Про объявление классов я даже и не подозревал.

Я до последнего момента думал, что это ("ANKA") женский ник, образованный от имени Анна...
[/offtop]

[Денис]

[offtop]

Про объявление классов я даже и не подозревал.

Я до последнего момента думал, что это ("ANKA") женский ник, образованный от имени Анна...
[/offtop]

Та нееее! Это же ANдрей KAнстантинавич!!!

[Хакер]

Да надеюсь этот тест будет для всех, а именно для школьников. Про объявление классов я даже и не подозревал. Попробую испавиться

Я надеюсь, что этот текст никто не увидит. Чем школьники провинились, что им всю жизнь приходится сдавать судьбоносные тесты на отвратительном ПО? Вот «испавишься», потом делай тесты сколько душе угодно. Нет, ты же запротестуешь, если тебя засунут самолёт, управляет которым человек, впервые садящийся за штурвал, и который «даже и не подозревал» о существовании интерцепторов. Почему над беззащитными школьниками можно издеваться?

[alex77755]

Может на Форме 2 там где результат

В процедуре Fopm_Unload пропиши выгрузку первой формы: типа
Unload Form1
Зачем там классы вообще?
И тем более межличностные разборки на форуме...

ты же запротестуешь, если тебя засунут самолёт, управляет которым человек, впервые садящийся за штурвал

А куда ты с подводной лодки денешься. Тут уж протестуй не протестуй...

[Хакер]

alex77755, успокойся, здесь нет разборок, мир и любовь правит топиком.

Кроме того, хватит писать всякую ерунду.

[alex77755]

в заголовке форума

Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут

Unload Form1 это не правильно? или как вы выражаетесь ерунда. как же тогда "правильно"
Я учусь по примерам. и во многих примерах рекомендуется такое. А вот что бы так использовать классы - первый раз услышал

[Хакер]

Да у тебя каша в голове. По хорошему всё вычистить под ноль и залить заново достоверную информацию. К сожалению, голова не поддерживает такую процедуру.

Form1 — это глобальная DAN-переменная (DimAsNew) типа Form1, тип Form1 — это тип, соответствующий приватному COM-классу с DispId-ранним связыванием. Вот это есть истина.

Это всё равно что автомобиль марки «Автомобиль». Город, называющийся Город. Столица, называющаяся Столица. Это создаёт страшную путаницу в незрелых в плане легкости сбивания с толку головах. Люди оказываются не в состоянии отличить, где речь идёт о конкретном представителе семейства, а где о самом семействе, потому что они одинаково называются. А особо одарённые даже не догадываются, что одно и то же слово означает два разных понятия (одно значение идентифицирует конкретный объект, другое — семейство).

[Хакер]

Unload Form1 — это правильно, но только в том случае, если ты понимаешь, что пишешь. Если ты понимаешь во-первых, что делает Unload, а во-вторых, что в данном случае означает Form1.

Кого не спроси из неразумных, ответ один: —Форма!

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

Unload же это просто противоестественный заменитель метода Remove коллекции Forms, который к тому же нарушает принцип инкапсуляции.

Для окончательного ошарашивания неразумным предлагается вот такой код. Его надо поизучать и посмотреть на то, к чему приводит нажатие кнопки:

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

Private Sub Command1_Click()
    Form1.Caption = " Первый раз "
    Set Form1 = Nothing
    Form1.Show
    Form1.Caption = " Второй раз "
End Sub


[alex77755]

вообще то я имел в виду Unload Форма1 выгрузку конкретной формы. Так же, надеюсь можно делать?
Просто у меня русский VB, а какой у автора - не знаю. Думал, что имя формы он подставит сам

прочитал последний пост, посмотрел код. Похоже, что неправильно.
Хорошо, что я не работаю преподом в школе, а для моих внутренних программ принцип: что б работало.
А правильно там или неправильно сделана... Главное добиться желаемого результата и с минимальными усилиями.
То есть по возможности без АПИ, FSO и пр.

Хакер я сегодня тобой удивлён. Разъясняешь, подсказываешь. Часом не заболел?
В любом случае - спасибо.

[Antonariy]

Да он вроде всегда это делает, если вопрос поставлен четко. Или если четко видно, что и как автор не понимает.
Другое дело, что он, как мне кажется, сам не понимает, что нельзя научится правильно писать программы СРАЗУ. Вернее можно, но далеко не всем. Иногда лучше дать автору желаемый кирпич, пусть не идеальный, но подходящий, это хотя бы не отобьет желание заниматься строительством из-за неподъемной сложности некоторых идеальных решений.

[ANKA2006]

Всем привет!!!

Моя первая программа с тестом работает только на нескольких компах. В большинстве случаев, после последнего задаваемого вопроса выдает ошибку:
Run-time error '339':
Component 'RICHTX32.OCX' or one of its dependencies not correctly registered: a file is missing or invalid
И что с этим делать я не знаю. У меня в тесте есть видео и рисунки. В оболочку теста я компилирую exe файл, папку с видео и русунками. Сначала я думал что может это из за видео. Но на комапах которые выдают ошибки видео проигрывается.

[alibek]

Сходи на translate.ru.

[Денис]

Всем привет!!!
И что с этим делать я не знаю.

Во-первых, да, перевести сообщение на русский и попытаться понять.
Во-вторых, в составе студии идет инсталлятор. Пользуйтесь им.

[Saturn.65]

Я что только не вписываю и все равно в процессах висит.

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

Private Sub Form_Unload(Cancel As Integer)
    Unload Form1
    Unload Form2
    Unload Form3
Set Form1 = Nothing
Set Form2 = Nothing
Set Form3 = Nothing
End
End Sub


Что еще можно вписать?
Это все у меня вписано в первую форму. Из этой формы открывается в процессе работы еще три формы.

[Хакер]

Вписыватель.

Нужно думать, а не думать, что бы вписать.

[Saturn.65]

Думай-не думай, а вариантов нету. Висит и все в процессах.
Ну так что делать? Никак не хочет убиваться в процессе.