Enregistrement d'un projet sur vb6

Question

Salut;
  je suis debutant en vb et, lors de pr&#233;paration d'un logiciel au cours de mon stage , je n'ai pas trouv&#233; de solution pour un petit probl&#232;me.
  Le programme sur vb a pour but de d&#233;terminer une valeur suite aux donn&#233;es choisis par l'utilisateur donc &#224; la fin il a besoin d'enregistrer ce travail  dans un fichier alors d'enregistrer tout le projet avec ses forms &#224; chaque calcul.
   Comment faire pour coder cette boutton d'enregistrement ?
   Merci d'avance.
 
" La beaut&#233; sans la gr&#226;ce attire, mais elle ne sait pas retenir ; c'est un app&#226;t sans hame&#231;on. "
<?xml:namespace prefix o ns "urn:schemas-microsoft-com:office:office" />


[Maxime Planude]


BGM

cs_DARKSIDIOUS · Answer

Lol, tu n'a pas besoin d'enregistrer toutes les forms de ton projet,
uniquement les valeurs calcul&#233;es, et les charger ensuite d&#232;s
l'ouverture de ton prog. Pour ce faire, recherche "enregistrement dans
un fichier" sur ce site, et tu trouvera s&#251;rement ton bonheur : on
r&#233;pond au moins 1 fois par mois &#224; ce genre de probl&#232;mes !

DarK Sidious

Un API Viewer (pour le VB, VB.NET, C, C# et Delphi) : www.ProgOtoP.com/popapi/

bgm2 · Answer

Merci Dark;
Mais j'ai besoin d'enregistrer tous les forms donc le projet tout entier car on va l'ouvrir ulterieurement pour voir certains choses.
S'il ya des codes sur le site Merci de me donner les adresses qui leurs correspondent.
Merci une autre fois.
 
" La beaut&#233; sans la gr&#226;ce attire, mais elle ne sait pas retenir ; c'est un app&#226;t sans hame&#231;on. "
<?xml:namespace prefix o ns "urn:schemas-microsoft-com:office:office" />


[Maxime Planude]


BGM

bgm2 · Answer

Salut;
    Vous ne m'avez pas compris parce que je ne m'ai pas bien expliqu&#233; .
    Mon objectif est d'enregistrer toute la form avec ses donn&#233;es introduites et les calculs obtenus comme on enregistre une feuille XL ou un document WORD.
Merci.


Un mot et tout est sauv&#233;
Un mot et tout est perdu
.
[<gras>Breton]


BGM

deleplace · Answer

Voici un code bidouillé vite fait en Vb6

Le Bouton2(Command2) modifier le texte(caption) du Bouton1(1) par le texte du TextBox Text1

Private Sub Command2_Click()
Dim I&, J&, A$
Open "Form1.frm" For Binary As 1 'ou le nom de ta form
A = Space(LOF(1))
Get 1, , A
Close 1
I = InStr(A, "Begin VB.CommandButton Command1 ")
If I Then I InStr(I, A, "Caption           """)
 If I Then
  I = I + 21
  J = InStr(I, A, """")
  Open "Form1.frm" For Output As 1 'ou le nom de ta form
  Print #1, Left(A, I - 1) & Text1.Text & Mid(A, J);
  Close 1
 End If
End If
End Sub

La sauvegarde est modifiée mais pas le projet en cours
Si tu réenregistre ta form ou le projet, tes modifs seront perdues
Si tu pouvais utiliser une méthode différente par exemple:
Mettre le texte dans le Fichier "Command1.txt"

Démarrer le Programme par

Private Sub Form_Load()
Dim A$
Open "Command1.txt" for Binary as 1
A=Space(Lof(1))
Get 1,,A
Close 1
Command1.caption=A
'...Suite de la procédure
End Sub

Private Sub Command2_Click()
Open "Command1.txt" for Output as 1
Print #1,Text1.text;
Close 1
Command1.caption=Text1.text
End Sub

Ce serait beaucoup plus propre, il n'y aurait pas à modifier le projet

Enregistrement d'un projet sur vb6

4 réponses

Discussions similaires