Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Développement Développement Visual Basic Récupérer variables "Text"

Récupérer variables "Text"

13 réponses
Avatar
Tof
Bonjour =E0 tous,

EX: Mon programme multiplie deux variables "Text1 et=20
Text2". Le r=E9sultat est mis dans "Text3".

Quand j'ouvre =E0 nouveau ce petit programme j'aimerai=20
retrouv=E9 les derni=E8res valeurs calcul=E9es dans "Text1,=20
Text2, Text3".... ? ?

Si vous pouviez me donner un exemple de programmation=20
pour atteindre cet objectif.

Merci =E0 vous. Bonne journ=E9e
Signaler un problème avec ce contenu

10 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2
Avatar
ng
Salut,

Pou faire ce que tu veux il suffit d'utiliser la BDR, VB fourni en standart
des fonctions simples d'emploi pour faire cela :

Option Explicit

Private Sub Command1_Click()
'//on calcul
'//On utilise des longs car sur un processeur 32bits c'est plus rapide
Dim lNb1 As Long, lNb2 As Long
Dim lTot As Long

'//On ne calcul surtout pas directement avec les porpriétés mal typées
des controles !
lNb1 = Val(Text1.Text)
lNb2 = Val(Text2.Text)

lTot = lNb1 * lNb2

Text3.Text = lNb1 & " x " & lNb2 & " = " & lTot

End Sub

Private Sub Form_Load()
'//On charge
Text1.Text = GetSetting("MyApp", "General", "Text1", "")
Text2.Text = GetSetting("MyApp", "General", "Text2", "")
Text3.Text = GetSetting("MyApp", "General", "Text3", "")
End Sub

Private Sub Form_Unload(Cancel As Integer)
'//On dauvegarde
Call SaveSetting("MyApp", "General", "Text1", Text1.Text)
Call SaveSetting("MyApp", "General", "Text2", Text2.Text)
Call SaveSetting("MyApp", "General", "Text3", Text3.Text)
End Sub






--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/
http://apisvb.europe.webmatrixhosting.net/



Tof a écrit :

Bonjour à tous,

EX: Mon programme multiplie deux variables "Text1 et
Text2". Le résultat est mis dans "Text3".

Quand j'ouvre à nouveau ce petit programme j'aimerai
retrouvé les dernières valeurs calculées dans "Text1,
Text2, Text3".... ? ?

Si vous pouviez me donner un exemple de programmation
pour atteindre cet objectif.

Merci à vous. Bonne journée


Avatar
ng
Merci, ça marche super ! !




-----Message d'origine-----
Salut,

Pou faire ce que tu veux il suffit d'utiliser la BDR, VB


fourni en standart
des fonctions simples d'emploi pour faire cela :

Option Explicit

Private Sub Command1_Click()
'//on calcul
'//On utilise des longs car sur un processeur 32bits


c'est plus rapide
Dim lNb1 As Long, lNb2 As Long
Dim lTot As Long

'//On ne calcul surtout pas directement avec les


porpriétés mal typées
des controles !
lNb1 = Val(Text1.Text)
lNb2 = Val(Text2.Text)

lTot = lNb1 * lNb2

Text3.Text = lNb1 & " x " & lNb2 & " = " & lTot

End Sub

Private Sub Form_Load()
'//On charge
Text1.Text = GetSetting


("MyApp", "General", "Text1", "")
Text2.Text = GetSetting


("MyApp", "General", "Text2", "")
Text3.Text = GetSetting


("MyApp", "General", "Text3", "")
End Sub

Private Sub Form_Unload(Cancel As Integer)
'//On dauvegarde
Call SaveSetting("MyApp", "General", "Text1",


Text1.Text)
Call SaveSetting("MyApp", "General", "Text2",


Text2.Text)
Call SaveSetting("MyApp", "General", "Text3",


Text3.Text)
End Sub






--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/
http://apisvb.europe.webmatrixhosting.net/



Tof a écrit :

Bonjour à tous,

EX: Mon programme multiplie deux variables "Text1 et
Text2". Le résultat est mis dans "Text3".

Quand j'ouvre à nouveau ce petit programme j'aimerai
retrouvé les dernières valeurs calculées dans "Text1,
Text2, Text3".... ? ?

Si vous pouviez me donner un exemple de programmation
pour atteindre cet objectif.

Merci à vous. Bonne journée




.



Avatar
le_troll
Bonjour,

Une autre version à 32 lignes (je vais me faire incendier, lol, mais ça
marche) :o)


Private Sub Form_Load() ' mettre 3 textBox (1,2,3) sur la form1
Dim t As String
Dim p As Long
ChDrive App.Path ' fichier créé où se trouve le programme
ChDir App.Path
p = FreeFile
Open "resultat.txt" For Append As p ' créé si inexistant
Close p
p = FreeFile
Open "resultat.txt" For Input As p
If LOF(p) < 6 Then GoTo fin ' ne lit pas si vide
Line Input #p, t ' lit text1
Text1 = t ' met dans text1
Line Input #p, t ' lit text2
Text2 = t ' met dans text2
Call Text1_Change ' calcul dans text3
fin:
Close p ' ferme fichier
End Sub

