Question sur vb.net réglage un fois choisie Fermé

Question

Bonjour a tous,

j aimerai que quelqu'un me donne le code source en vb.net pour que lorsque je lance mon programme il lise le réglage indiquer dans un fichier avec extension .ini 
exemple je choisie un msg a afficher au début du lancement de mon programme qui a été modifier une fois l'aplication lancer msg"bienvenue ..." et que la prochaine fois il devienne msg "bienvenue "Le nom de la personne qui a choisie au préalable"
en fait je voudrai un système de sauvegarde de paramètre choisie par l utilisateur du programme
comme le fond beaucoup de prog
merci d avance =)



Configuration: Windows 7 / Chrome 21.0.1180.83

nathan 60 · Answer

Bonjour, 

je vous invite à lire ce tutoriel très complet qui vous expliquera comment gérer les fichiers et leurs texte en VB.NET.

Visual Basic .NET - les fichiers

reaster · Answer

merci super tuto mais je n y arrive toujours pas

nathan 60 · Answer

Où bloquez-vous ? Avez-vous bien essayé toutes les manipulations ?

reaster · Answer

au moment d écrire dans le fichier :( j ai ce msg d erreur "La référence d'objet n'est pas définie à une instance d'un objet."

nathan 60 · Answer

Avez-vous bien créé le flux (FileStream) correspondant ?

reaster · Answer

Je ne sait pas .Comment le savoir svp ?

nathan 60 · Answer

Le plus simple serait que vous me montriez votre code, car ce n'est pas facile de se rendre compte.

reaster · Answer

Imports System.IO

Public Class Form1

    Dim MonFichier As IO.FileStream

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'Création d'un objet de type FileStream 
        MonFichier = New IO.FileStream("Zero.txt", IO.FileMode.OpenOrCreate)
    End Sub

    Private Sub Form1_FormClosing(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.FormClosing
        'Libère la mémoire
        MonFichier.Dispose()
    End Sub

#Region "Gestion des boutons"

    Private Sub BT_LIRE_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BT_LIRE.Click

        If MonFichier.CanRead() Then
            'Crée un tableau de Byte
            Dim Contenu(1024) As Byte
            'Lit 1024 bytes et les entre dans le tableau
            MonFichier.Position = 0
            MonFichier.Read(Contenu, 0, 1024)
            'L'affiche
            Me.TXT_LECTURE.Text = ""
            For Each Lettre As Byte In Contenu
                Me.TXT_LECTURE.Text += Chr(Lettre)
            Next
        End If

    End Sub

    Private Sub BT_ECRIRE_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BT_ECRIRE.Click
        If MonFichier.CanWrite Then
            Dim Contenu(1024) As Byte
            Dim Compteur As Integer = 0
            'Parcours la txtbox
            For Each Lettre As Char In Me.TXT_ECRITURE.Text.ToCharArray
                'Convertit une lettre en sa valeur ascii et l'entre dans compteur
                Contenu(Compteur) = Asc(Lettre)
                Compteur += 1
            Next
            'Ecrit dans le fichier
            If Me.CHK_DEBUT.Checked Then
                MonFichier.Position = 0
            End If
            MonFichier.Write(Contenu, 0, Compteur)
        End If
    End Sub

    Private Sub BT_CLEARLIRE_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BT_CLEARLIRE.Click
        Me.TXT_LECTURE.Text = ""
    End Sub

    Private Sub BT_CLEARECRIRE_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BT_CLEARECRIRE.Click
        Me.TXT_ECRITURE.Text = ""
    End Sub

    Private Sub BT_CLEAR_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BT_CLEAR.Click
        'Je ferme le fichier actuel
        MonFichier.Dispose()
        'Je le réouvre en écrasant ses données
        MonFichier = New IO.FileStream("Zero.txt", FileMode.Create)
    End Sub

#End Region

    Private Sub Button4_Click(sender As System.Object, e As System.EventArgs) Handles BT_ECRIRE.Click

    End Sub
End Class

Question sur vb.net réglage un fois choisie

8 réponses

Discussions similaires