Treeview, je tombe fou

Question

Posez votre question Signaler

Treeview, je tombe fou

Bilou47190

Messages postés: 24
Date d'inscription: mardi 3 mars 2009
Statut: Membre
Dernière intervention: 20 décembre 2018

- 20 déc. 2018 à 17:27 - Dernière réponse : Bilou47190

Messages postés: 24
Date d'inscription: mardi 3 mars 2009
Statut: Membre
Dernière intervention: 20 décembre 2018

- 20 déc. 2018 à 23:01

VB.NET Posez votre question Signaler

Salut,
Je pense que ma demande est idiote, mais je perd la boule.
J'ai un treeview, listview pour genre explorateur que je désire améliorer.
Je cherche à faire PRECEDENT avec un button , voir "suivant retour rep avant le précédent" aussi avec button comme un webbrowser.
J'ai fait un button et sur click, que mettre pour retourner sur le rep précédent, la je patauge, recup SELECTNODE PREV, ,First, marche pas, j'ai cherché partout pas trouvé. Je pense que pas le cerveau en fin d'année

Afficher la suite

A voir également:

Vb net treeview
Treeview vb.net - Meilleures réponses
Treeview visual basic - Meilleures réponses
Vb.net treeview checkbox - Forum - VB.NET
Visual Basic / VB.NET : Treeview avec listview et navigation - mdb et vba - CodeS SourceS - Guide
Visual Basic / VB.NET : Treeview en vb.net ; api getfileinfo pour l'affichage des icones... - CodeS - Guide
Visual Basic / VB.NET : Treeview avec base de données access - CodeS SourceS - Guide
Visual Basic / VB.NET : Treeview : fastexpand/fastclear/fastclean - CodeS SourceS - Guide

10 réponses

Répondre Posez votre question

Whismeril · Answer 1 · 2018-12-20T19:26:39+0100

Signaler Commenter la réponse de Whismeril

Whismeril

Messages postés: 14028
Date d'inscription: mardi 11 mars 2003
Statut: Contributeur
Dernière intervention: 8 décembre 2019

322 20 déc. 2018 à 19:26

0

Merci

Bonsoir

peux tu poster ce que tu as déjà codé?
https://codes-sources.commentcamarche.net/faq/11288-les-balises-de-code

Bilou47190 · Answer 2 · 2018-12-20T19:35:29+0100

Imports System.IO
Imports TKageyu.Utils
Imports TKageyu.UI
Imports System.Text
Imports System.Globalization