Private Sub Text1_Change()
Text3 = Val(Text1) * Val(Text2) ' quand saisie text1 = calcul dans text3
End Sub

Private Sub Text2_Change()
Text3 = Val(Text1) * Val(Text2) ' quand saisie text2 = calcul dans text3
End Sub

Private Sub Form_Unload(Cancel As Integer)
Dim p As Long
p = FreeFile
Open "resultat.txt" For Output As p ' écrase ancien fichier + créé nouveau
même nom
Print #p, Text1 ' écrit text1
Print #p, Text2 ' écrit text2
End Sub ' ferme fichier, programme

--
Merci, @+, bye, Joe
troll75 AROBASE iFrance POINT com
------------------------------------------
Ce message est plein de virus "certifiés"
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:
075f01c47ac6$9ab8eba0$
Bonjour à tous,

EX: Mon programme multiplie deux variables "Text1 et
Text2". Le résultat est mis dans "Text3".

Quand j'ouvre à nouveau ce petit programme j'aimerai
retrouvé les dernières valeurs calculées dans "Text1,
Text2, Text3".... ? ?

Si vous pouviez me donner un exemple de programmation
pour atteindre cet objectif.

Merci à vous. Bonne journée
Avatar
Pierre Alexis [MVP]
Salut Nicolas,

Tu as écrit :

Pou faire ce que tu veux il suffit d'utiliser la BDR, VB fourni en standart
des fonctions simples d'emploi pour faire cela :



Nein ! Pas bien ça :-p Parce que bon qui va s'occuper de nettoyer la BDR après
désinstallation du programme ? Enfin bon j'dis pas que c'est une mauvaise
solution en fait, mais il faut alors mettre avec ton programme un désinstaller
qui se chargera de nettoyer partout là où ton programme a laissé des crasses
;-p.

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

Nein ! Pas bien ça :-p Parce que bon qui va s'occuper de nettoyer la
BDR après désinstallation du programme ? Enfin bon j'dis pas que
c'est une mauvaise solution en fait, mais il faut alors mettre avec
ton programme un désinstaller qui se chargera de nettoyer partout là
où ton programme a laissé des crasses ;-p.


Ca coule de source :D.
Personnellement mes désintalleurs s'occupent tjrs de cela. Sinon il peut
utiliser un fichier ini (voir les APIs adéquats) ou même un fichier texte
standart (voir Open, Close, Print, Get, Put...)...

--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/
http://apisvb.europe.webmatrixhosting.net/



Pierre Alexis [MVP] a écrit :

Salut Nicolas,

Tu as écrit :

Pou faire ce que tu veux il suffit d'utiliser la BDR, VB fourni en
standart des fonctions simples d'emploi pour faire cela :



Nein ! Pas bien ça :-p Parce que bon qui va s'occuper de nettoyer la
BDR après désinstallation du programme ? Enfin bon j'dis pas que
c'est une mauvaise solution en fait, mais il faut alors mettre avec
ton programme un désinstaller qui se chargera de nettoyer partout là
où ton programme a laissé des crasses ;-p.


Avatar
le_troll
les API avec les variables d'environnement aussi, sauf s'il veut garder
entre deux cessions (pas précisé) :o)

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


"ng" a écrit dans le message de news:

Salut,

> Nein ! Pas bien ça :-p Parce que bon qui va s'occuper de nettoyer la
> BDR après désinstallation du programme ? Enfin bon j'dis pas que
> c'est une mauvaise solution en fait, mais il faut alors mettre avec
> ton programme un désinstaller qui se chargera de nettoyer partout là
> où ton programme a laissé des crasses ;-p.
Ca coule de source :D.
Personnellement mes désintalleurs s'occupent tjrs de cela. Sinon il peut
utiliser un fichier ini (voir les APIs adéquats) ou même un fichier texte
standart (voir Open, Close, Print, Get, Put...)...

--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/
http://apisvb.europe.webmatrixhosting.net/



Pierre Alexis [MVP] a écrit :

> Salut Nicolas,
>
> Tu as écrit :
>
>> Pou faire ce que tu veux il suffit d'utiliser la BDR, VB fourni en
>> standart des fonctions simples d'emploi pour faire cela :
>
> Nein ! Pas bien ça :-p Parce que bon qui va s'occuper de nettoyer la
> BDR après désinstallation du programme ? Enfin bon j'dis pas que
> c'est une mauvaise solution en fait, mais il faut alors mettre avec
> ton programme un désinstaller qui se chargera de nettoyer partout là
> où ton programme a laissé des crasses ;-p.




Avatar
François Picalausa
Hello

