MsgBox a label en Visual Basic Résolu/Fermé

Question

Bonjour, 

J'ai réussi a écrire d'une message box a un label mais le problème est  que quand je ferme mon application et que je la relance il n'enregistre pas ce que j'ai écrit donc le texte revient au premier 

Comment faire pour que le texte que j'ai écrit dans msgbox remplace définitivement le texte qui dans le label ???

Aidez moi svp !

Merci


Configuration: Windows XP / Firefox 3.6.13

tech_57 · Answer

Bonjour,

Tu dois stocker l'information dans un fichier, une cellule (si c'est du VBA Excel), un registre..., bref n'inporte où sauf dans le code du prog.
A chaque demarrage, aller chercher l'info la où elle se trouve.
Evidemment si c'est un mot de passe, il vaudrait mieux le crypter avant de l'enregistrer.

;)

luki31 · Answer

Je suis sous Visual Basic 2010 express  en VB6 

Comment je fais pour stocker l'information dans un fichier ?  

Merci :)

Bidouilleu_R · Answer

tu crées un fichier tout simple voir la commande open 

et tu prévois un bout de code pour lire le fichier quand tu lances ton programme

tech_57 · Answer

En VB6:

Voir dans l'aide comment utiliser les instructions open, print #, input #

Il y a des exemples.

;)

luki31 · Answer

Pourriez vous me donné un exemple ? 

Merci

tech_57 · Answer

Si tu ne pas le nez dans l'aide, tu n'arriveras pas à finir ton prog.
Je te donne un exemple très simple, après ce sera à toi de poursuivre.

'pour enregistrer le texte
Sub CreateTextFile()
Dim VarTxt As String

VarTxt = "My_Password"
'tu peux aussi mettre
'VarTxt = Label6.Caption
'ou encore
'VarTxt = TextBox5.Text
'suivant l'origine te ton texte

Open "C:\MonFichier.txt" For Output As #1
'remplace "C:\MonFichier.txt" par le chemin et le nom complet du fichier à créer
'sois très prudent car si le fichier existe déjà il sera écrasé

Print #1, VarTxt
Close

End Sub



'pour récupérer le texte
Sub ReadTextFile()
Dim VarTxt As String

Open "C:\MonFichier.txt" For Input As #1
'remplace "C:\MonFichier.txt" par le chemin et le nom complet du fichier à lire

Input #1, VarTxt
Close

MsgBox "Mot de Passe = " & VarTxt
'tu peux aussi mettre
'Label6.Caption = VarTxt
'ou encore
'TextBox1.Text = VarTxt
'suivant l'endroit ou tu veux l'afficher

End Sub

tech_57 · Answer

Montre ce que tu as fait, stp.

luki31 · Answer

Public Class Form1

    Sub CreateTextFile()
        Dim VarTxt As String

        VarTxt = "My_Password"

Open "D:\Documents and Settings\home\Mes documents\Mes programes	ext.txt" For Output As #1

Print #1, VarTxt
        Close()

    End Sub
End Class

Bidouilleu_R · Answer

est-ce qu'il ne manque pas un 

imports system.io   ???
je suis pas sur...

tech_57 · Answer

Il ne faut pas mettre la sub CreateTextFile() dans Class Form1
Il faut mettre cette procédure directement dans le code de Form1 qui contient les controles à atteindre.

Enlève Public Class Form1 et End Class

luki31 · Answer

Je suis confu ! voila mon VB:

Public Class Form2
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If verification() Then
            Form3.Show()
        Else
            Form4.Show()

        End If
    End Sub
    Function verification() As Boolean
        Dim accepter As Boolean = True
        If TextBox1.Text = Label6.Text Then
            Label6.Hide()
        Else
            Label7.Show()
        End If

        If TextBox2.Text = TextBox4.Text Then
            Form1.MaskedTextBox1.Text = Me.TextBox2.Text
            Form3.Show()
        Else
            Label8.Show()
            Label9.Show()

        End If


    End Function

End Class

Et je sais pas ou mettre 
Sub CreateTextFile()
        Dim VarTxt As String

        VarTxt = "My_Password"

Open "D:\Documents and Settings\home\Mes documents\Mes programes	ext.txt" For Output As #1

Print #1, VarTxt
        Close()

    End Sub
End Class

tech_57 · Answer

Effectivement, ça ne marche pas parce que c'est du VB.NET et moi je te parle de VB6, c'est légèrement différent
'-------------------------
Sub CreateTextFile()
        Dim VarTxt As String

        VarTxt = "My_Password"

