OVH Cloud OVH Cloud

Bouton Option

7 réponses
Avatar
Tof
Bonjour =E0 tous,

J'ai un textbox, un Frame avec =E0 l'interieur 2 boutons,=20
et un bouton command pour quitter ! ! Voila le petit=20
exercice que je fais !

Private Sub Command2_Click()
Unload Me
End Sub
Private Sub Option1_Click(Index As Integer)
Dim Valeur1 As Double
Dim r As Double
Dim t As Double
=20
Valeur1 =3D Val(Cote.Text)
r =3D Valeur1
t =3D r / 2
Select Case Index
Case 0
Cote =3D r * 2
Case 1
Cote =3D t
End Select
End Sub
Private Sub Form_Load()
Cote.Text =3D GetSetting("MyApp", "General", "Cote", "")
End Sub
Private Sub Form_Unload(Cancel As Integer)
Call SaveSetting("MyApp", "General", "Cote",=20
Cote.Text)
End Sub

Ce que j'aimerai c'est retrouver =E0 l'ouverture de mon=20
programme la derni=E8re valeur inscrite avec le bon bouton=20
selectionn=E9.
Actuellement si je ferme avec Case 0 et que j'ouvre de=20
nouveau, il y a la multiplication *2 et je n'en veux pas=20
=E0 ce moment l=E0.

Si quelqu'un peut m'aider ! !Merci

7 réponses

Avatar
Christian HUBERT-HUGOUD- Xtrem7
Il faut la sauvegarder quelque part. Un setsetting me semble approprié.

Remarque au passage :
Unload Me est rarement suffisant.

Il serait bien que tu puisses mettre depuis l'extérieur de la feuille un set
MaFeuille = Nothing. Sans quoi, tôt ou tard, tu aura des pb de load qui ne
se font pas, et d'appli qui ne se ferme pas.

Christian

"Tof" a écrit dans le message de
news:04a701c4924d$7a3fdfc0$
Bonjour à tous,

J'ai un textbox, un Frame avec à l'interieur 2 boutons,
et un bouton command pour quitter ! ! Voila le petit
exercice que je fais !

Private Sub Command2_Click()
Unload Me
End Sub
Private Sub Option1_Click(Index As Integer)
Dim Valeur1 As Double
Dim r As Double
Dim t As Double

Valeur1 = Val(Cote.Text)
r = Valeur1
t = r / 2
Select Case Index
Case 0
Cote = r * 2
Case 1
Cote = t
End Select
End Sub
Private Sub Form_Load()
Cote.Text = GetSetting("MyApp", "General", "Cote", "")
End Sub
Private Sub Form_Unload(Cancel As Integer)
Call SaveSetting("MyApp", "General", "Cote",
Cote.Text)
End Sub

Ce que j'aimerai c'est retrouver à l'ouverture de mon
programme la dernière valeur inscrite avec le bon bouton
selectionné.
Actuellement si je ferme avec Case 0 et que j'ouvre de
nouveau, il y a la multiplication *2 et je n'en veux pas
à ce moment là.

Si quelqu'un peut m'aider ! !Merci
Avatar
le_troll
Heu heu heu, la base de registre n'est pas faite pour sauvegarder des datas,
(y en a aussi qui utilisent les cookies, lol), surtout qu'en cas d'erreur ça
peut être très mauvais, je préconiserais un fichier sur disque môa :o)

--
Merci, @+, bye, Joe
troll75 AROBASE iFrance POINT com
------------------------------------------
Le_Troll, éleveur de Trolls depuis César, qui disait:
Avec une hache, celui qui tient le manche a toujours raison !


"Tof" a écrit dans le message de news:
04a701c4924d$7a3fdfc0$
Bonjour à tous,

J'ai un textbox, un Frame avec à l'interieur 2 boutons,
et un bouton command pour quitter ! ! Voila le petit
exercice que je fais !

Private Sub Command2_Click()
Unload Me
End Sub
Private Sub Option1_Click(Index As Integer)
Dim Valeur1 As Double
Dim r As Double
Dim t As Double

