cs_Fabian123
Messages postés180Date d'inscriptionvendredi 18 janvier 2008StatutMembreDernière intervention22 novembre 2013
-
28 févr. 2008 à 15:03
Dixiss
Messages postés1Date d'inscriptionlundi 29 mars 2010StatutMembreDernière intervention29 mars 2010
-
29 mars 2010 à 21:28
Bonjour,
voilà ma question :
j'ai une textBox et un commandButton, j'encode un nom dans la textbox et lorsque je clique sur le commandbutton il le sauvegarde dans un fichier .txt (blocnote).
mon souci est que il n'enregistre que sur la premiere ligne, donc il ecrase au fur et a mesure les noms et je ne retrouve donc que le dernier nom encodé.
Je souhaiterais qu'après avoir cliqué pour sauvegarder le nom il passe à la ligne pour enregistrer le nom suivant (et avoir ainsi une liste de tous les noms encodés... est-ce possible?
voici le code que j'ai introduit (code que j'ai retrouvé en cherchant sur le forum... merci!)
Private Sub CommandButton1_Click()
Dim texte
texte = TextBox1.Text
Open "C:\essai.txt" For Output As #1
Print #1, texte
Close #1
TextBox3.Text = ""
End Sub
jrivet
Messages postés7392Date d'inscriptionmercredi 23 avril 2003StatutMembreDernière intervention 6 avril 201260 28 févr. 2008 à 16:14
Re,
> [auteur/FABIAN123/1275093.aspx Fabian123]: Typer les variables ce n'est pas pour tes prochaines questions qu'il faut faire,c'est dans ton code et ta manière de développer. c'est pas pour nous faire plaisir mais appelons un Chat .... un Chat et non pas dans ton cas Un String , Un Variant
@+: Ju£i?n Pensez: Réponse acceptée
Vous n’avez pas trouvé la réponse que vous recherchez ?
Dixiss
Messages postés1Date d'inscriptionlundi 29 mars 2010StatutMembreDernière intervention29 mars 2010 29 mars 2010 à 21:28
Bonjour c'etait pour demander une information en rapport a la question poser , Je programme une application et j'ai fais sa :
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Private Sub ProgressBar1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Timer1.Start()
End Sub
Private Sub Timer1_Tick_1(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Timer1.Start()
End Sub
Private Sub Timer1_Tick_2(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
ProgressBar1.Value += 1
If ProgressBar1.Value = ProgressBar1.Maximum Then
Timer1.Stop()
MsgBox("La transaction s'effectuera dans 24 heure")
End If
End Sub
Private Sub Label5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label5.Click
End Sub
Private Sub Form1_Load_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
End Class
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim texte
texte = TextBox1.Text
Open "C:\essai.txt" For Append As #1
Print #1, texte
Close #1
TextBox3.Text = ""
End Sub
Et il me marque Instruction Non valide , je voudrais que quand j'appuie sur "Click (le bouton) je recoivent les information .. merci de me repondre
Dixisss