Discussion :

[geekploy]

Bonjour à tous,
J'essaie de développer un programme en VB.net et étant un bon gros débutant en ce langage, je me retrouve coincé. Explication :
Mon programme a pour but de faciliter les recherches web entre autre.
Pour celà j'ai récupéré les "adresses de recherches" de site ( exemple : https://www.google.fr/#hl=fr&output=...ient=psy-ab&q= ).
Je sauvegarde mes adresses sous la forme de fichiers textes dans un dossier ou j'y ajoute le logo du site correspond. Au final je me retrouve avec plusieurs dossiers (nommé google, youtube ...) qui contiennent chacun l'adresse et le logo du site.

Maintenant j'aimerai bien pouvoir, depuis mon application VB.net, afficher chaque logo (un genre de listing) avec associé une variable qui contient l'adresse du fichier texte associé au logo.

Je me retrouve donc avec ce problème :
- comment afficher les images et y associé la variable alors que le nom de mes dossiers et lui même une variable (google, youtube, facebook ...) ? (Je connais par contre l'emplacement de mes dossiers).

Est ce qu'il serai plus judicieux d'avoir un autre fichier texte avec tout les noms des dossiers et au fur et à mesure que je rajoute des dossiers, je rajoute une ligne dans ce fichier ?


Je m'excuse de pas pouvoir être plus claire que ça ....
Merci à tous ceux qui y porteront attention.

[franticfranz]

Bonjour,

En supposant que vos dossiers soient eux même regroupés dans un dossier parent, et que chacun de ces dossiers contienne un fichier logo.gif et descriptif.txt :

- parcourir ce dossier parent, de relever le chemin de chaque sous dossier et de les stocker dans un tableau "variable1" par exemple ;

- lorsque vous voulez afficher le logo d'un site numéro 'index' dans un PictureBox, vous pouvez utiliser :

Code :

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

        PictureBox1.Image.FromFile(variable1(index) & "logo.gif")

- Utiliser la même méthode avec le fichier texte et un textbox (par exemple)

Code :

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

1
2
3
        Dim str As String
        str = IO.File.ReadAllText(variable1(index) & "descriptif.txt")
        TextBox1.Text = str

Je ne sais pas si ça répond à votre attente...

[franticfranz]

Voilà un exemple qui identifie tous les sous-répertoires d'un répertoire donné (ici par exemple : "c:\") :

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
        Dim ListeRepertoires As New List(Of String)
 
        Try
            ' Répertoire parent
            Dim di As New System.IO.DirectoryInfo("c:\")
            ' Obtient des infos sur chacun des sous-répertoires
            Dim diArr As System.IO.DirectoryInfo() = di.GetDirectories()
            ' Inventorie chaque nom de répertoire
            Dim dri As System.IO.DirectoryInfo
            For Each dri In diArr
                ListeRepertoires.Add(dri.Name)
            Next dri
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
 
        ' Affichage dans un RichTextBox
        For Each nom In ListeRepertoires
            RichTextBox1.SelectedText = nom & vbNewLine
        Next nom

Dans un premier temps on construit un tableau contenant chaque nom de sous-répertoire, dans un deuxième temps on traite l'info : ici par exemple on affiche les noms dans une boite de texte.

A noter que si on remplace dri.Name par dri.FullName, on obtient le chemin d'accès complet de chaque sous-répertoire, au lieu du nom seulement. On peut également aller chercher d'autres infos sur chaque répertoire (est-il caché ? Quand a-t-il été créé ?).

[geekploy]

Merci le code marche bien, Par contre je n'arrive pas à récupérer chaque ligne du richbox pour pouvoir par la suite avoir un lien vers l'image et le fichier texte.

Je pensais utiliser le ListView pour présenter mes différents "liens" associés à leurs images. Est ce la manière la plus facile ou dois-je m'orienté vers une technique ? Est ce que le fait de ne pas savoir le nombre de sous dossier que j'ai compliquera fortement la chose ?

[franticfranz]

Par contre je n'arrive pas à récupérer chaque ligne du richbox pour pouvoir par la suite avoir un lien vers l'image et le fichier texte.

Il faut évidement remplacer la ligne :

Code :

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

RichTextBox1.SelectedText = nom & vbNewLine

par votre traitement à vous. L'affichage dans un richtextebox n'était qu'un exemple.

Je pensais utiliser le ListView pour présenter mes différents "liens" associés à leurs images. Est ce la manière la plus facile ou dois-je m'orienté vers une technique ?

Tout dépend de ce que vous voulez faire ! Chaque contrôle a ses avantages, tout dépend de la façon dont l'utilisateur doit interagir avec ces données.

Est ce que le fait de ne pas savoir le nombre de sous dossier que j'ai compliquera fortement la chose ?

Dans l'exemple que je vous ai donné, il n'y a aucune précision quant au nombre de sous-dossiers. Que vous en ayez 10 ou 1000, le code ne change pas. Par contre il est hors de question de fournir à l'utilisateur une liste de 1000 images, il va donc falloir trouver une astuce pour classer tout ça si le cas se présente.

[geekploy]

Code :

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

1
2
3
4
For Each nom In ListeRepertoires
            Dim link As String
            link = nom
            Label2.Text = link & vbNewLine

Avec ce code j'arrive à faire des noms de mes dossiers une variable mais ce n'est pas une seule variable qu'il me faut, mais une variable pour chaque dossier ... Dans le label2 (qui est pour tester ma vairable), je n'ai que le nom du dernier dossier.
Google n'a pas pu m'aider encore une fois (je n'ai sans doute pas les bon mots clés).
Je ne sais pas trop comment faire à vrai dire.

[/QUOTE]Par contre il est hors de question de fournir à l'utilisateur une liste de 1000 images, il va donc falloir trouver une astuce pour classer tout ça si le cas se présente.[/QUOTE]
Pour le classement je ferai en sorte que les images soient ranger par carégorie dans différent dossier auquel j'appliquerai le code et j'essaie de mettre en place durement.