Discussion :

[CKLogs]

Bonsoir,

J'ai un problème avec mon code je ne sais pas pourquoi pourtant tout me semble correcte. le principe de mon code je veut que l'utilisateur qui possède le logiciel doit rentré un mot de passer (ex dans le txt du code : 123,456,789) et il utilise le code 123 donc du cout le code 123 se suprimme dans le txt donc l'utilisateur si il voudra réutiliser le logiciel il devra avoir 456 ou 789 car 123 ne marche plus.

Voici Mon

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Imports System.IO
Public Class Form1
    Private Sub Button1_Click() Handles Button1.Click
        Dim BDD As String = My.Computer.FileSystem.ReadAllText(My.Resources.tontxt)
        Dim SW As New StreamWriter(My.Ressources.tontxt)
        If BDD.Contains(TextBox1.Text) And TextBox1.TextLenght > 4
            MessageBox.Show("Logged in")
            SW.Remove(TextBox1.Text)
        Else
            MessageBox.Show("Error")
        End If
    End Sub
End Class

Voici les erreurs :

Erreur 3 'Remove' n'est pas un membre de 'System.IO.StreamWriter'.
Erreur 1 'Ressources' n'est pas un membre de 'My'
Erreur 2 'TextLenght' n'est pas un membre de 'System.Windows.Forms.TextBox'

Cordialement.

[clementmarcotte]

Bonjour,

Erreur 3 'Remove' n'est pas un membre de 'System.IO.StreamWriter'.

C'est vrai, mais pour la correction:



Parce que je ne vois pas ce que tu veux en faire. Si ton idée c'est d'enlever le texte utilisé d'un fichier texte existant, tu dois effacer ton fichier existant et le réécrire au complet. Mais c'est impossible de le faire en modifiant directement le StreamWriter.

Erreur 1 'Ressources' n'est pas un membre de 'My'

Cela doit être en anglais, donc un seul s:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim SW As New StreamWriter(My.Resources.tontxt)

Erreur 2 'TextLenght' n'est pas un membre de 'System.Windows.Forms.TextBox'

C'est vrai. Tu dois utiliser le texte sans vraiment tenir compte du TextBox:

Quelque chose comme cela :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
'Récupérer le contenu du TextBox
dim LeTexte as string = TextBox1.Text
'Puisque l'on a eu besoin de récupérer le texte du Textbox
'C'est plus simple de l'utiliser que de le répurérer de nouveau
If BDD.Contains(LeTexte) And LeTexte.Lenght > 4
            MessageBox.Show("Logged in")

Ou bien comme cela :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 If BDD.Contains(TextBox1.Text) And TextBox1.Text.Lenght > 4
            MessageBox.Show("Logged in")

Personnellement, je préfère la première parce que cela me semble plus clair.

[CKLogs]

[clementmarcotte]

Si tu as un vrai fichier de ressources, tel qu'il est (re)connu par VisualStudio, tu n'as pas besoin d'un stream pour le manipuler. (Ou du moins VS le fait d'une manière transparente.)