Aporia gia SDI stin vb6

[Kmour]

Pedia mipos kseri kanis to ekis:<BR>Exo dimiourgisi mia efarmogi i opoia ksekinai me mia kirios forma kai epita analoga me pio koumpi patisis fortoni kai dixni mia alli forma.Apo ekini tin alli forma me xrisi next i back proxoras stin efarmogi katallila.Tora otan feygoume apo tin kirios forma me xrisi tou <BR>private sub form_deactivate<BR>kano tin kirios forma enanbled=false<BR>ayto pou den exo kataferi akomi einai to otan klino me to x mia parapera forma (oxi tin kirios) tote i kirios einai disabled kai den ksero me pia routina i entoli mporo na tin kano enabled.Ti lete kai esis?<BR>an einai dinaton na eiste ligo epeksigimatikoi giati eimai akomi freskos...<BR>kostas <IMG SRC="http://www.insomnia.gr/cpubb/smilies/cwm15.gif" border=0>

[Επισκέπτης]

File Kmour,<BR>profanws otan kryveis thn kyriws forma xrhsimopoieis kapoia entolh form1.visible=false.<BR>Sto event kleisimatos ths defterevousas formas 8a valeis to e3hs:<BR>if not form1.visible then form1.visible=true<P>Elpizw na se voh8hsa.<P>Filika<BR>Dionisos

[Kmour]

File dionise eyxaristo poy prospa8ises, alla den itan olokliromeni i apantisi sou ka8os den mou eleges pos dilonete to event tou klisimatos mias formas.<BR>Epidi telika to brika to para8eto edo mias kai mpori na boi8isi ke kanenan allo taleporo: <BR>Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)<P>mesa se aytin tin routina mpori kanis na bali oti 8eli :diladi gia paradigma<BR>frmtade.enabled=true<BR>i akomi kai <BR>frmtade.visible=true<P>Tora antimetopizo ena deytero problima mias kai den ksero pos na kano to eksis:<BR>Otan patao to x gia na kliso tin deyterebousa forma na blazo ena plesio dialogou me yes no kai analoga na klini i forma i oxi.Mallon prepi na diloso times gia to cancel kai gia to unloadmode stin parapano entoli.kamia boi8ia?????<BR><IMG SRC="http://www.insomnia.gr/cpubb/smilies/cwm15.gif" border=0>

[gstath]

Dim ans<P> ans = MsgBox("Θέλετε να κλείσετε τη φόρμα ;", vbYesNo + vbInformation)<BR> If ans = vbYes Then<BR> ....<BR> end if <BR>

[storm]

Private Sub exit2_Click()<BR>Dim Msg, Style, Title, Help, Ctxt, Response, MyString<BR> Msg = "Do you want to continue ?"<BR> Style = vbYesNo + vbCritical + vbDefaultButton2<BR> Title = "Exit Application"<BR> Help = "DEMO.HLP"<BR> Ctxt = 1000<BR> Response = MsgBox(Msg, Style, Title, Help, Ctxt)<BR> If Response = vbYes Then<BR> MyString = "Yes"<BR> Unload Form2<BR> Else<BR> MyString = "No"<BR> End If<BR>End Sub<P>

[Επισκέπτης]

Twra katalava ti zhtas! <BR>Ta event poy symvainoun otan patas to X se mia forma einai me seira<BR>Form_Queryunload<BR>Form_unload<BR>Form_Terminate<P>Sto event Form_Queryunload mporeis na valeis diaforous elegxous opws me poion tropo kleinei to programma, dhladh me to X, apo ton task manager, mesa apo ton kwdika, kleinoun ta windows klp. Mporeis na stamathseis to kleisimo tou programmatos 8etontas ston akeraio Cancel opoiadhpote timh ektos tou 0.<BR>Profanws afto pou zhtas einai ena if pou 8a elegxei an to unloadmode phre thn timh vbFormControlMenu kai na vgazei ena msgbox pou na kanei thn erwthsh pou 8eleis, opote analoga me thn apanthsh na kleinei to para8yro h na to afhnei anoixto dhladh<BR>if unloadmode=vbFormControlMenu then<BR> If MsgBox("Are you sure?", vbYesNo) <> vbYes Then Cancel = 1<BR>endif<P>Sto event Form_Unload mporeis na valeis kwdika pou 8a symvainei otan kleinei h forma opws na emfanizetai kapoia allh forma klp<P>Sto event Form_Terminate mporeis na kaneis oti kai sto Form_Unload omws h diafora einai oti se afto to event den yparxoun pia ta topika variables ths formas kai genika h forma ka8ws exei 8esei se ola thn timh Nothing.<P>Afta kai elpizw na voh8hsa<P>Filika<BR>Dionisos

[Kmour]

File dionise eise apextos!!!<BR>seyxaristo polu gia tin boi8ia ke elpizo na me boi8isis kai stin alli aporia poy exo kai dino se allo topic.<BR>Mprabo kai pali!<BR>kostas