none
plusieurs listbox sur un form en vb2010 RRS feed

  • Question

  • Bonjour

     je suis devant un  problème sur un form j'ai  plusieurs listbox je voudrais une fois remplies les sauvegarder et pouvoir à la prochaine ouverture  retrouver automatiquement leur contenu est ce possible

     merci de me venir en aide

    vendredi 1 mai 2015 09:10

Réponses

  • Bonjour,

    voici un exemple vous pouvez faire :

    mon code :

    Imports System.IO

    Public Class Form1

    Private Sub OUVRIRToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles OUVRIRToolStripMenuItem.Click Dim open As New OpenFileDialog open.Filter = "Fichier Texte|*.txt" open.InitialDirectory = My.Computer.FileSystem.SpecialDirectories.Desktop If open.ShowDialog = Windows.Forms.DialogResult.OK Then ToolStripTextBox1.Text = open.FileName Dim sr As New StreamReader(open.FileName) While (sr.Peek > -1) ListBox1.Items.Add(sr.ReadLine) ListBox2.Items.Add(sr.ReadLine) ListBox3.Items.Add(sr.ReadLine) ListBox4.Items.Add(sr.ReadLine) ListBox5.Items.Add(sr.ReadLine) End While sr.Close() MessageBox.Show("Fichier Charger") Else : Exit Sub End If End Sub Private Sub ENREGISTRERToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles ENREGISTRERToolStripMenuItem.Click If ToolStripTextBox1.Text <> "" Then Dim wr As New StreamWriter(ToolStripTextBox1.Text) For Each item In ListBox1.Items wr.WriteLine(item) Next For Each item In ListBox2.Items wr.WriteLine(item) Next For Each item In ListBox3.Items wr.WriteLine(item) Next For Each item In ListBox4.Items wr.WriteLine(item) Next For Each item In ListBox5.Items wr.WriteLine(item) Next wr.Close() MessageBox.Show("Fichier Sauvegarder") End If End Sub

    End Class

    A toi ajouter le nombre de listbox dans ouvrir et sauvegarder.

    Cordialement,


    vendredi 1 mai 2015 15:41

