Discussion :

[Invité]

bonjour a tous
j'ai vu se code comme exemple sur internet qui affiche les favoris par défaut dans une listview

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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
Public Class Form1
 
  Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
    ListView1.View = System.Windows.Forms.View.List
 
    For Each url As String In ListeDesFavoris()
      ListView1.Items.Add(url)
 
    Next
  End Sub
 
  Function ListeDesFavoris() As List(Of String)
 
    Dim listeFavoris As New List(Of String) 'la liste qu'on renverra à la fin, une fois remplie
    Dim dossierFavrois As String = Environment.GetFolderPath(Environment.SpecialFolder.Favorites) 'on obtient le chemin spécifique au dossier Favoris
 
    If System.IO.Directory.Exists(dossierFavrois) Then 'si le dossier favoris existe
      'on récupère tous les fichiers de tous les sous dossiers
      'l'etoile indique "tous les fichiers" et AllDirectories précise qu'il faut chercher dans tous les sous dossiers
      For Each fichier As String In System.IO.Directory.GetFiles(dossierFavrois, "*", System.IO.SearchOption.AllDirectories)
        Using sr As New System.IO.StreamReader(fichier) 'on se prépare à lire chaque fichier
          While sr.Peek <> -1 'tant qu'il y a quelque chose dans les fichiers
            Dim ligneCourante As String = sr.ReadLine 'on lit les fichiers ligne par ligne
            If ligneCourante.Contains("BASEURL") Then
              Dim url As String = ligneCourante.Substring(8) 'si la ligne contient BASEURL, on enleve le début "BASEURL=" pour garder la vraie URL
              listeFavoris.Add(url) 'on remplit notre liste
              Exit While
            ElseIf ligneCourante.Contains("URL") Then
              Dim url As String = ligneCourante.Substring(4) 'si la ligne contient URL, on enleve le début "URL=" pour garder la vraie URL
              listeFavoris.Add(url) 'on remplit notre liste
              Exit While
            End If
          End While
        End Using
      Next
 
    End If
 
    Return listeFavoris 'on retourne la liste remplie
 
  End Function
 
  'dés qu'on séléctionne un élément, on navigue vers celui-ci
  Private Sub ListView1_ItemSelectionChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.ListViewItemSelectionChangedEventArgs) Handles ListView1.ItemSelectionChanged
    WebBrowser1.Navigate(e.Item.Text)
  End Sub
 
End Class

le seul probleme dans la form1 load c'est pour un listview mais moi je voudrait le mettre dans un treeview et je ne sais pas comment le remplacer si cela est possible ? avez vous des idée ?

[Shadam]

Pourquoi vouloir mettre un treeview? L'intérêt du treeview est seulement de pouvoir mettre des enfants à des nœuds, tu as des "sous-favoris"?

Sinon tu n'as qu'à faire :

Code :

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

1
2
3
4
For Each url As String In ListeDesFavoris()
      treeView.nodes.add(url)
 
    Next

(de tête, je suis chez moi et sans VS mais ça devrait fonctionner)

[Invité]

sa m'affiche tout mes favoris, plutôt tout les liens
sa fait un peu bordélique, il ne m'affiche pas les dossiers et sous-dossier
comme un explorateur, c'est pour sa que j'ai choisis un treeview et en + on peut mettre des icones a coté.

j'ai rajouté sa pour cliqué dessus

Code :

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

1
2
3
Private Sub TreeView1_AfterSelect(sender As System.Object, e As System.Windows.Forms.TreeViewEventArgs) Handles TreeView1.AfterSelect
        CType(CustomTabControl1.SelectedTab.Controls.Item(0), WebBrowser).Navigate(e.Node.Text)
    End Sub

mais il marque sa comme erreur: Impossible d'effectuer un cast d'un objet de type 'System.Windows.Forms.Panel' en type 'System.Windows.Forms.WebBrowser

[Shadam]

Ton CustomTabControl1 c'est un panel avec des onglets? Si c'est le cas tu dis juste webbrowserMachin.Navigate(e.nodes.text)

[Invité]

oui mon CustomTabControl1 a plusieurs onglets
je ne peut pas marquer juste webrowser sa ne marche pas
et quand je marque (e.nodes.text) VS me dit que nodes n'est pas un membre de windows forms etc......

en + de sa, j'ai l'impréssion que mon programme me fait un gros caprice
avant la navigation marchait très bien maintenant quand je rentre l'adresse url pour allez sur le site il me dit la même erreur en soulignant sa:

Code :

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

CType(CustomTabControl1.SelectedTab.Controls.Item(0), WebBrowser).Navigate(ToolStripComboBox1.Text)

Impossible d'effectuer un cast d'un objet de type 'System.Windows.Forms etc....

vraiment très bizard

[Shadam]

au temps pour moi, en fait c'est sender.selectedNodes(0).text qui devrait fonctionner.