plusieurs listbox sur un form en vb2010

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

Answer 1

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,

Answer 2

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 

Answer 3

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,

Answer 4

merci beaucoup je vais tester cela demain

 bonne soirée et grand merci

Answer 5

Bonjour,

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

Cordialement,

Answer 6

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

Answer 7

Bonjour,

voici en image :

cordialement,

Answer 8

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

Answer 9

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,

Answer 10

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

Answer 11

voici mes copies d'ecran

Answer 12

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,

Answer 13

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