Public Class Form3
    Declare Function ExtractIcon Lib "shell32.dll" Alias "ExtractIconA" (ByVal hInst As IntPtr, ByVal lpszExeFileName As String, ByVal nIconIndex As Integer) As IntPtr
    Dim convertx As ImageConverter = New ImageConverter

    Dim Dossiers, Fichiers, Dossier
    Dim ff, dd, tst_cp, F_Idx As Integer
    Dim v, TailleTotale As Double
    Dim Le_Chemin, Save_Noeud As String

    Private Sub Form3_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        TreeView1.Nodes.Add("C:\")
        Explor(TreeView1.Nodes.Item(0))
        TreeView1.Nodes.Add("F:\")
        Explor(TreeView1.Nodes.Item(1))
        TreeView1.Nodes.Add("K:\")
        Explor(TreeView1.Nodes.Item(2))
        'TreeView1.SelectedNode.ImageIndex = 0
    End Sub

    Private Sub Explor(ByVal Node As TreeNode)
        Try
            Node.Nodes.Clear()
            Dim s As String
            For Each s In Directory.GetDirectories(Node.FullPath)
                Node.Nodes.Add(Path.GetFileName(s))
            Next s

        Catch
        End Try
    End Sub

    Private Sub TreeView1_AfterExpand(sender As Object, e As TreeViewEventArgs) Handles TreeView1.AfterExpand
        Dim z As TreeNode
        For Each z In e.Node.Nodes
            Explor(z)
        Next z
    End Sub

    Private Sub TreeView1_AfterSelect(sender As Object, e As TreeViewEventArgs) Handles TreeView1.AfterSelect
        Dim Cpt As Integer = -1
        Dim Lng_File, Lng_Type, Lng_Cdate, Lng_Wdate, Lng_Size As Integer
        Dim Txt, tt, La_Taille As String
        Dim item As ListViewItem = Nothing
        Dim subItems() As ListViewItem.ListViewSubItem
        'Dim bidon As String

        Lng_File = 0
        Lng_Type = 0
        Lng_Cdate = 0
        Lng_Wdate = 0
        Lng_Size = 0

        ListView1.Items.Clear()

        Try
            Dim l = Directory.GetDirectories(e.Node.FullPath)
        Catch ex As Exception
            MsgBox(ex.Message, vbOKOnly, "Erreur")
            Exit Sub
        End Try

        Le_Chemin = Replace(e.Node.FullPath, e.Node.FullPath & "\", "")

        For Each filex In Directory.GetDirectories(e.Node.FullPath)
            Cpt = Cpt + 1

            Dim fileCreatedDate As DateTime = Directory.GetCreationTime(filex)    '.ToShortDateString
            Dim fileCreatedDatea As DateTime = Directory.GetLastWriteTime(filex)  '.ToLongDateString

            Dim C_create As String = Convert.ToDateTime(fileCreatedDate).ToString("dd/MM/yyyy HH:mm")
            Dim C_write As String = Convert.ToDateTime(fileCreatedDatea).ToString("dd/MM/yyyy HH:mm")

            If Len(e.Node.FullPath) > 3 Then
                Txt = Replace(filex, e.Node.FullPath & "\", "")
                v = 0
                'If Txt = "debug" Then
                '    bidon = ""
                'End If
                'Calculer_LaTaille_du_répértoire(filex)
                'tt = v
                'La_Taille = Conv_Taille(tt, v)
                La_Taille = ""
            Else
                Txt = Replace(filex, e.Node.FullPath, "")
                La_Taille = ""
            End If

            If Len(Txt) > Lng_File Then Lng_File = Len(Txt)
            If Len(La_Taille) > Lng_Size Then Lng_Size = Len(La_Taille)
            If Len(C_create) > Lng_Cdate Then Lng_Cdate = Len(C_create)
            If Len(C_write) > Lng_Wdate Then Lng_Wdate = Len(C_write)

            item = New ListViewItem(Txt, 0)
            subItems = New ListViewItem.ListViewSubItem() {New ListViewItem.ListViewSubItem(item, "Directory"),
            New ListViewItem.ListViewSubItem(item, Trim(C_write)),
            New ListViewItem.ListViewSubItem(item, Trim(La_Taille)),
            New ListViewItem.ListViewSubItem(item, Trim(C_create))}

            item.SubItems.AddRange(subItems)
            ListView1.Items.Add(item)
        Next

        For Each filex In Directory.GetFiles(e.Node.FullPath)
            Cpt = Cpt + 1

            Dim fileCreatedDate As DateTime = File.GetCreationTime(filex)    '.ToShortDateString
            Dim fileCreatedDatea As DateTime = File.GetLastWriteTime(filex)  '.ToLongDateString

            Dim FichierInfo As System.IO.FileInfo = New System.IO.FileInfo(filex)

            Dim C_create As String = Convert.ToDateTime(fileCreatedDate).ToString("dd/MM/yyyy HH:mm")
            Dim C_write As String = Convert.ToDateTime(fileCreatedDatea).ToString("dd/MM/yyyy HH:mm")

            Txt = Replace(filex, e.Node.FullPath & "\", "")
            Txt = Replace(Txt, e.Node.FullPath, "")
            'If Txt = "launcher.exe" Then
            '    bidon = ""
            'End If

            Dim TailleFichier As Double = FichierInfo.Length
            tt = TailleFichier
            La_Taille = Conv_Taille(tt, TailleFichier)


            If Len(Txt) > Lng_File Then Lng_File = Len(Txt)
            If Len(La_Taille) > Lng_Size Then Lng_Size = Len(La_Taille)
            If Len(C_create) > Lng_Cdate Then Lng_Cdate = Len(C_create)
            If Len(C_write) > Lng_Wdate Then Lng_Wdate = Len(C_write)

            Dim F_Ext As String
            Try
                F_Ext = Txt.Substring(Txt.LastIndexOf("."))
            Catch ex As Exception

            End Try
            F_Ext = Replace(F_Ext, ".", "")
            Dim F_Type = Extr_Ext(F_Ext)

            item = New ListViewItem(Txt, F_Idx)
            subItems = New ListViewItem.ListViewSubItem() _
            {New ListViewItem.ListViewSubItem(item, F_Type),
            New ListViewItem.ListViewSubItem(item, Trim(C_write)),
            New ListViewItem.ListViewSubItem(item, Trim(La_Taille)),
            New ListViewItem.ListViewSubItem(item, Trim(C_create))}

            item.SubItems.AddRange(subItems)
            ListView1.Items.Add(item)
        Next
        ListView1.Columns(0).Width = Lng_File + 300

    End Sub

    Private Function Conv_Taille(ttx As String, vv As Double) As String
        Dim qq As Double
        Conv_Taille = ""
        Select Case Len(ttx)
            Case 2
                qq = vv
                Conv_Taille = Format(qq, "##,##0") & " Octets"
            Case 3, 4, 5
                qq = vv / 1024
                Conv_Taille = Format(qq, "##,##0") & " K"
            Case 6
                qq = vv / 1024
                Conv_Taille = Format(qq, "##,##00") & " K"
            Case 7
                qq = (vv / 1024) / 1024
                Conv_Taille = Format(qq, "##,##0.00") & " M"
            Case 8, 9
                qq = (vv / 1024) / 1024
                Conv_Taille = Format(qq, "##,##0") & " M"
            Case 10
                qq = (vv / 1048000000) '/ 1024
                Conv_Taille = Format(qq, "##,##0.00") & " G"
            Case 11
                qq = (vv / 10480000000) '/ 1024
                Conv_Taille = Format(qq, "##,##0.00") & " G"
        End Select
        Return Conv_Taille
    End Function

    Private Sub ToolStripButton1_Click(sender As Object, e As EventArgs) Handles ToolStripButton1.Click
        Dim oo = SelectItemx(Save_Noeud, TreeView1.SelectedNode.Nodes)
    End Sub

    Sub Calculer_LaTaille_du_répértoire(ByVal MonChemin As String)
        Try
            Dim DossiersInfo As DirectoryInfo = My.Computer.FileSystem.GetDirectoryInfo(MonChemin)
            Dossiers = DossiersInfo.GetDirectories
            Fichiers = DossiersInfo.GetFiles
            'Parcourir Les Fichiers

            For Each Fichier As FileInfo In Fichiers
                'lire la taille du fichier (fileinfo) et la placer dans la variable v
                v += Fichier.Length
                ff = ff + 1
            Next
            'Parcourir les sous-répertoires
            For Each sousRepertoire As String In Directory.GetDirectories(MonChemin)
                dd = dd + 1
                'Appel de manière récursive 'Calculer_LaTaille_du_répértoire pour calculer la taille du contenu des sous répertoires.
                Calculer_LaTaille_du_répértoire(sousRepertoire)
            Next
        Catch ex As Exception

        End Try

    End Sub

    Private Sub ListView1_DoubleClick(sender As Object, e As EventArgs) Handles ListView1.DoubleClick
        Dim Toto As New ListView
        Dim x As Integer
        Dim Tempo As String = ""
        Dim Lng_File, Lng_Type, Lng_Cdate, Lng_Wdate, Lng_Size As Integer
        Dim Cpt As Integer = -1
        Dim item As ListViewItem = Nothing
        Dim subItems() As ListViewItem.ListViewSubItem
        Dim Txt, tt, La_Taille As String

        ' Extraction de la ligne sélectionnée
        Label1.Text = TreeView1.SelectedNode.FullPath
        label2.Text = TreeView1.SelectedNode.Text
        Save_Noeud = TreeView1.SelectedNode.FullPath
        Toto = CType(sender, ListView)
        Dim Titi As ListView.SelectedIndexCollection = Toto.SelectedIndices
        For Each x In Titi
            Tempo = Toto.Items(x).Text
        Next

        TreeView1.SelectedNode.BackColor = Color.White

        ' Recherche dans le treeview de la ligne
        Le_Chemin = Le_Chemin & "\" & Tempo
        TreeView1.SelectedNode.Expand()
        Dim oo = SelectItemx(Tempo, TreeView1.SelectedNode.Nodes)

        Lng_File = 0
        Lng_Type = 0
        Lng_Cdate = 0
        Lng_Wdate = 0
        Lng_Size = 0

        ListView1.Items.Clear()
        Try
            Dim l = Directory.GetDirectories(Le_Chemin)
        Catch ex As Exception
            MsgBox(ex.Message, vbOKOnly, "Erreur")
            Exit Sub
        End Try

        For Each filex In Directory.GetDirectories(Le_Chemin)
            Cpt = Cpt + 1

            Dim fileCreatedDate As DateTime = Directory.GetCreationTime(filex)    '.ToShortDateString
            Dim fileCreatedDatea As DateTime = Directory.GetLastWriteTime(filex)  '.ToLongDateString

            Dim C_create As String = Convert.ToDateTime(fileCreatedDate).ToString("dd/MM/yyyy HH:mm")
            Dim C_write As String = Convert.ToDateTime(fileCreatedDatea).ToString("dd/MM/yyyy HH:mm")

            If Len(Le_Chemin) > 3 Then
                Txt = Replace(filex, Le_Chemin & "\", "")
                v = 0
                'If Txt = "debug" Then
                '    bidon = ""
                'End If
                'Calculer_LaTaille_du_répértoire(filex)
                'tt = v
                'La_Taille = Conv_Taille(tt, v)
                La_Taille = ""
            Else
                Txt = Replace(filex, Le_Chemin, "")
                La_Taille = ""
            End If

            If Len(Txt) > Lng_File Then Lng_File = Len(Txt)
            If Len(La_Taille) > Lng_Size Then Lng_Size = Len(La_Taille)
            If Len(C_create) > Lng_Cdate Then Lng_Cdate = Len(C_create)
            If Len(C_write) > Lng_Wdate Then Lng_Wdate = Len(C_write)

            item = New ListViewItem(Txt, 0)
            subItems = New ListViewItem.ListViewSubItem() {New ListViewItem.ListViewSubItem(item, "Directory"),
            New ListViewItem.ListViewSubItem(item, Trim(C_write)),
            New ListViewItem.ListViewSubItem(item, Trim(La_Taille)),
            New ListViewItem.ListViewSubItem(item, Trim(C_create))}

            item.SubItems.AddRange(subItems)
            ListView1.Items.Add(item)
        Next

        For Each filex In Directory.GetFiles(Le_Chemin)
            Cpt = Cpt + 1

            Dim fileCreatedDate As DateTime = File.GetCreationTime(filex)    '.ToShortDateString
            Dim fileCreatedDatea As DateTime = File.GetLastWriteTime(filex)  '.ToLongDateString

            Dim FichierInfo As System.IO.FileInfo = New System.IO.FileInfo(filex)

            Dim C_create As String = Convert.ToDateTime(fileCreatedDate).ToString("dd/MM/yyyy HH:mm")
            Dim C_write As String = Convert.ToDateTime(fileCreatedDatea).ToString("dd/MM/yyyy HH:mm")

            Txt = Replace(filex, Le_Chemin & "\", "")
            'If Txt = "launcher.exe" Then
            '    bidon = ""
            'End If

            Dim TailleFichier As Double = FichierInfo.Length
            tt = TailleFichier
            La_Taille = Conv_Taille(tt, TailleFichier)


            If Len(Txt) > Lng_File Then Lng_File = Len(Txt)
            If Len(La_Taille) > Lng_Size Then Lng_Size = Len(La_Taille)
            If Len(C_create) > Lng_Cdate Then Lng_Cdate = Len(C_create)
            If Len(C_write) > Lng_Wdate Then Lng_Wdate = Len(C_write)

            Dim F_Ext As String
            Try
                F_Ext = Txt.Substring(Txt.LastIndexOf("."))
            Catch ex As Exception

            End Try
            F_Ext = Replace(F_Ext, ".", "")
            Dim F_Type = Extr_Ext(F_Ext)

            item = New ListViewItem(Txt, F_Idx)

            subItems = New ListViewItem.ListViewSubItem() _
            {New ListViewItem.ListViewSubItem(item, F_Type),
            New ListViewItem.ListViewSubItem(item, Trim(C_write)),
            New ListViewItem.ListViewSubItem(item, Trim(La_Taille)),
            New ListViewItem.ListViewSubItem(item, Trim(C_create))}

            item.SubItems.AddRange(subItems)
            ListView1.Items.Add(item)
        Next

        ListView1.Columns(0).Width = Lng_File + 300

    End Sub

    Private Function SelectItemx(ByVal Item_ID As String, ByVal Noeuds As TreeNodeCollection) As Boolean
        If IsNothing(TreeView1.Nodes) = True Then Return False
        tst_cp = 0
        Dim i As Integer = 0
        Dim Trouver As Boolean = False

        Do While Noeuds.Count - 1 >= i And Not Trouver
            If Noeuds.Item(i).Text = Item_ID Then
                Trouver = True
                TreeView1.SelectedNode = Noeuds.Item(i)
                TreeView1.SelectedNode.Expand()
                TreeView1.SelectedNode.BackColor = Color.Aqua
                tst_cp = i
                Return Trouver
            Else
                tst_cp = i
                Trouver = SelectItemx(Item_ID, Noeuds.Item(i).Nodes)
            End If
            i += 1
        Loop
        tst_cp = i

        Return Trouver
    End Function

    Private Sub TreeView1_BeforeExpand(sender As Object, e As TreeViewCancelEventArgs) Handles TreeView1.BeforeExpand
        Try
            'Console.WriteLine("Before : ")
            'Console.WriteLine(TreeView1.SelectedNode)
            Label1.Text = TreeView1.SelectedNode.FullPath
            label2.Text = TreeView1.SelectedNode.Text
            Save_Noeud = TreeView1.SelectedNode.FullPath
            TreeView1.SelectedNode.BackColor = Color.White
        Catch ex As Exception

        End Try
    End Sub

    Private Sub TreeView1_Click(sender As Object, e As EventArgs) Handles TreeView1.Click
        Try
            'Console.WriteLine("Click : ")
            'Console.WriteLine(TreeView1.SelectedNode)
            Label1.Text = TreeView1.SelectedNode.FullPath
            label2.Text = TreeView1.SelectedNode.Text
            Save_Noeud = TreeView1.SelectedNode.FullPath
            TreeView1.SelectedNode.BackColor = Color.White
        Catch ex As Exception

        End Try
    End Sub

    Private Function Extr_Ext(ByVal Lst As String) As String
        Select Case Lst
            Case LCase("txt")
                Extr_Ext = "Document texte"
                F_Idx = 2
            Case LCase("xml")
                Extr_Ext = "Document XML"
                F_Idx = 3
            Case LCase("iso")
                Extr_Ext = "Fichier ISO"
                F_Idx = 4
            Case LCase("exe")
                Extr_Ext = "Application"
                F_Idx = 5
            Case LCase("ani"), LCase("cur")
                If Lst = LCase("ani") Then Extr_Ext = "Curseur animé"
                If Lst = LCase("cur") Then Extr_Ext = "Curseur"
                F_Idx = 6
            Case LCase("ico")
                Extr_Ext = "Icône"
                F_Idx = 7
            Case LCase("ttf")
                Extr_Ext = "Police de caractères"
                F_Idx = 8
            Case LCase("dll")
                Extr_Ext = "Extension de l'application"
                F_Idx = 9
            Case LCase("mp3"), LCase("wav")
                Extr_Ext = "Son au format " & UCase(Lst)
                F_Idx = 10
            Case LCase("jpg"), LCase("bmp"), LCase("png")
                Extr_Ext = "Image au format " & UCase(Lst)
                F_Idx = 11
            Case LCase("rar")
                Extr_Ext = "Archive Winrar"
                F_Idx = 12
            Case LCase("zip")
                Extr_Ext = "Archive Winzip"
                F_Idx = 13
            Case Else
                Extr_Ext = "Fichier " & UCase(Lst)
                F_Idx = 1
        End Select
    End Function

    Private Sub testtest(xxx As String)
        On Error GoTo Err_Ext_Icl

        Dim Icone As IntPtr
        Icone = ExtractIcon(Me.Handle, xxx, -1)

        If Icone.ToInt32 = 0 Then
            'imageListLarge.Images.Add(My.Resources.Help_icon)
            'imageListLarge.Images.SetKeyName(0, My.Resources.Help_icon.ToString)
            Exit Sub
        End If

        Dim t As Integer
        t = 0
        'Try
        If Icone.ToInt32 <> 0 Then
            Using IE As IconExtractor = New IconExtractor(xxx)
                Pb1.Image = convertx.ConvertFrom(IE.GetIcon(t))
                IE.Dispose()
            End Using
            imageListLarge.Images.Add(Pb1.Image)
            imageListLarge.Images.SetKeyName(0, Pb1.Image.ToString)
        Else
            'imageListLarge.Images.Add(My.Resources.Help_icon)
            'imageListLarge.Images.SetKeyName(0, My.Resources.Help_icon.ToString)
        End If

        Exit Sub

Err_Ext_Icl:
        'imageListLarge.Images.Add(My.Resources.Help_icon)
        'imageListLarge.Images.SetKeyName(0, My.Resources.Help_icon.ToString)
    End Sub

End Class

Whismeril · Answer 3 · 2018-12-20T19:36:49+0100

Signaler Commenter la réponse de Whismeril

Whismeril

Messages postés: 14028
Date d'inscription: mardi 11 mars 2003
Statut: Contributeur
Dernière intervention: 8 décembre 2019

322 20 déc. 2018 à 19:36

0

Merci

Peux tu édité ton message, pour y ajouter la coloration syntaxique, en précisant le langage "basic", comme décrit dans la faq que j'ai mis en lien?

Bilou47190 · Answer 4 · 2018-12-20T19:43:29+0100

Signaler Commenter la réponse de Bilou47190

Bilou47190

Messages postés: 24
Date d'inscription: mardi 3 mars 2009
Statut: Membre
Dernière intervention: 20 décembre 2018

3 20 déc. 2018 à 19:43

0

Merci

Ou ?, car je ne sais pas comment, la color syntax sur VB.NET, comment ?

Signaler Commenter la réponse de Whismeril

Whismeril

Messages postés: 14028
Date d'inscription: mardi 11 mars 2003
Statut: Contributeur
Dernière intervention: 8 décembre 2019

322 - 20 déc. 2018 à 19:45

pour éditer le message clique sur le crayon à gauche de la croix
pour la coloration je te remets le lien à lire
https://codes-sources.commentcamarche.net/faq/11288-les-balises-de-code

Bilou47190 · Answer 5 · 2018-12-20T19:58:02+0100

Signaler Commenter la réponse de Bilou47190

Bilou47190

Messages postés: 24
Date d'inscription: mardi 3 mars 2009
Statut: Membre
Dernière intervention: 20 décembre 2018

3 20 déc. 2018 à 19:58

0

Merci

Rien compris, je cherche Cliquer sur la flèche pointant vers le bas à droite de l'icône <> et sélectionner le langage de votre code
rien, et le reste aussi pourtant mone code est bien avec tabulation

Bilou47190 · Answer 6 · 2018-12-20T20:11:04+0100

Signaler Commenter la réponse de Bilou47190

Bilou47190

Messages postés: 24
Date d'inscription: mardi 3 mars 2009
Statut: Membre
Dernière intervention: 20 décembre 2018

3 20 déc. 2018 à 20:11

0

Merci

ca y est j'ai trouvé chef

Bilou47190 · Answer 7 · 2018-12-20T20:36:46+0100


Imports System.IO
Imports TKageyu.Utils
Imports TKageyu.UI
Imports System.Text
Imports System.Globalization

Public Class Form3
    Declare Function ExtractIcon Lib "shell32.dll" Alias "ExtractIconA" (ByVal hInst As IntPtr, ByVal lpszExeFileName As String, ByVal nIconIndex As Integer) As IntPtr
    Dim convertx As ImageConverter = New ImageConverter

    Dim Dossiers, Fichiers, Dossier
    Dim ff, dd, tst_cp, F_Idx As Integer
    Dim v, TailleTotale As Double
    Dim Le_Chemin, Save_Noeud As String

    Private Sub Form3_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        TreeView1.Nodes.Add("C:\")
        Explor(TreeView1.Nodes.Item(0))
        TreeView1.Nodes.Add("F:\")
        Explor(TreeView1.Nodes.Item(1))
        TreeView1.Nodes.Add("K:\")
        Explor(TreeView1.Nodes.Item(2))
        'TreeView1.SelectedNode.ImageIndex = 0
    End Sub

    Private Sub Explor(ByVal Node As TreeNode)
        Try
            Node.Nodes.Clear()
            Dim s As String
            For Each s In Directory.GetDirectories(Node.FullPath)
                Node.Nodes.Add(Path.GetFileName(s))
            Next s

        Catch
        End Try
    End Sub

    Private Sub TreeView1_AfterExpand(sender As Object, e As TreeViewEventArgs) Handles TreeView1.AfterExpand
        Dim z As TreeNode
        For Each z In e.Node.Nodes
            Explor(z)
        Next z
    End Sub

    Private Sub TreeView1_AfterSelect(sender As Object, e As TreeViewEventArgs) Handles TreeView1.AfterSelect
        Dim Cpt As Integer = -1
        Dim Lng_File, Lng_Type, Lng_Cdate, Lng_Wdate, Lng_Size As Integer
        Dim Txt, tt, La_Taille As String
        Dim item As ListViewItem = Nothing
        Dim subItems() As ListViewItem.ListViewSubItem
        'Dim bidon As String

        Lng_File = 0
        Lng_Type = 0
        Lng_Cdate = 0
        Lng_Wdate = 0
        Lng_Size = 0

        ListView1.Items.Clear()

        Try
            Dim l = Directory.GetDirectories(e.Node.FullPath)
        Catch ex As Exception
            MsgBox(ex.Message, vbOKOnly, "Erreur")
            Exit Sub
        End Try

        Le_Chemin = Replace(e.Node.FullPath, e.Node.FullPath & "\", "")

        For Each filex In Directory.GetDirectories(e.Node.FullPath)
            Cpt = Cpt + 1

            Dim fileCreatedDate As DateTime = Directory.GetCreationTime(filex)    '.ToShortDateString
            Dim fileCreatedDatea As DateTime = Directory.GetLastWriteTime(filex)  '.ToLongDateString

            Dim C_create As String = Convert.ToDateTime(fileCreatedDate).ToString("dd/MM/yyyy HH:mm")
            Dim C_write As String = Convert.ToDateTime(fileCreatedDatea).ToString("dd/MM/yyyy HH:mm")

            If Len(e.Node.FullPath) > 3 Then
                Txt = Replace(filex, e.Node.FullPath & "\", "")
                v = 0
                'If Txt = "debug" Then
                '    bidon = ""
                'End If
                'Calculer_LaTaille_du_répértoire(filex)
                'tt = v
                'La_Taille = Conv_Taille(tt, v)
                La_Taille = ""
            Else
                Txt = Replace(filex, e.Node.FullPath, "")
                La_Taille = ""
            End If

            If Len(Txt) > Lng_File Then Lng_File = Len(Txt)
            If Len(La_Taille) > Lng_Size Then Lng_Size = Len(La_Taille)
            If Len(C_create) > Lng_Cdate Then Lng_Cdate = Len(C_create)
            If Len(C_write) > Lng_Wdate Then Lng_Wdate = Len(C_write)

            item = New ListViewItem(Txt, 0)
            subItems = New ListViewItem.ListViewSubItem() {New ListViewItem.ListViewSubItem(item, "Directory"),
            New ListViewItem.ListViewSubItem(item, Trim(C_write)),
            New ListViewItem.ListViewSubItem(item, Trim(La_Taille)),
            New ListViewItem.ListViewSubItem(item, Trim(C_create))}

            item.SubItems.AddRange(subItems)
            ListView1.Items.Add(item)
        Next

        For Each filex In Directory.GetFiles(e.Node.FullPath)
            Cpt = Cpt + 1

            Dim fileCreatedDate As DateTime = File.GetCreationTime(filex)    '.ToShortDateString
            Dim fileCreatedDatea As DateTime = File.GetLastWriteTime(filex)  '.ToLongDateString

            Dim FichierInfo As System.IO.FileInfo = New System.IO.FileInfo(filex)

            Dim C_create As String = Convert.ToDateTime(fileCreatedDate).ToString("dd/MM/yyyy HH:mm")
            Dim C_write As String = Convert.ToDateTime(fileCreatedDatea).ToString("dd/MM/yyyy HH:mm")

            Txt = Replace(filex, e.Node.FullPath & "\", "")
            Txt = Replace(Txt, e.Node.FullPath, "")
            'If Txt = "launcher.exe" Then
            '    bidon = ""
            'End If

            Dim TailleFichier As Double = FichierInfo.Length
            tt = TailleFichier
            La_Taille = Conv_Taille(tt, TailleFichier)


            If Len(Txt) > Lng_File Then Lng_File = Len(Txt)
            If Len(La_Taille) > Lng_Size Then Lng_Size = Len(La_Taille)
            If Len(C_create) > Lng_Cdate Then Lng_Cdate = Len(C_create)
            If Len(C_write) > Lng_Wdate Then Lng_Wdate = Len(C_write)

            Dim F_Ext As String
            Try
                F_Ext = Txt.Substring(Txt.LastIndexOf("."))
            Catch ex As Exception

            End Try
            F_Ext = Replace(F_Ext, ".", "")
            Dim F_Type = Extr_Ext(F_Ext)

            item = New ListViewItem(Txt, F_Idx)
            subItems = New ListViewItem.ListViewSubItem() _
            {New ListViewItem.ListViewSubItem(item, F_Type),
            New ListViewItem.ListViewSubItem(item, Trim(C_write)),
            New ListViewItem.ListViewSubItem(item, Trim(La_Taille)),
            New ListViewItem.ListViewSubItem(item, Trim(C_create))}

            item.SubItems.AddRange(subItems)
            ListView1.Items.Add(item)
        Next
        ListView1.Columns(0).Width = Lng_File + 300

    End Sub

    Private Function Conv_Taille(ttx As String, vv As Double) As String
        Dim qq As Double
        Conv_Taille = ""
        Select Case Len(ttx)
            Case 2
                qq = vv
                Conv_Taille = Format(qq, "##,##0") & " Octets"
            Case 3, 4, 5
                qq = vv / 1024
                Conv_Taille = Format(qq, "##,##0") & " K"
            Case 6
                qq = vv / 1024
                Conv_Taille = Format(qq, "##,##00") & " K"
            Case 7
                qq = (vv / 1024) / 1024
                Conv_Taille = Format(qq, "##,##0.00") & " M"
            Case 8, 9
                qq = (vv / 1024) / 1024
                Conv_Taille = Format(qq, "##,##0") & " M"
            Case 10
                qq = (vv / 1048000000) '/ 1024
                Conv_Taille = Format(qq, "##,##0.00") & " G"
            Case 11
                qq = (vv / 10480000000) '/ 1024
                Conv_Taille = Format(qq, "##,##0.00") & " G"
        End Select
        Return Conv_Taille
    End Function

    Private Sub ToolStripButton1_Click(sender As Object, e As EventArgs) Handles ToolStripButton1.Click
        Dim oo = SelectItemx(Save_Noeud, TreeView1.SelectedNode.Nodes)
    End Sub

    Sub Calculer_LaTaille_du_répértoire(ByVal MonChemin As String)
        Try
            Dim DossiersInfo As DirectoryInfo = My.Computer.FileSystem.GetDirectoryInfo(MonChemin)
            Dossiers = DossiersInfo.GetDirectories
            Fichiers = DossiersInfo.GetFiles
            'Parcourir Les Fichiers

            For Each Fichier As FileInfo In Fichiers
                'lire la taille du fichier (fileinfo) et la placer dans la variable v
                v += Fichier.Length
                ff = ff + 1
            Next
            'Parcourir les sous-répertoires
            For Each sousRepertoire As String In Directory.GetDirectories(MonChemin)
                dd = dd + 1
                'Appel de manière récursive 'Calculer_LaTaille_du_répértoire pour calculer la taille du contenu des sous répertoires.
                Calculer_LaTaille_du_répértoire(sousRepertoire)
            Next
        Catch ex As Exception

        End Try

    End Sub

    Private Sub ListView1_DoubleClick(sender As Object, e As EventArgs) Handles ListView1.DoubleClick
        Dim Toto As New ListView
        Dim x As Integer
        Dim Tempo As String = ""
        Dim Lng_File, Lng_Type, Lng_Cdate, Lng_Wdate, Lng_Size As Integer
        Dim Cpt As Integer = -1
        Dim item As ListViewItem = Nothing
        Dim subItems() As ListViewItem.ListViewSubItem
        Dim Txt, tt, La_Taille As String

        ' Extraction de la ligne sélectionnée
        Label1.Text = TreeView1.SelectedNode.FullPath
        label2.Text = TreeView1.SelectedNode.Text
        Save_Noeud = TreeView1.SelectedNode.FullPath
        Toto = CType(sender, ListView)
        Dim Titi As ListView.SelectedIndexCollection = Toto.SelectedIndices
        For Each x In Titi
            Tempo = Toto.Items(x).Text
        Next

        TreeView1.SelectedNode.BackColor = Color.White

        ' Recherche dans le treeview de la ligne
        Le_Chemin = Le_Chemin & "\" & Tempo
        TreeView1.SelectedNode.Expand()
        Dim oo = SelectItemx(Tempo, TreeView1.SelectedNode.Nodes)

        Lng_File = 0
        Lng_Type = 0
        Lng_Cdate = 0
        Lng_Wdate = 0
        Lng_Size = 0

        ListView1.Items.Clear()
        Try
            Dim l = Directory.GetDirectories(Le_Chemin)
        Catch ex As Exception
            MsgBox(ex.Message, vbOKOnly, "Erreur")
            Exit Sub
        End Try

        For Each filex In Directory.GetDirectories(Le_Chemin)
            Cpt = Cpt + 1

            Dim fileCreatedDate As DateTime = Directory.GetCreationTime(filex)    '.ToShortDateString
            Dim fileCreatedDatea As DateTime = Directory.GetLastWriteTime(filex)  '.ToLongDateString

            Dim C_create As String = Convert.ToDateTime(fileCreatedDate).ToString("dd/MM/yyyy HH:mm")
            Dim C_write As String = Convert.ToDateTime(fileCreatedDatea).ToString("dd/MM/yyyy HH:mm")

            If Len(Le_Chemin) > 3 Then
                Txt = Replace(filex, Le_Chemin & "\", "")
                v = 0
                'If Txt = "debug" Then
                '    bidon = ""
                'End If
                'Calculer_LaTaille_du_répértoire(filex)
                'tt = v
                'La_Taille = Conv_Taille(tt, v)
                La_Taille = ""
            Else
                Txt = Replace(filex, Le_Chemin, "")
                La_Taille = ""
            End If

            If Len(Txt) > Lng_File Then Lng_File = Len(Txt)
            If Len(La_Taille) > Lng_Size Then Lng_Size = Len(La_Taille)
            If Len(C_create) > Lng_Cdate Then Lng_Cdate = Len(C_create)
            If Len(C_write) > Lng_Wdate Then Lng_Wdate = Len(C_write)

            item = New ListViewItem(Txt, 0)
            subItems = New ListViewItem.ListViewSubItem() {New ListViewItem.ListViewSubItem(item, "Directory"),
            New ListViewItem.ListViewSubItem(item, Trim(C_write)),
            New ListViewItem.ListViewSubItem(item, Trim(La_Taille)),
            New ListViewItem.ListViewSubItem(item, Trim(C_create))}

            item.SubItems.AddRange(subItems)
            ListView1.Items.Add(item)
        Next

        For Each filex In Directory.GetFiles(Le_Chemin)
            Cpt = Cpt + 1

            Dim fileCreatedDate As DateTime = File.GetCreationTime(filex)    '.ToShortDateString
            Dim fileCreatedDatea As DateTime = File.GetLastWriteTime(filex)  '.ToLongDateString

            Dim FichierInfo As System.IO.FileInfo = New System.IO.FileInfo(filex)

            Dim C_create As String = Convert.ToDateTime(fileCreatedDate).ToString("dd/MM/yyyy HH:mm")
            Dim C_write As String = Convert.ToDateTime(fileCreatedDatea).ToString("dd/MM/yyyy HH:mm")

            Txt = Replace(filex, Le_Chemin & "\", "")
            'If Txt = "launcher.exe" Then
            '    bidon = ""
            'End If

            Dim TailleFichier As Double = FichierInfo.Length
            tt = TailleFichier
            La_Taille = Conv_Taille(tt, TailleFichier)


            If Len(Txt) > Lng_File Then Lng_File = Len(Txt)
            If Len(La_Taille) > Lng_Size Then Lng_Size = Len(La_Taille)
            If Len(C_create) > Lng_Cdate Then Lng_Cdate = Len(C_create)
            If Len(C_write) > Lng_Wdate Then Lng_Wdate = Len(C_write)

            Dim F_Ext As String
            Try
                F_Ext = Txt.Substring(Txt.LastIndexOf("."))
            Catch ex As Exception

            End Try
            F_Ext = Replace(F_Ext, ".", "")
            Dim F_Type = Extr_Ext(F_Ext)

            item = New ListViewItem(Txt, F_Idx)

            subItems = New ListViewItem.ListViewSubItem() _
            {New ListViewItem.ListViewSubItem(item, F_Type),
            New ListViewItem.ListViewSubItem(item, Trim(C_write)),
            New ListViewItem.ListViewSubItem(item, Trim(La_Taille)),
            New ListViewItem.ListViewSubItem(item, Trim(C_create))}

            item.SubItems.AddRange(subItems)
            ListView1.Items.Add(item)
        Next

        ListView1.Columns(0).Width = Lng_File + 300

    End Sub

    Private Function SelectItemx(ByVal Item_ID As String, ByVal Noeuds As TreeNodeCollection) As Boolean
        If IsNothing(TreeView1.Nodes) = True Then Return False
        tst_cp = 0
        Dim i As Integer = 0
        Dim Trouver As Boolean = False

        Do While Noeuds.Count - 1 >= i And Not Trouver
            If Noeuds.Item(i).Text = Item_ID Then
                Trouver = True
                TreeView1.SelectedNode = Noeuds.Item(i)
                TreeView1.SelectedNode.Expand()
                TreeView1.SelectedNode.BackColor = Color.Aqua
                tst_cp = i
                Return Trouver
            Else
                tst_cp = i
                Trouver = SelectItemx(Item_ID, Noeuds.Item(i).Nodes)
            End If
            i += 1
        Loop
        tst_cp = i

        Return Trouver
    End Function

    Private Sub TreeView1_BeforeExpand(sender As Object, e As TreeViewCancelEventArgs) Handles TreeView1.BeforeExpand
        Try
            'Console.WriteLine("Before : ")
            'Console.WriteLine(TreeView1.SelectedNode)
            Label1.Text = TreeView1.SelectedNode.FullPath
            label2.Text = TreeView1.SelectedNode.Text
            Save_Noeud = TreeView1.SelectedNode.FullPath
            TreeView1.SelectedNode.BackColor = Color.White
        Catch ex As Exception

        End Try
    End Sub

    Private Sub TreeView1_Click(sender As Object, e As EventArgs) Handles TreeView1.Click
        Try
            'Console.WriteLine("Click : ")
            'Console.WriteLine(TreeView1.SelectedNode)
            Label1.Text = TreeView1.SelectedNode.FullPath
            label2.Text = TreeView1.SelectedNode.Text
            Save_Noeud = TreeView1.SelectedNode.FullPath
            TreeView1.SelectedNode.BackColor = Color.White
        Catch ex As Exception

        End Try
    End Sub

    Private Function Extr_Ext(ByVal Lst As String) As String
        Select Case Lst
            Case LCase("txt")
                Extr_Ext = "Document texte"
                F_Idx = 2
            Case LCase("xml")
                Extr_Ext = "Document XML"
                F_Idx = 3
            Case LCase("iso")
                Extr_Ext = "Fichier ISO"
                F_Idx = 4
            Case LCase("exe")
                Extr_Ext = "Application"
                F_Idx = 5
            Case LCase("ani"), LCase("cur")
                If Lst = LCase("ani") Then Extr_Ext = "Curseur animé"
                If Lst = LCase("cur") Then Extr_Ext = "Curseur"
                F_Idx = 6
            Case LCase("ico")
                Extr_Ext = "Icône"
                F_Idx = 7
            Case LCase("ttf")
                Extr_Ext = "Police de caractères"
                F_Idx = 8
            Case LCase("dll")
                Extr_Ext = "Extension de l'application"
                F_Idx = 9
            Case LCase("mp3"), LCase("wav")
                Extr_Ext = "Son au format " & UCase(Lst)
                F_Idx = 10
            Case LCase("jpg"), LCase("bmp"), LCase("png")
                Extr_Ext = "Image au format " & UCase(Lst)
                F_Idx = 11
            Case LCase("rar")
                Extr_Ext = "Archive Winrar"
                F_Idx = 12
            Case LCase("zip")
                Extr_Ext = "Archive Winzip"
                F_Idx = 13
            Case Else
                Extr_Ext = "Fichier " & UCase(Lst)
                F_Idx = 1
        End Select
    End Function

    Private Sub testtest(xxx As String)
        On Error GoTo Err_Ext_Icl
<code>

Dim Icone As IntPtr
Icone = ExtractIcon(Me.Handle, xxx, -1)

If Icone.ToInt32 = 0 Then
'imageListLarge.Images.Add(My.Resources.Help_icon)
'imageListLarge.Images.SetKeyName(0, My.Resources.Help_icon.ToString)
Exit Sub
End If

Dim t As Integer
t = 0
'Try
If Icone.ToInt32 <> 0 Then
Using IE As IconExtractor = New IconExtractor(xxx)
Pb1.Image = convertx.ConvertFrom(IE.GetIcon(t))
IE.Dispose()
End Using
imageListLarge.Images.Add(Pb1.Image)
imageListLarge.Images.SetKeyName(0, Pb1.Image.ToString)
Else
'imageListLarge.Images.Add(My.Resources.Help_icon)
'imageListLarge.Images.SetKeyName(0, My.Resources.Help_icon.ToString)
End If

Exit Sub

Err_Ext_Icl:
'imageListLarge.Images.Add(My.Resources.Help_icon)
'imageListLarge.Images.SetKeyName(0, My.Resources.Help_icon.ToString)
End Sub

End Class
</code>

Bilou47190 · Answer 8 · 2018-12-20T21:52:58+0100

Signaler Commenter la réponse de Bilou47190

Bilou47190

Messages postés: 24
Date d'inscription: mardi 3 mars 2009
Statut: Membre
Dernière intervention: 20 décembre 2018

3 20 déc. 2018 à 21:52

0

Merci

Merci tout le monde pour non réponse, j'ai pas de chance pour un débutant

Signaler Commenter la réponse de Whismeril

Whismeril

Messages postés: 14028
Date d'inscription: mardi 11 mars 2003
Statut: Contributeur
Dernière intervention: 8 décembre 2019

322 - Modifié le 20 déc. 2018 à 22:48

Tu vois, je viens de passer une heure à rédigé une réponse.

Nous sommes tous bénévoles, on réponds, quand on peut et si on veut.
J'ai actualisé la page et vu ce message de 21:52, et bien ma réponse de que j'ai mis une heure a rédiger, je l'ai supprimée.

Tant pis pour toi qui est débutant, en politesse, et expert en mépris.

Bilou47190 · Answer 9 · 2018-12-20T23:00:15+0100

Signaler Commenter la réponse de Bilou47190

Bilou47190

Messages postés: 24
Date d'inscription: mardi 3 mars 2009
Statut: Membre
Dernière intervention: 20 décembre 2018

3 20 déc. 2018 à 23:00

0

Merci

Ben je croyais que l'on me prenait pour un dingue, je sais que mon code est pas bien, mais je test

Bilou47190 · Answer 10 · 2018-12-20T23:01:57+0100

Signaler Commenter la réponse de Bilou47190

Bilou47190

Messages postés: 24
Date d'inscription: mardi 3 mars 2009
Statut: Membre
Dernière intervention: 20 décembre 2018

3 20 déc. 2018 à 23:01

0

Merci

Je m'excuse, mais je croyais etre pris pour dingue

Treeview, je tombe fou

Votre réponse