1. Accueil
  2. Forum Codes-Sources
  3. Visual Basic
  4. VB.NET
Sujet Précédent Sujet Suivant

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
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
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
A voir également:

10 réponses

Réponse 1 / 10
Whismeril
Messages postés
17327
Date d'inscription
mardi 11 mars 2003
Statut
Modérateur
Dernière intervention
16 mai 2022
 596
20 déc. 2018 à 19:26
Bonsoir

peux tu poster ce que tu as déjà codé?
https://codes-sources.commentcamarche.net/faq/11288-les-balises-de-code
0
Réponse 2 / 10
Bilou47190
Messages postés
24
Date d'inscription
mardi 3 mars 2009
Statut
Membre
Dernière intervention
20 décembre 2018
 3
Modifié le 20 déc. 2018 à 20:10 
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
0
Réponse 3 / 10
Whismeril
Messages postés
17327
Date d'inscription
mardi 11 mars 2003
Statut
Modérateur
Dernière intervention
16 mai 2022
 596
20 déc. 2018 à 19:36
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?
0
Réponse 4 / 10
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
Ou ?, car je ne sais pas comment, la color syntax sur VB.NET, comment ?
0
Whismeril
Messages postés
17327
Date d'inscription
mardi 11 mars 2003
Statut
Modérateur
Dernière intervention
16 mai 2022
 596
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
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Réponse 5 / 10
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
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
0
Réponse 6 / 10
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
ca y est j'ai trouvé chef
0
Réponse 7 / 10
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:36 

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>
0
Réponse 8 / 10
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
Merci tout le monde pour non réponse, j'ai pas de chance pour un débutant
0
Whismeril
Messages postés
17327
Date d'inscription
mardi 11 mars 2003
Statut
Modérateur
Dernière intervention
16 mai 2022
 596
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.
0
Réponse 9 / 10
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
Ben je croyais que l'on me prenait pour un dingue, je sais que mon code est pas bien, mais je test
0
Réponse 10 / 10
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
Je m'excuse, mais je croyais etre pris pour dingue
0