Prompt как правилно да се разтоварят под формата на VB6 не е от значение?

Ние имаме първичен MDI-образна форма.

Аз наричам постъпления печатна форма и пари в брой, за от менюто (frmPKO).
Код: Избери всички Private Sub mnuPKOrderItem_Click () "попълване и отпечатване на пари в брой, за
frmPKO.Show vbModal
End Sub

Просто от менюто (все още) се обадя сертификати форма печат в данъчната инспекция.
Код: Избери всички Private Sub mnuIFNSItem_Click () "запълване и запечатване сертификат в IFTS
frmIFNS.Show vbModal
End Sub

Поотделно всички работи.

За удобство, искам да се отпечата в края на ЕСП от един и същи калъп да причини данъчните служби, за да помогне на печат.
Код: Избери всички Ако MsgBox ( "Печат и удостоверението на IRS?", VbYesNo + vbQuestion, "Помощ печат") = vbYes Тогава
frmIFNS.Show vbModal
Крайна сметка, ако

И mozgoklyuystvo започва тук:
Код: Избиране на всички Дим rsIFNS Както ADODB.Recordset
"Попълнете" Сума за плащане "
Задайте rsIFNS = New ADODB.Recordset
sSQL = "SELECT * FROM PKO КЪДЕ nKart = '" numKart "" "
rsIFNS.Open sSQL, cnDB, adOpenStatic, adLockReadOnly
Ако rsIFNS.recordCount = 0 Тогава "трябва първо да пиша FFP
MsgBox "до" txtFIOnp.Text vbNewLine "Не е издадена заповед за пари в брой!", VbCritical: "Не се изхвърля PKO"
"Опции ************
cmdExit_Click
"Задайте rsIFNS = Нищо
"Оставете ме
"Exit Sub
"Опции ************
Крайна сметка, ако
rsIFNS.Close

Частни Под cmdExit_Click ()
Задайте rsIFNS = Нищо: Оставете ме
End Sub

Ако отида през cmdExit_Click (), или разтоварят формата на нахален процедура, грешка е 364 - обект вече е заредено.
"Вариант 1:
Код: Избери всички cmdExit_Click
"Задайте rsIFNS = Нищо
"Оставете ме
"Вариант 2:
Код: Избери всички "cmdExit_Click
Задайте rsIFNS = Нищо
Оставете ме

Ако напусне през (вариант 3)
Код: Избери всички "cmdExit_Click
"Задайте rsIFNS = Нищо
"Оставете ме
Exit Sub

които са получени форма, и всеки трябва да бъде затворен отделно. Това обезсмисля "удобство".

Това е нещо подобно. Можете, разбира се, глупаво меню причини всяка форма, като всяка отделна затваряне. Но - SSP и помощ са взаимно свързани, и бих искал за потребителя да ги свържат логически.
Кажете на някого, че? Отделно поиска хакер в - pozhalysta, не ме изпрати при търсене. Аз вече бях там.

Остеон написал (а): Алибек. Аз чайник в VB, аз не го крия. Но VB6 знае какво .Prepare

Понякога, когато инициализиране на формата трябва да се обадите на някои процедура към него. Което, например, дърпа базата данни, и ще донесе в списък с възможни стойности, и така нататък - тази процедура Алибек условно наречени Подгответе. Нейният Вие трябва да напишете. Тя не може да бъде. След това, разбира се, причината за нея, както и че не е необходимо. Можете да пишете код в събитие инициализиране / Load / Show форма - тогава няма значение (гуру, ако не е, нали).

Програмист - това е местен бог (С) Аз

Е, аз също подозира, че даден метод .Prepare означаваше не вграден метод, и потребителят (т.е. метода написани от потребителя) за някои процедура за инициализация.

Стремете се, да търси, да се намери и perepryatat

Уон Чо. Сега дънер. Благодаря-prespasibo.
Т.е. под
Код: Избери всички frm.Prepare ", ако формата е инициализация
Скъпи Алибек означаваше, че проверява дали формата се зарежда преди?

Не.
Искам да кажа, че във вид на код, можете да декларира функция обществен член на Prepare, който ще извършва някои подготвителни стъпки преди показването на формата. Например, за да се инициализира връзка с базата данни или проверете правата.
Код: Избери всички.
Ако frm.Prepare () След това
frm.Show vbModal
още
MsgBox "За да отмените операцията, причината" frm.Tag
Крайна сметка, ако
Освобождаване на FRM
Задайте FRM = Нищо

Lasciate Ogni Speranza, VOI ch'entrate.