FileOpen( 1, "D:\Documents and Settings\home\Mes documents\Mes programes	ext.txt", OpenMode.Output)

Print(1,VarTxt)

FileClose (1)

    End Sub
'-----------------------

Voilà, c'est mieux si on parle la même langue.

luki31 · Answer

Merci énormément :) Pourrez vous juste encore me dire comment envoyer un text a ce fichier text.txt et comment le récupéré ? 


Merci encore

tech_57 · Answer

Bonsoir,

Alors pour envoyer un texte dans ce fichier, on vient de le voir.
La procédure Sub CreateTextFile() écrit la valeur de la variable VartTxt dans le fichier.
Admettons que tu veuilles ecrire le contenu de Form1.MaskedTextBox1, remplaces alors la ligne
VarTxt = "My_Password" 

par
VarTxt =  Form1.MaskedTextBox1.Text

Pour vérifier, aprés exécution ouvre le fichier text.txt avec Bloc Note. Tu devrais y trouver le contenu de Form1.MaskedTextBox1

Quand tu auras avancé jusque là, on verra comment récuperer ce texte

;)

luki31 · Answer

MERCI ! J'ai enfin réussi a écrire dans un fichier !!! 

Maintenant reste a lire ce fichier pour que le mot de passe soit celui qui dans le fichier texte.

Encore une fois !

tech_57 · Answer

Bon, maintenant récupérer le contenu du fichier
voici la procédure:

'----------------------
Sub ReadTextFile() 
Dim VarTxt As String 

FileOpen( 1, "D:\Documents and Settings\home\Mes documents\Mes programes	ext.txt", OpenMode.Input) 

VarTxt = LineInput(1) 
FileClose(1)

MsgBox "Mot de Passe = " & VarTxt 

End Sub
'------------------------

Si tu exécutes cette procédure, tu devrais voir dans la MsgBox le contenu du fichier text.txt

Remplaces la ligne
MsgBox "Mot de Passe = " & VarTxt 

par
Me.TextBox2.Text = VarTxt

pour mettre le texte dans TextBox2 par exemple

;)

tech_57 · Answer

ça ne marche pas...

Il y a une erreur ou il ne se passe rien?

luki31 · Answer

Il ne se passe rien

tech_57 · Answer

Il ne se passe rien parce la procédure n'est pas exécutée.

Il faut provoquer un évènement qui va exécuter la procédure: par exemple, au moment de l'ouverture de Form1, ou le clic sur un bouton ....

Il faut voir à quel moment du prog on a besoin le l'info.

;)

luki31 · Answer

Pourtant j'ai mit:

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim VarTxt As String

        FileOpen(1, "D:\Documents and Settings\home\Mes documents\Mes programes	ext.txt", OpenMode.Input)

        VarTxt = LineInput(1)
        FileClose(1)

        Me.Label3.Text = VarTxt

    End Sub

tech_57 · Answer

Ce que tu me montres, c'est l'étape ou tu écris l'info dans le fichier si la vérif est OK. A aucun moment tu ne demandes d'aller chercher l'info dans le fichier et l'écrire dans un textbox.

??

luki31 · Answer

Si c'est cela:
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim VarTxt As String

        FileOpen(1, "D:\Documents and Settings\home\Mes documents\Mes programes	ext.txt", OpenMode.Input)

        VarTxt = LineInput(1)
        FileClose(1)

        Me.Label3.Text = VarTxt

    End Sub

tech_57 · Answer

c'est mieux
qu'est ce qui se passe quand tu clic sur ce bouton?

Ajoute une ligne du genre

Msgbox "Ouverture du fichier"
FileOpen....

Esct ce que tu vois le message quand tu clic sur le bouton?

luki31 · Answer

Il y a rien qui s'affiche dans la msgbox

tech_57 · Answer

Alors c'est que tu ne cliques pas sur le bon bouton.
Vérifie l'enchainement de tes actions. Quel bouton de quelle Form est programmé pour ça. Est ce bien la bonne Form qui est affichée ...

luki31 · Answer

J'ai crée un nouveau projet tout simple pour tester si sa marche et sa a marcher ! donc je pense que je vais re faire tout ! :D

Merci énormément de ton aide !

tech_57 · Answer

C'est en effet plus sage.
Normalement, avant d'ecrire du code, on resonne sur du papier. On élabore un algorithme ou un arbre programmatique qui detaille toutes les taches et comments elles s'articulent les unes par rapport aux autres.
Sinon on vite fait de s'y perdre, surtout quand on débute.

Bonne continuation.

MsgBox a label en Visual Basic

27 réponses

Discussions similaires