cs_Le Pivert
Messages postés7903Date d'inscriptionjeudi 13 septembre 2007StatutContributeurDernière intervention11 mars 2024137 26 sept. 2010 à 16:58
A l'attention des membres qui ont laissés un commentaire, une nouvelle mise à jour concernant les sous-dossiers avec les mêmes fonctions: Copier, déplacer, supprimer et renommer. Progressbar facultatif pour diminuer le temps de l'opération.
Bonne programmation à tous
cs_Le Pivert
Messages postés7903Date d'inscriptionjeudi 13 septembre 2007StatutContributeurDernière intervention11 mars 2024137 2 août 2010 à 19:05
Merci BLQ pour le commentaire et la note. Bonne programmation
@+ Le pivert
blq
Messages postés97Date d'inscriptionvendredi 22 octobre 1999StatutMembreDernière intervention13 juin 20161 2 août 2010 à 16:09
Excellent, je viens de le convertir vers Visual Express 2010 sans souci. Ce code est un bon sujet pour apréhender l'accès à un système de fichiers. Comme je débute la découverte de VB Express, je vais apprendre plein de chose, merci.
cs_Le Pivert
Messages postés7903Date d'inscriptionjeudi 13 septembre 2007StatutContributeurDernière intervention11 mars 2024137 18 janv. 2010 à 17:00
A l'attention de OHTOFOCUS et LEBRIOU j'ai ajouté l'affichage des icônes des fichiers si cela vous interesse.
@+ Le Pivert
cs_Le Pivert
Messages postés7903Date d'inscriptionjeudi 13 septembre 2007StatutContributeurDernière intervention11 mars 2024137 12 janv. 2010 à 08:03
Bonjour LEBRIOU,
Merci pour le commentaire et la note.
Ravi que cette source puisse vous servir.Bonne programmation
@+ Le Pivert
LEBRIOU
Messages postés13Date d'inscriptiondimanche 5 novembre 2006StatutMembreDernière intervention17 mars 2013 11 janv. 2010 à 20:52
C' est ce que je cherchais! Votre code est bien documenté et trés concis.
Je vais le décortiquer pour l'adapter pour qu'il repere les extensions des fichiers listés pour pouvoir ensuite les selectionner...
cs_Le Pivert
Messages postés7903Date d'inscriptionjeudi 13 septembre 2007StatutContributeurDernière intervention11 mars 2024137 9 déc. 2009 à 12:20
Jai oublié de vous dire que si vous voulez supprimer la commande "Nouvelle sélection" il suffit de mettre dans Private Sub Form1_Load:
CheckBox3.Checked = False
CheckBox3.Visible False à la place de cmdselect.Enabled False
Et dans Private Sub cmdopen_dossier_Click:
CheckBox3.Checked True à la place de cmdselect.Enabled True
@+ Le Pivert
cs_Le Pivert
Messages postés7903Date d'inscriptionjeudi 13 septembre 2007StatutContributeurDernière intervention11 mars 2024137 9 déc. 2009 à 08:10
Bonjour,
Réinitialisation auto de la listview par comboBox
Pour éviter un bug à l'ouverture.
Ajouter un checkBox ensuite mettre le code suivant:
Private Sub cmbextension_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbextension.SelectedIndexChanged
If CheckBox3.Checked = True Then
Repertoire() 'rempli la listview
End If
End Sub
Pour la conversion de VBA en Vb.Net, je n'ai pas de méthode je fais au cas par cas. Dans mes programmes il y en a pas mal qui sont dans les 2 langages, si cela peut vous aider.
Amicalement Le Pivert
OhTofocus
Messages postés21Date d'inscriptionvendredi 20 novembre 2009StatutMembreDernière intervention25 mai 2014 9 déc. 2009 à 01:08
Votre application est très pratique pour un débutant comme moi !
Elle permet de découvrir de nouvelles possibilités ( grâce aux liens présents dans le code et au code lui même !)
Pour le tri il y avait la possibilité de développer sa propre routine de tri qui réorganisait les items 1 par 1 en fonction de la taille, je l'ai testé et elle était moins rapide :-( ,mais l'exercice était sympathique...
PS: Je verais bien la réinitialisation de la Listview automatiquement au changement de la ComboBox des extensions.
Avez vous une technique particulière pour convertir le vb.net en vba.
Pour ma part j'arrive du vba et je rencontre pas mal de problèmes de syntaxe pour la conversion en vb.net.
cs_Le Pivert
Messages postés7903Date d'inscriptionjeudi 13 septembre 2007StatutContributeurDernière intervention11 mars 2024137 4 déc. 2009 à 08:13
Bonjour OHTOFOCUS,
Pour expliquer ce que j'ai fait:
On met au format de 10 chiffres pour faire le tri numérique
'Tri colonne numérique(Taille)nouveau format 10 chiffres
For i = 0 To ListView1.Items.Count - 1
ListView1.Items(i).SubItems(1).Text = Format(Val(ListView1.Items(i).SubItems(1).Text), "0000000000")
Next
Et ensuite on réinitialise et c'est là que je ne comprenais pas, il fallait le mettre après être sorti de la listview comme ceci:
'Tri colonne numérique(Taille)réinitialisation du format
For i = 0 To ListView1.Items.Count - 1
ListView1.Items(i).SubItems(1).Text = Format(Val(ListView1.Items(i).SubItems(1).Text), "##########")
Next
Amicalement Le Pivert
cs_Le Pivert
Messages postés7903Date d'inscriptionjeudi 13 septembre 2007StatutContributeurDernière intervention11 mars 2024137 3 déc. 2009 à 15:26
OHTOFOCUS, j'ai corrigé le mode de tri de la colonne "Taille", mais je ne suis pas entièrement satisfait car il m'a fallu ajouter des 0 devant les plus petits nombres pour que cela fonctionne. Un membre plus averti pourra peut-être me donner un coup de pouce.
cs_Le Pivert
Messages postés7903Date d'inscriptionjeudi 13 septembre 2007StatutContributeurDernière intervention11 mars 2024137 3 déc. 2009 à 08:24
OhTofocus
Messages postés21Date d'inscriptionvendredi 20 novembre 2009StatutMembreDernière intervention25 mai 2014 2 déc. 2009 à 23:00
Félicitation pour votre source.
Je vais pouvoir passer quelques soirées à décortiquer ce code.
Petite remarque: le tri par taille n'est pas correct ( il se fait par ordre alphabétique !)... à vous de jouer.
26 sept. 2010 à 16:58
Bonne programmation à tous
2 août 2010 à 19:05
@+ Le pivert
2 août 2010 à 16:09
18 janv. 2010 à 17:00
@+ Le Pivert
12 janv. 2010 à 08:03
Merci pour le commentaire et la note.
Ravi que cette source puisse vous servir.Bonne programmation
@+ Le Pivert
11 janv. 2010 à 20:52
Je vais le décortiquer pour l'adapter pour qu'il repere les extensions des fichiers listés pour pouvoir ensuite les selectionner...
9 déc. 2009 à 12:20
CheckBox3.Checked = False
CheckBox3.Visible False à la place de cmdselect.Enabled False
Et dans Private Sub cmdopen_dossier_Click:
CheckBox3.Checked True à la place de cmdselect.Enabled True
@+ Le Pivert
9 déc. 2009 à 08:10
Réinitialisation auto de la listview par comboBox
Pour éviter un bug à l'ouverture.
Ajouter un checkBox ensuite mettre le code suivant:
Private Sub cmbextension_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbextension.SelectedIndexChanged
If CheckBox3.Checked = True Then
Repertoire() 'rempli la listview
End If
End Sub
Pour la conversion de VBA en Vb.Net, je n'ai pas de méthode je fais au cas par cas. Dans mes programmes il y en a pas mal qui sont dans les 2 langages, si cela peut vous aider.
Amicalement Le Pivert
9 déc. 2009 à 01:08
Elle permet de découvrir de nouvelles possibilités ( grâce aux liens présents dans le code et au code lui même !)
Pour le tri il y avait la possibilité de développer sa propre routine de tri qui réorganisait les items 1 par 1 en fonction de la taille, je l'ai testé et elle était moins rapide :-( ,mais l'exercice était sympathique...
PS: Je verais bien la réinitialisation de la Listview automatiquement au changement de la ComboBox des extensions.
Avez vous une technique particulière pour convertir le vb.net en vba.
Pour ma part j'arrive du vba et je rencontre pas mal de problèmes de syntaxe pour la conversion en vb.net.
4 déc. 2009 à 08:13
Pour expliquer ce que j'ai fait:
On met au format de 10 chiffres pour faire le tri numérique
'Tri colonne numérique(Taille)nouveau format 10 chiffres
For i = 0 To ListView1.Items.Count - 1
ListView1.Items(i).SubItems(1).Text = Format(Val(ListView1.Items(i).SubItems(1).Text), "0000000000")
Next
Et ensuite on réinitialise et c'est là que je ne comprenais pas, il fallait le mettre après être sorti de la listview comme ceci:
'Tri colonne numérique(Taille)réinitialisation du format
For i = 0 To ListView1.Items.Count - 1
ListView1.Items(i).SubItems(1).Text = Format(Val(ListView1.Items(i).SubItems(1).Text), "##########")
Next
Amicalement Le Pivert
3 déc. 2009 à 15:26
3 déc. 2009 à 08:24
Merci pour le commentaire, surtout que c'est vous qui m'avait donné envie de m'attaquer aux listview avec votre dernier code.
Pour le tri des chiffres, cela est signalé dans:
http://faqvbnet.developpez.com/?page=form_lv
Mais Renfield a abordé ce sujet en VB6 dans:
http://www.vbfrance.com/codes/TRI-ITEMS-LISTVIEW-DATE-NUMERIQUE-PERSO_50040.aspx
Je vais donc voir ce que je peux faire, voyez de votre côté
Amicalement Le Pivert
2 déc. 2009 à 23:00
Je vais pouvoir passer quelques soirées à décortiquer ce code.
Petite remarque: le tri par taille n'est pas correct ( il se fait par ordre alphabétique !)... à vous de jouer.
merci pour les liens qui sont très instructifs.