Visual Basic | Probléme de formulaire d'inscription.

Résolu

Freakin Messages postés 77 Date d'inscription Statut Membre Dernière intervention -
Freakin Messages postés 77 Date d'inscription Statut Membre Dernière intervention - 18 août 2013 à 19:28

Bonjour à tous, je voudrais savoir comment faire pour faire plusieurs inscription, je m'explique:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

If (Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments) & "\" & "Inscrition - MenuProHacker - Team.txt") Then

Dim SS As New System.IO.StreamWriter(Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments) & "\" & "Inscrition - MenuProHacker - Team | 2.txt")

SS.WriteLine(TextBox1.Text)
SS.WriteLine(TextBox3.Text)
SS.Close()
MsgBox("Votre compte a bien été enregistrer !", MsgBoxStyle.Information, ("Compte"))
Form1.Show()
Me.Close()

Else

Dim SW As New System.IO.StreamWriter(Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments) & "\" & "Inscrition - MenuProHacker - Team.txt")

SW.WriteLine(TextBox1.Text)
SW.WriteLine(TextBox3.Text)
SW.Close()
MsgBox("Votre compte a bien été enregistrer !", MsgBoxStyle.Information, ("Compte"))
Form1.Show()
Me.Close()

End If

End Sub

--------------------------------------------------------------------------------------------------------

ou même avec ce code cela ne fonctionne pas :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim SW As New System.IO.StreamWriter(Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments) & "\" & "Inscrition - MenuProHacker - Team.txt")

SW.WriteLine(TextBox1.Text)
SW.WriteLine(TextBox3.Text)
SW.Close()
MsgBox("Votre compte a bien été enregistrer !", MsgBoxStyle.Information, ("Compte"))
Form1.Show()
Me.Close()
If Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments) & "\" & "Inscrition - MenuProHacker - Team.txt" = True Then

Dim SS As New System.IO.StreamWriter(Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments) & "\" & "Inscrition - MenuProHacker - Team | 2.txt")

SS.WriteLine(TextBox1.Text)
SS.WriteLine(TextBox3.Text)
SS.Close()
MsgBox("Votre compte a bien été enregistrer !", MsgBoxStyle.Information, ("Compte"))
Form1.Show()
Me.Close()

End If

-------------------------------------------------------------------------------------------------------

Voila donc la sa veut pas enregistrez 2 inscription, sa me dit :
"La conversion de la chaîne "C:\Users\TahFl-91\Documents\Insc" en type 'Boolean' n'est pas valide."

Mais quand je met qu'un seul endroit ou fichier texte a enregistrez pour 1seul compte, cela fonctionne tres bien.

Voila je voudrais juste savoir sa svp.

Afficher la suite

A voir également:

Visual Basic | Probléme de formulaire d'inscription.
Whatsapp formulaire opposition - Guide
Visual basic - Télécharger - Langages
Formulaire de réclamation facebook - Guide
Visual basic editor - Télécharger - Langages
Wetransfer gratuit sans inscription - Guide

1 réponse

Réponse 1 / 1

MrYAU31 Messages postés 3808 Date d'inscription Statut Membre Dernière intervention 1 615

Bonjour,
Quand tu fais

If Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments) & "\" & "Inscrition - MenuProHacker - Team.txt" = True Then

Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments) & "\" & "Inscrition - MenuProHacker - Team.txt" te renverra le chemin vers Inscrition - MenuProHacker - Team.txt (comme C:\Users\Moi\Mes Documents\Inscrition - MenuProHacker - Team.txt). Tu ne peux pas tester s'il a la valeur True or False. Si tu veux savoir s'il existe, utilise Exists(Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments) & "\" & "Inscrition - MenuProHacker - Team.txt")
qui te renverra bien True ou False.

Freakin Messages postés 77 Date d'inscription Statut Membre Dernière intervention 3

Merci de ton aide, mais sur Visual Basic sa n'existe pas: "Exists" j'ai bien essayer, mais apparament sa fonctionne qu'en Batch.

MrYAU31 Messages postés 3808 Date d'inscription Statut Membre Dernière intervention 1 615

Tu n'as peut-être pas les Imports qu'il faut.
Fais System.IO.File.Exists à la place de Exists.
Ou ajoute un Imports System.IO.File au début du code de ta form.

Freakin Messages postés 77 Date d'inscription Statut Membre Dernière intervention 3

Merci, cela fonctionne mais encore une question, désolé ^^

Mais quand je sa crée le premier fichier le deuxième se crée automatiquement, cela est normal car il détecte que le premier Existe, mais je veut que le deuxième fichier se crée que si l'utilisateur se crée un autre compte, enfin qu'il clique sur confirmez l'inscription & je sais pas comment faire car tout est dans le boutton1.

Merci de ton aide ;)

MrYAU31 Messages postés 3808 Date d'inscription Statut Membre Dernière intervention 1 615

Sur ton 1er code ou ton 2ème ?
Avec le 1er, tu as ta condition IF qui ne devrait pas faire de création du second fichier si le fichier du premier compte n'existe pas...
Tu penses bien à supprimer ton fichier une fois le compte créé ?

Freakin Messages postés 77 Date d'inscription Statut Membre Dernière intervention 3

Alors, oui j'utilise la fonctionne " if " et je ne supprime pas le fichier parce-que je dit au programme que regarder dans le fichier texte, si je le supprime il n'y a plus d'identifiant ect.
je te réenvoie mon code :

CODE :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim SW As New System.IO.StreamWriter(Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments) & "\" & "Inscrition - MenuProHacker - Team.txt")

SW.WriteLine(TextBox1.Text)
SW.WriteLine(TextBox3.Text)
SW.Close()
MsgBox("Votre compte a bien été enregistrer !", MsgBoxStyle.Information, ("Compte"))
Form1.Show()
Me.Close()

If Exists(Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments) & "\" & "Inscrition - MenuProHacker - Team.txt") Then

Dim SS As New System.IO.StreamWriter(Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments) & "\" & "Inscrition - MenuProHacker - Team2.txt")

SS.WriteLine(TextBox1.Text)
SS.WriteLine(TextBox3.Text)
SS.Close()
MsgBox("Votre compte a bien été enregistrer !", MsgBoxStyle.Information, ("Compte"))
Form1.Show()
Me.Close()

End If

Discussions similaires

Site de confiance ou non ?

Votre réponse

Discussions similaires