Discussion :

[cocosimus]

Bonsoir/Bonjour,

Je debut en VB.NET, je travail actuellement sur un petit programme que serais capable de classer tout mes livres indiquant dates auteurs et noms des livres mais aussi d'afficher l'image de la page de couverture que j'aurais scanner et enregistrer au format png

j'utilise VB express 2010

Mon problème:

Pour mieu expliquer je vais mettre quelque screen et mes code:

En premier je créer le livre à l'aide du logiciel :



en deuxième temps je doit afficher dans ma listbox le nom du livre puis juste en dessous quand je cliquerais sur le fichier dans ma listbox afficher les details c'est ici que je bloque je vous laisse ce que j'ai commencer.Si vous pouvez m'orienter quelque par je vous serais très reconnaissant :




les 2 codes utilisé :

1er:

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
30
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        Dim l As String = TextBox2.Text
        Dim a As String = TextBox4.Text
        Dim d As String = TextBox3.Text
        Dim fichier As String = "l" + ".OmegionCM34"
        If Not l = "" Then
            If My.Computer.FileSystem.DirectoryExists("./livres/" + l) Then
                MsgBox("Ce livre existe déjà")
            End If
            If Not a = "" Then
                If Not d = "" Then
                    My.Computer.FileSystem.CreateDirectory("./livres/" + l)
                    'je créer le dossier qui contiendra la page de couverture
                    Dim sw As New StreamWriter("./livres/" + fichier)
                    sw.WriteLine(l) ' l = le nom du livre
                    sw.WriteLine(a) ' a = L'Auteur
                    sw.WriteLine(d) ' d = L'année de parution du livre
                    sw.Close()
                    'je fais créer un dossier du nom de mon livre dans mon répertoire "livre" dans le quel je créer un fichier
                    'l.OmegionCM34 qui contiendras ce que je lui es dit d'écrire 
                Else
                    MsgBox("Vous avez oubliez la date ! Si vous ne la connaissez pas, mettez '0' comme valeur.")
                End If
            Else
                MsgBox("Vous avez oubliez le nom de l'Auteur !")
            End If
        Else
            MsgBox("Vous avez oubliez le nom du livre !")
        End If
    End Sub

2ieme:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
        Try
            Dim s = My.Computer.FileSystem.GetDirectories("./livres", FileIO.SearchOption.SearchAllSubDirectories)
            For Each a In s
                ListBox1.Items.Add(a)
            Next
        Catch ex As Exception
 
        End Try
    End Sub

[rv26t]

Bonjour,

A priori tu as le nom du répertoire du fichier dans la listebox (chemin complet) donc, sur le clic dans la listebox lire le fichier

Code :

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

1
2
3
4
5
6
7
8
    Private Sub lstLivres_Click(sender As System.Object, e As System.EventArgs) Handles lstLivres.Click
        Dim s As String = lstLivres.SelectedItem & "\l.OmegionCM34"
        Dim sr As StreamReader = New StreamReader(s)
        txtLivre.Text = sr.ReadLine() ' le nom du livre
        txtAuteur.Text = sr.ReadLine() ' L'Auteur
        txtAnnee.Text = sr.ReadLine() ' L'année de parution du livre
        sr.Close()
    End Sub

C'est bien de donner des noms explicites aux contrôles.

[cocosimus]

Bonjour,

A priori tu as le nom du répertoire du fichier dans la listebox (chemin complet) donc, sur le clic dans la listebox lire le fichier

Code :

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

1
2
3
4
5
6
7
8
    Private Sub lstLivres_Click(sender As System.Object, e As System.EventArgs) Handles lstLivres.Click
        Dim s As String = lstLivres.SelectedItem & "\l.OmegionCM34"
        Dim sr As StreamReader = New StreamReader(s)
        txtLivre.Text = sr.ReadLine() ' le nom du livre
        txtAuteur.Text = sr.ReadLine() ' L'Auteur
        txtAnnee.Text = sr.ReadLine() ' L'année de parution du livre
        sr.Close()
    End Sub

C'est bien de donner des noms explicites aux contrôles.

Merci de votre réponse si je comprend votre code cela permettrais de récupérer 1 a 1 les infos de mes fichiers par lignes ?

[rv26t]

Oui, WriteLine permet d'écrire une ligne dans le fichier, ReadLine permet de lire une ligne dans le fichier.

Après, il existe d'autres approches.
Utiliser une classe (Livre) et la sérialisation qui vous donnera des fichiers XML. Vous pourrez faire une liste de classe List(of Livre) qui vous permettra de facilement manipuler l'ensemble de livres. (vous pouvez aussi alimenter la classe livre avec les info du fichier que vous utilisez)
Utiliser une base de données.

Il faut voir des tutos, le Cours VB.NET par Philippe Lasserre regorge d'informations.