/ Forside/ Teknologi / Udvikling / VB/Basic / Spørgsmål
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
VB/Basic
#NavnPoint
berpox 2425
pete 1435
CADmageren 1251
gibson 1230
Phylock 887
gandalf 836
AntonV 790
strarup 750
Benjamin... 700
10  tom.kise 610
Programmere "luk knappen" i øverste højr~
Fra : nikolaj_holm
Vist : 757 gange
85 point
Dato : 10-01-05 14:45

Hej

Er der nogen der ved om man kan programmere luk knappen oppe i højre hjørne til at gøre andre ting før den lukker programmet? f.eks gemmer data..

På forhånd tak.

 
 
Kommentar
Fra : CADmageren


Dato : 10-01-05 14:53

Den er gemt som terminate event.



Kommentar
Fra : CADmageren


Dato : 10-01-05 14:54

Vi prøver lige igen.

Private Sub Form_Terminate()
....
End Sub


Kommentar
Fra : rpje


Dato : 10-01-05 14:55

Kan du ikke benytte form deaktivate event. Der skul den da gerne kun hoppe til før programmet lukkes.

På form kan du vælge dvs events såsom on aktivate - on create osv.

MV.
Peter Jensen


Kommentar
Fra : CADmageren


Dato : 10-01-05 15:18

Nope...
DeActivate Event bliver ikke trigget ved Terminate.

/ Michael Christoffersen


Kommentar
Fra : nikolaj_holm


Dato : 10-01-05 15:22

Den vil ikke gemme filen ved nogen af de events

her er hvad jeg har prøvet..
min kode virker fint nok i en normal command knap hvor der så står End i slutningen af jo..

Private Sub Form_Terminate()
Point1 = Label11.Caption
Navn1 = Label12.Caption
Point2 = Label13.Caption
Navn2 = Label14.Caption
Point3 = Label15.Caption
Navn3 = Label16.Caption
Point4 = Label17.Caption
Navn4 = Label18.Caption
Point5 = Label19.Caption
Navn5 = Label20.Caption
Point6 = Label21.Caption
Navn6 = Label22.Caption
Point7 = Label23.Caption
Navn7 = Label24.Caption
Point8 = Label25.Caption
Navn8 = Label26.Caption
Point9 = Label27.Caption
Navn9 = Label28.Caption
Point10 = Label29.Caption
Navn10 = Label30.Caption
Open "C:\Highscoreliste til 8-ball spillet fra Nikolaj.txt" For Output As #1
Print #1, Point1
Print #1, Navn1
Print #1, Point2
Print #1, Navn2
Print #1, Point3
Print #1, Navn3
Print #1, Point4
Print #1, Navn4
Print #1, Point5
Print #1, Navn5
Print #1, Point6
Print #1, Navn6
Print #1, Point7
Print #1, Navn7
Print #1, Point8
Print #1, Navn8
Print #1, Point9
Print #1, Navn9
Print #1, Point10
Print #1, Navn10
Close
End Sub


Kommentar
Fra : CADmageren


Dato : 10-01-05 15:41

Har du prøvet at placere en debug stop (F9) i rutinen??


Kommentar
Fra : nikolaj_holm


Dato : 17-01-05 15:39

Jeg er lidt Noob endnu... hvad mener du med debug stop?

Accepteret svar
Fra : julledyret

Modtaget 85 point
Dato : 13-04-05 17:55

Er der tale om VB6?
- For så er det jo Form_QueryUnload-eventen:

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
' gør noget
End Sub

Godkendelse af svar
Fra : nikolaj_holm


Dato : 14-04-05 09:18

Tak for svaret julledyret.

Sådan nu er jeg endelig blevet færdig med mit spil.. det var det eneste der manglede.
                        

Du har følgende muligheder
Eftersom du ikke er logget ind i systemet, kan du ikke skrive et indlæg til dette spørgsmål.

Hvis du ikke allerede er registreret, kan du gratis blive medlem, ved at trykke på "Bliv medlem" ude i menuen.
Søg
Reklame
Statistik
Spørgsmål : 177564
Tips : 31968
Nyheder : 719565
Indlæg : 6408970
Brugere : 218888

Månedens bedste
Årets bedste
Sidste års bedste