Valeur1 = Val(Cote.Text)
r = Valeur1
t = r / 2
Select Case Index
Case 0
Cote = r * 2
Case 1
Cote = t
End Select
End Sub
Private Sub Form_Load()
Cote.Text = GetSetting("MyApp", "General", "Cote", "")
End Sub
Private Sub Form_Unload(Cancel As Integer)
Call SaveSetting("MyApp", "General", "Cote",
Cote.Text)
End Sub

Ce que j'aimerai c'est retrouver à l'ouverture de mon
programme la dernière valeur inscrite avec le bon bouton
selectionné.
Actuellement si je ferme avec Case 0 et que j'ouvre de
nouveau, il y a la multiplication *2 et je n'en veux pas
à ce moment là.

Si quelqu'un peut m'aider ! !Merci
Avatar
Pierre Alexis [MVP]
Salut,

Tu as écrit :

Heu heu heu, la base de registre n'est pas faite pour sauvegarder des datas,
(y en a aussi qui utilisent les cookies, lol), surtout qu'en cas d'erreur ça
peut être très mauvais, je préconiserais un fichier sur disque môa :o)



Elle sert à quoi alors la BDR ?

--
Pierre ALEXIS - MVP Visual Basic Classique
Courriel & messenger :
FAQ Visual Basic : http://faq.vb.free.fr/
Avatar
le_troll
Lol, et le disque il sert à quoi ? Ben la BDR, elle stocke des infos sur la
configuration logiciel et matérielle, elle n'est pas prévue pour stocker les
datas des applications ;o)

--
Merci, @+, bye, Joe
troll75 AROBASE iFrance POINT com
------------------------------------------
Le_Troll, éleveur de Trolls depuis César, qui disait:
Avec une hache, celui qui tient le manche a toujours raison !


"Pierre Alexis [MVP]" a écrit dans le message de
news: eWeQt$
Salut,

Tu as écrit :

> Heu heu heu, la base de registre n'est pas faite pour sauvegarder des


datas,
> (y en a aussi qui utilisent les cookies, lol), surtout qu'en cas


d'erreur ça
> peut être très mauvais, je préconiserais un fichier sur disque môa :o)

Elle sert à quoi alors la BDR ?

--
Pierre ALEXIS - MVP Visual Basic Classique
Courriel & messenger :
FAQ Visual Basic : http://faq.vb.free.fr/




Avatar
le_troll
Tiens, un exemple :o)

ChDrive App.Path
ChDir App.Path
'
Dim pf As Integer
dim valeur_a_stocker As Double

' ECRIT
pf = FreeFile

Open "nom_fichier.bin" For Binary As pf

Put pf, 1, valeur_a_stocker

close pf


' LIT
pf = FreeFile
Open "nom_fichier.bin" For Binary As pf

Get pf, 1, valeur_a_stocker

close pf


--
Merci, @+, bye, Joe
troll75 AROBASE iFrance POINT com
------------------------------------------
Le_Troll, éleveur de Trolls depuis César, qui disait:
Avec une hache, celui qui tient le manche a toujours raison !


"Tof" a écrit dans le message de news:
04a701c4924d$7a3fdfc0$
Bonjour à tous,

J'ai un textbox, un Frame avec à l'interieur 2 boutons,
et un bouton command pour quitter ! ! Voila le petit
exercice que je fais !

Private Sub Command2_Click()
Unload Me
End Sub

Private Sub Option1_Click(Index As Integer)
Dim Valeur1 As Double
Dim r As Double
Dim t As Double
valeur1 = Val(Cote.Text)
r = Valeur1
t = r / 2
Select Case Index
Case 0
Cote = r * 2
Case 1
Cote = t
End Select

End Sub
Private Sub Form_Load()
Cote.Text = GetSetting("MyApp", "General", "Cote", "")
End Sub

Private Sub Form_Unload(Cancel As Integer)
Call SaveSetting("MyApp", "General", "Cote", Cote.Text)
End Sub

Ce que j'aimerai c'est retrouver à l'ouverture de mon
programme la dernière valeur inscrite avec le bon bouton
selectionné.
Actuellement si je ferme avec Case 0 et que j'ouvre de
nouveau, il y a la multiplication *2 et je n'en veux pas
à ce moment là.

