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

3 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
Dans le dosier de l'appli ou dans application data comme l'a indiqué
Francois.

--
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 :

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


Avatar
le_troll
François, ça vient faire quoi "XML" dans le fait de stocker 2 datas
d'une applie, j'ai rien compris ???

--
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 !
------------------------------------------


"François Picalausa" a écrit dans le message de news:

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
le_troll
Ben attends, faut le dire tout court "la base de régistre n'est pas faite
pour stoker ses datas", mais bon, chacun met où il veut, il aurait pu
stocker dans la corbeille aussi, le schéma le plus classique c'est
RepApplieFichier... :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 !
------------------------------------------


"Patrice Henrio" a écrit dans le
message de news: eOdu$
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
>
>




1 2