Toutes les réponses

  • Bonjour,

    Pourquoi , plusieurs  listbox?

    Pour lire ton fichier sur un listbox :

    ListBox1.Items.AddRange(File.ReadAllLines(open.FileName))

    tu peux faire sur des textbox . regarde ce lien : lire et enregistrer sur des textbox

    Cordialement,

    vendredi 1 mai 2015 11:51
  • merci de votre  aide si précieuse je vous transmet l'image  du form en question. je voudrais le sauvegarder et à l'ouverture pouvoir le retrouver 

    vendredi 1 mai 2015 12:57
  • Bonjour,

    voici un exemple vous pouvez faire :

    mon code :

    Imports System.IO

    Public Class Form1

    Private Sub OUVRIRToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles OUVRIRToolStripMenuItem.Click Dim open As New OpenFileDialog open.Filter = "Fichier Texte|*.txt" open.InitialDirectory = My.Computer.FileSystem.SpecialDirectories.Desktop If open.ShowDialog = Windows.Forms.DialogResult.OK Then ToolStripTextBox1.Text = open.FileName Dim sr As New StreamReader(open.FileName) While (sr.Peek > -1) ListBox1.Items.Add(sr.ReadLine) ListBox2.Items.Add(sr.ReadLine) ListBox3.Items.Add(sr.ReadLine) ListBox4.Items.Add(sr.ReadLine) ListBox5.Items.Add(sr.ReadLine) End While sr.Close() MessageBox.Show("Fichier Charger") Else : Exit Sub End If End Sub Private Sub ENREGISTRERToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles ENREGISTRERToolStripMenuItem.Click If ToolStripTextBox1.Text <> "" Then Dim wr As New StreamWriter(ToolStripTextBox1.Text) For Each item In ListBox1.Items wr.WriteLine(item) Next For Each item In ListBox2.Items wr.WriteLine(item) Next For Each item In ListBox3.Items wr.WriteLine(item) Next For Each item In ListBox4.Items wr.WriteLine(item) Next For Each item In ListBox5.Items wr.WriteLine(item) Next wr.Close() MessageBox.Show("Fichier Sauvegarder") End If End Sub

    End Class

    A toi ajouter le nombre de listbox dans ouvrir et sauvegarder.

    Cordialement,


    vendredi 1 mai 2015 15:41
  • merci beaucoup je vais tester cela demain

     bonne soirée et grand merci

    vendredi 1 mai 2015 21:36
  • Bonjour,

    Si la réponse vous satisfait, n'oubliez pas de la proposer comme réponse. Merci

    Cordialement,

    samedi 2 mai 2015 09:00
  • bonjour

    je suis entrain de rentrer les code et j’obtiens une erreur de type non défini pour 'streamreader' de quoi cela provient il ?

     j’ai bien mis un richtexbox dans le menustrip et un savefialedialog

    merci de m'expliquer de quoi proviens mon erreur

    samedi 2 mai 2015 14:54
  • Bonjour,

    voici en image :

    cordialement,

    samedi 2 mai 2015 16:59
  • bonsoir merci pour ce code je viens de le tester pas d’erreur par contre quand je fais un test à l'ouverture il y a erreur au niveau de

    lisstbox1.items.add(sr.readline) erreur de type nul ca bloque l'ouverture du fichier à moins que j'ai fias une bêtise

    merci encore de votre aide

    samedi 2 mai 2015 22:14
  • Bonjour,

    1. je suis entrain de rentrer les code et j’obtiens une erreur de type non défini pour 'streamreader' de quoi cela provient il ?
    2. j’ai bien mis un richtexbox dans le menustrip et un savefialedialog
    3. merci de m'expliquer de quoi proviens mon erreur

    dans votre message précédent, vous avez mise un richtextbox?

    es ce que vous avez mise une richtextbox ou listbox1 c'est deux chose différent?

    Pouvez-vous montrer votre code pour le corriger et me dire c'est quoi que vous avez mis?

    Cordialement,

    dimanche 3 mai 2015 08:35
  • bonjour

    je vous transmet mes codes afin  de vous  rendre compte si j'ai fais une erreur

    Imports System.IO


    Public Class Form1

        Private Sub OuvrirToolStripMenuItem_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles OuvrirToolStripMenuItem.Click
            Dim open As New OpenFileDialog
            open.Filter = "Fichier Texte|*.txt"
            open.InitialDirectory = My.Computer.FileSystem.SpecialDirectories.Desktop
            If open.ShowDialog = Windows.Forms.DialogResult.OK Then
                ToolStripTextBox1.Text = open.FileName
                Dim sr As New StreamReader(open.FileName)
                While (sr.Peek > -1)
                    ListBox1.Items.Add(sr.ReadLine)
                    ListBox2.Items.Add(sr.ReadLine)
                    ListBox3.Items.Add(sr.ReadLine)
                    ListBox4.Items.Add(sr.ReadLine)
                    ListBox5.Items.Add(sr.ReadLine)
                End While
                sr.Close()
                MessageBox.Show("Fichier Charger")
            Else : Exit Sub
            End If
        End Sub



        Private Sub EnregistrerToolStripMenuItem_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles EnregistrerToolStripMenuItem.Click
            If ToolStripTextBox1.Text <> "" Then
                Dim wr As New StreamWriter(ToolStripTextBox1.Text)
                For Each item In ListBox1.Items
                    wr.WriteLine(item)
                Next
                For Each item In ListBox2.Items
                    wr.WriteLine(item)
                Next
                For Each item In ListBox3.Items
                    wr.WriteLine(item)
                Next
                For Each item In ListBox4.Items
                    wr.WriteLine(item)
                Next
                For Each item In ListBox5.Items
                    wr.WriteLine(item)
                Next
                wr.Close()
                MessageBox.Show("Fichier Sauvegarder")
            End If
        End Sub

        Private Sub ListBox4_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox4.SelectedIndexChanged

        End Sub
    End Class

    je joint les copies d’écrans obtenues avec l'erreur

     merci encore

    dimanche 3 mai 2015 13:10
  • voici mes copies d'ecran

    dimanche 3 mai 2015 13:13
  • Bonjour,

    le code que vous avez il y est bon. l'erreur vient du fichier txt.

    voici un exmple erreur:

    Pour corriger l'erreur, vous faite retour pour effacer jusqu’à la dernier mot et enregistrer le text:

    Maintenant à toi de regarder ton fichier TXT.

    cordialement,


    • Modifié zorro591 dimanche 3 mai 2015 13:49
    dimanche 3 mai 2015 13:34
  • merci beaucoup  grâce à toi çà marche vraiment capricieux le fichier texte

     on peut garder cette réponse pour d'autres

    une bonne semaine à toi et encore merci

    dimanche 3 mai 2015 14:36