fichier txt - VB6Résolu

Question

hello!

j'ai deux textbox (name t1 et t2), je n'en complete qu'une quand je lance mon programme suivant si je fais l'option1 ou l'option2.
je voudrais que si complete l'une ou l'autre, que la valeur rentr&#233;e soit affect&#233;e &#224; une variable t quelconque.
ainsi je r&#233;cup&#232;rerais cette variable pour la mettre dans un fichier text.

je m'embrouille un peu dans la fa&#231;on d'affecter la variable pour la r&#233;cup&#233;rer

si quelqu'un peut m'aider!!
c'est pas tr&#232;s clair mais je suis a votre disposition pour me reexpliquer ... parce que l&#224; c'est l'embrouille compl&#232;te!!!!

@+

EvilGost · Accepted Answer

str(val(t)) ne change rien, tu passes du string en numéric pour revenir en string.

essaie

Open "C:\monfichier.txt" For Output As #1
    Print #1, nomdetaform.t.text
Close #1

EvilGost · Answer

ce que tu racontes est un peu fouilli :p
mais si je comprends bien, tu voudrais qu'à la saisi du text dans ton textbox, la saisie soit mémorisé dans une variable?

si c'est le cas, je ne vois que ca:

private sub textbox1_Change()
Var1 = textbox1.text
end sub

@ bientot

cs_etniqs · Answer

oui enfin, face aux nombreux d&#233;tails que tu nous livres,  &#231;a peut d&#233;pendre aussi du fait que tu ouvres ton userform d'un autre module, dans ce cas il faut que tu cr&#233;es une fonction dans ton module qui ne sert qu&#224; recevoir ta variable : d'o&#249; l'avantage de cr&#233;er un type collection quand on a plusieurs userform
      
   par ex ton module "noyau":
    dim maval as string

    sub main()
         load userform
         unload userform      
   end sub

   function retour(byval as mastr as string)
         maval = mastr
   end function

   et dans ton userform 
   quand tu valides tes donn&#233;es

   sub commandbutton1_click()
      call retour(textbox1.text)
   end sub

manud31 · Answer

Le probleme c'est pas le fait d'affecter la variable, c'est surtout de recuperer la valeur dans le fichier texte
en fait par defaut j'ai mis la valeur 30 &#224; chacune des textbox t1 et t2 mais quand je veux recuperer ces donn&#233;es dans mon fichier text j'obtient 0 &#224; la valeur de t
mon code :
Open "C:\monfichier.txt" For Output As #1
    Print #1, "t" & Str(Val(t))
Close #1
J'ai essay&#233; de mettre Val(t.text) mais ca ne marche pas non plus ... il faut peut etre mettre une autre affectation (un point .quelque chose)???!!!!

manud31 · Answer

hello etnics 

j'ai envoy&#233; l'autre message avant de recevoir ta reponse
mais je ne comprend pas du tout le programme que tu m'a ecris
peut tu m'expliquer en quoi ca correspond a mon pb ?
je suis debutant et j'ai pas mal de probleme a comprendre les codes

@+

Fichier txt - VB6

5 réponses

Discussions similaires