Gambas France BETA


Pas de compte ? Incription

fermeture d'application

Ce sujet est résolu.

1
AuteurMessages
jeanyvon#1 Posté le 16/10/2015 à 22:29:04
Gambas? Ma! Et gustoBonjour!

J'ai un bouton pour fermer l'application que je créé.

1
2
3
4
5
6
PUBLIC SUB ToolButton1_Click() ' quitter

Connection1.Close
Form1_Close

END


dans form1_close j'ai:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
PUBLIC SUB Form1_Close()

DIM repsave AS STRING = "/media/jean-yvon/SAV1"
DIM fichiersave AS STRING = "//media/jean-yvon/SAV1/baladeenvelo.sq3"
DIM BdD AS STRING = "//home/jean-yvon/fichiers gambas 3/Moyenne2/baladeenvelo.sq3"
DIM monresultat1 AS Result
' Print numero
Connection1.Open

WITH Connection1
monresultat1 = .Exec("select * from monsport order by id")
END WITH

IF monresultat1.Count <> numero THEN
IF NOT Exist(repsave) THEN
Message.Warning("Attention, la clef n'est pâs montée""ok")
ENDIF

IF Exist(fichiersave) THEN
TRY KILL fichiersave
TRY COPY BdD TO fichiersave
Message.Info("sauvegarde effectuée"
ELSE
Message.Warning("Pas de sauvegarde")
ENDIF
ENDIF
Connection1.Close
QUIT
END


si je passe par form_close, l'application plante.
Si je clique sur la croix du form pas de sauvegarde.

Je ne vois pas de solution
Merci de votre aide.
Vieillir? On peut retarder mais pas y échapper!
vuott#2 Posté le 17/10/2015 à 00:47:58
Ne cedere ineluctabili possimusAussi pour Form1 essaye changeant:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
PUBLIC SUB ToolButton1_Click() ' quitter

Connection1.Close

ME.Close

END


PUBLIC SUB Form_Close()

DIM repsave .......etc
...etc...
...etc...

END
« Vita non suavis esse potest, nec Mors amara. »
jeanyvon#3 Posté le 17/10/2015 à 08:46:42
Gambas? Ma! Et gustomerci de la réponse.

gbx3: warning: circular references detected:
gbx3: 1 Form1
gbx3: 5 FCalendar
gbx3: 2 ValueBox
gbx3: 5 MaskBox
gbx3: 5 DateChooser
gbx3: 5 DateBox
gbx3: 5 ButtonBox
gbx3: 1 GridViewSelection
gbx3: 1 _GridView_Rows
gbx3: 425 _GridView_Data
gbx3: 1 _GridView_Columns
gbx3: 1 ScrollArea
gbx3: 1 GridView
gbx3: 1 Connection
gbx3: 15 Picture
gbx3: warning: 2498 allocation(s) non freed.


J'ai ça dans la console.
Avec ton code si je passe par le bouton tout va bien mais si je clique sur la croix ça plante:
connexion1 all ready.
Normal, je ne la ferme pas.

Vieillir? On peut retarder mais pas y échapper!
vuott#4 Posté le 17/10/2015 à 15:11:17
Ne cedere ineluctabili possimusLe problème est Quit
Essaiez de remplacer Quit avec FMain.Close
« Vita non suavis esse potest, nec Mors amara. »
jeanyvon#5 Posté le 17/10/2015 à 16:45:40
Gambas? Ma! Et gustoCe qui n'allait pas c'est la fermeture de connexion dans le bouton. Si je laisse ouvert la procédure de fin s'en charge et je n'ai plus de problème avec les deux types de fermeture.(bouton et croix)
J'ai également supprimé le "quit" dans form_close ça ne servait à rien
Merci vuott
Vieillir? On peut retarder mais pas y échapper!
1