Discussion :

[devyounss]

Bonjour tout le monde ,
j'ai commencer a développer mon mini projet pour la fin d'étude
j'ai rencontrer un probleme dans le code du bouton Enregistrer , j'ai presque fait la moitié du code
mais je n'arrive pas a enregistrer tous les contenu de colonnes
mon programme possède 4 colonnes [ Nom , Prenom , Adresse , Telephone ]
Le probleme c'est quand j'enregistre les données dans un fichier , je trouve juste le contenu de la colonne [Nom]

Voici mon code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
 
 Private Sub Button10_Click(sender As System.Object, e As System.EventArgs) Handles Button10.Click
        SaveFileDialog1.ShowDialog()
 
        Dim Path As String = SaveFileDialog1.FileName
        Dim AllItems As String = ""
        Try
 
 
            For Itm = 0 To ListView1.Items.Count - 1
                AllItems = AllItems & ListView1.Items.Item(Itm).Text & vbNewLine
 
            Next
            AllItems = AllItems.Trim
 
        Catch ex As Exception
        End Try
 
        Try
            If My.Computer.FileSystem.FileExists(Path) Then
                My.Computer.FileSystem.DeleteFile(Path)
 
            End If
            My.Computer.FileSystem.WriteAllText(Path, AllItems, False)
        Catch ex As Exception
            MsgBox("Error" & vbNewLine & ex.Message, MsgBoxStyle.Exclamation, "Error")
 
        End Try
    End Sub

Merci de m'aider

[rv26t]

Bonjour,

Il faut aussi mettre les "subitem" avec un séparateur pour les différencier les uns des autres.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
        If SaveFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
            Dim Path As String = SaveFileDialog1.FileName
            Dim AllItems As String = ""
            Try
                For Itm = 0 To ListView1.Items.Count - 1
                    AllItems = AllItems & ListView1.Items(Itm).Text & "|" & ListView1.Items(Itm).SubItems(1).Text & "|" & ListView1.Items(Itm).SubItems(2).Text & "|" & & ListView1.Items(Itm).SubItems(3).Text & "|" &vbNewLine
                Next
                My.Computer.FileSystem.WriteAllText(Path, AllItems.Trim, False)
            Catch ex As Exception
                MsgBox("Error" & vbNewLine & ex.Message, MsgBoxStyle.Exclamation, "Error")
            End Try
        End If
    End Sub