Si quelqu'un peut m'aider ! !Merci
Avatar
Patrice Henrio
Je suis d'accord avec le_troll pour l'utilisation de la base de registre et
je n'y écris que le minimum dont je ne peux me passer. Je trouve qu'en
général les programmeurs abusent de la BDR et oublient fréquemment de la
nettoyer lors de la désinstallation.
L'avantage de l'écriture dans la BDR c'est que le système sait toujours où
la chercher. A contrario, pour ce qui concerne les fichiers textes (ou
autres) contenant les données de l'application, il faut tester le répertoire
où ils sont censés être.
Je fais donc un mitigé des deux : je stocke dans la BDR uniquement l'endroit
où se trouvent les données.


"le_troll" a écrit dans le message de
news:
Lol, et le disque il sert à quoi ? Ben la BDR, elle stocke des infos sur


la
configuration logiciel et matérielle, elle n'est pas prévue pour stocker


les
datas des applications ;o)

--
Merci, @+, bye, Joe
troll75 AROBASE iFrance POINT com
------------------------------------------
Le_Troll, éleveur de Trolls depuis César, qui disait:
Avec une hache, celui qui tient le manche a toujours raison !


"Pierre Alexis [MVP]" a écrit dans le message


de
news: eWeQt$
> Salut,
>
> Tu as écrit :
>
> > Heu heu heu, la base de registre n'est pas faite pour sauvegarder des
datas,
> > (y en a aussi qui utilisent les cookies, lol), surtout qu'en cas
d'erreur ça
> > peut être très mauvais, je préconiserais un fichier sur disque môa :o)
>
> Elle sert à quoi alors la BDR ?
>
> --
> Pierre ALEXIS - MVP Visual Basic Classique
> Courriel & messenger :
> FAQ Visual Basic : http://faq.vb.free.fr/
>
>




Avatar
le_troll
Salut, eh, t'en as même qui utilisent les cookies pour stocker, lol, le
problème c'est quand tu nettoies :o)

--
Merci, @+, bye, Joe
troll75 AROBASE iFrance POINT com
------------------------------------------
Le_Troll, éleveur de Trolls depuis César, qui disait:
Avec une hache, celui qui tient le manche a toujours raison !


"Patrice Henrio" a écrit dans le
message de news:
Je suis d'accord avec le_troll pour l'utilisation de la base de registre


et
je n'y écris que le minimum dont je ne peux me passer. Je trouve qu'en
général les programmeurs abusent de la BDR et oublient fréquemment de la
nettoyer lors de la désinstallation.
L'avantage de l'écriture dans la BDR c'est que le système sait toujours où
la chercher. A contrario, pour ce qui concerne les fichiers textes (ou
autres) contenant les données de l'application, il faut tester le


répertoire
où ils sont censés être.
Je fais donc un mitigé des deux : je stocke dans la BDR uniquement


l'endroit
où se trouvent les données.


"le_troll" a écrit dans le message de
news:
> Lol, et le disque il sert à quoi ? Ben la BDR, elle stocke des infos sur
la
> configuration logiciel et matérielle, elle n'est pas prévue pour stocker
les
> datas des applications ;o)
>
> --
> Merci, @+, bye, Joe
> troll75 AROBASE iFrance POINT com
> ------------------------------------------
> Le_Troll, éleveur de Trolls depuis César, qui disait:
> Avec une hache, celui qui tient le manche a toujours raison !
>
>
> "Pierre Alexis [MVP]" a écrit dans le message
de
> news: eWeQt$
> > Salut,
> >
> > Tu as écrit :
> >
> > > Heu heu heu, la base de registre n'est pas faite pour sauvegarder


des
> datas,
> > > (y en a aussi qui utilisent les cookies, lol), surtout qu'en cas
> d'erreur ça
> > > peut être très mauvais, je préconiserais un fichier sur disque môa


:o)
> >
> > Elle sert à quoi alors la BDR ?
> >
> > --
> > Pierre ALEXIS - MVP Visual Basic Classique
> > Courriel & messenger :
> > FAQ Visual Basic : http://faq.vb.free.fr/
> >
> >
>
>