peut utiliser un fichier ini (voir les APIs adéquats)


Les API obsolètes?
Je préfère XML :-)
(et pour rappel, application data pour les données de l'application, pas le
dossier du programme!)

--
François Picalausa (MVP VB)
http://faq.vb.free.fr --- http://msdn.microsoft.com
http://apisvb.europe.webmatrixhosting.net

"ng" a écrit dans le message de
news:

Nein ! Pas bien ça :-p Parce que bon qui va s'occuper de nettoyer la
BDR après désinstallation du programme ? Enfin bon j'dis pas que
c'est une mauvaise solution en fait, mais il faut alors mettre avec
ton programme un désinstaller qui se chargera de nettoyer partout là
où ton programme a laissé des crasses ;-p.


Ca coule de source :D.
Personnellement mes désintalleurs s'occupent tjrs de cela. Sinon il
peut utiliser un fichier ini (voir les APIs adéquats) ou même un
fichier texte standart (voir Open, Close, Print, Get, Put...)...


Avatar
Pierre Alexis [MVP]
Salut Nicolas,

Tu as écrit :

Personnellement mes désintalleurs s'occupent tjrs de cela. Sinon il peut
utiliser un fichier ini (voir les APIs adéquats) ou même un fichier texte
standart (voir Open, Close, Print, Get, Put...)...



Et tu le mets où ce fichier ? :-p

--
Pierre ALEXIS - MVP Visual Basic Classique
Courriel & messenger :
FAQ Visual Basic : http://faq.vb.free.fr/
Avatar
Patrice Henrio
Pour ma part c'est ce que je fais le plus souvent pour éviter d'encombrer la
base de registres, j'utilise un fichier texte dans lequel je mets ce que je
veux. Bien sûr cela m'oblige à bien savoir ce que je souhaite retrouver.


"le_troll" a écrit dans le message de
news:
Bonjour,

Une autre version à 32 lignes (je vais me faire incendier, lol, mais


ça
marche) :o)


Private Sub Form_Load() ' mettre 3 textBox (1,2,3) sur la form1
Dim t As String
Dim p As Long
ChDrive App.Path ' fichier créé où se trouve le programme
ChDir App.Path
p = FreeFile
Open "resultat.txt" For Append As p ' créé si inexistant
Close p
p = FreeFile
Open "resultat.txt" For Input As p
If LOF(p) < 6 Then GoTo fin ' ne lit pas si vide
Line Input #p, t ' lit text1
Text1 = t ' met dans text1
Line Input #p, t ' lit text2
Text2 = t ' met dans text2
Call Text1_Change ' calcul dans text3
fin:
Close p ' ferme fichier
End Sub

Private Sub Text1_Change()
Text3 = Val(Text1) * Val(Text2) ' quand saisie text1 = calcul dans text3
End Sub

Private Sub Text2_Change()
Text3 = Val(Text1) * Val(Text2) ' quand saisie text2 = calcul dans text3
End Sub

Private Sub Form_Unload(Cancel As Integer)
Dim p As Long
p = FreeFile
Open "resultat.txt" For Output As p ' écrase ancien fichier + créé


nouveau
même nom
Print #p, Text1 ' écrit text1
Print #p, Text2 ' écrit text2
End Sub ' ferme fichier, programme

--
Merci, @+, bye, Joe
troll75 AROBASE iFrance POINT com
------------------------------------------
Ce message est plein de virus "certifiés"
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:
075f01c47ac6$9ab8eba0$
Bonjour à tous,

EX: Mon programme multiplie deux variables "Text1 et
Text2". Le résultat est mis dans "Text3".

Quand j'ouvre à nouveau ce petit programme j'aimerai
retrouvé les dernières valeurs calculées dans "Text1,
Text2, Text3".... ? ?

Si vous pouviez me donner un exemple de programmation
pour atteindre cet objectif.

Merci à vous. Bonne journée




Avatar
ng
> Je préfère XML :-)


Il y tient à son XML celui là lol :)

--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/
http://apisvb.europe.webmatrixhosting.net/



François Picalausa a écrit :

Hello

peut utiliser un fichier ini (voir les APIs adéquats)


Les API obsolètes?
Je préfère XML :-)
(et pour rappel, application data pour les données de l'application,
pas le dossier du programme!)


Nein ! Pas bien ça :-p Parce que bon qui va s'occuper de nettoyer la
BDR après désinstallation du programme ? Enfin bon j'dis pas que
c'est une mauvaise solution en fait, mais il faut alors mettre avec
ton programme un désinstaller qui se chargera de nettoyer partout là
où ton programme a laissé des crasses ;-p.


Ca coule de source :D.
Personnellement mes désintalleurs s'occupent tjrs de cela. Sinon il
peut utiliser un fichier ini (voir les APIs adéquats) ou même un
fichier texte standart (voir Open, Close, Print, Get, Put...)...




1 2