Problème timer et divers petits bugs VB.NET

Bonjour,
j'ai un timer qui toutes les secondes, vérifie que les path (chemin d’accès) de certains dossiers sauvegardés (je fait un logiciel de sauvegarde automatique) soit toujours existant, et si le dossier a été supprimé de l'ordinateur, il supprime le path d'une listview qui regroupe les sauvegardes effectuées. Cependant, si j'en supprime une, le premier coup de timer (au bout d'une seconde) va bien supprimer la sauvegarde que je supprime(la première dans mes tests), mais le deuxième, va supprimer la deuxième sauvegarde alors qu'elle existe toujours, etc... Lorsque j'effectue une nouvelle sauvegarde après une suppression d'une sauvegarde sur Windows, elle s'affiche dans ma listview puis une seconde après (coup de timer), elle est supprimée.
Voici le code de mon timer et en lien le code de ma fenêtre qui commence a être long :

Code:

---

1 2 3 4 5 6 7 8

Private Sub TimerRefresh_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TimerRefresh.Tick For x As Integer = ListSauvegarde.Items.Count - 1 To 0 Step -1 If Not File.Exists(ListePath(x)) Then ListSauvegarde.Items.RemoveAt(x) End If Next End Sub

---

http://pastebin.com/gFs84UtA

Si vous pouvez m'aider, merci

PS : Je profite de mon sujet pour vous demander de l'aide sur d'autres petits bugs où je suis bloqué : je n'arrive pas à afficher des notifications avec NotifyIcon. Je vous donne mon code pour la faire apparâitre :

Code:

---

1 2 3 4 5 6 7 8

If My.Settings.Notification = True Then IconNotification.BalloonTipIcon = ToolTipIcon.Info IconNotification.BalloonTipTitle = "Nouvelle sauvegarde" IconNotification.BalloonTipText = "Une nouvelle sauvegarde a été effectuée" IconNotification.Visible = True IconNotification.ShowBalloonTip(1000) End If

---

J'ai bien mit une icône dans les propriétés de mon NotifyIcon. Je précise que j'ai essaie dans un programme vide avec juste un bouton et une notification et ça ne marche pas non plus. Je suis sous Windows 10, c'est peut-être cela ?

Et je voudrais savoir aussi si vous savez comment accorder le "e.Effect = DragDropEffects.All" uniquement si on glisse un dossier dans une listbox.

Merci beaucoup :)

Citation:

---

Envoyé par Programmeur13

Code:

---

1 2 3 4 5 6 7 8

Private Sub TimerRefresh_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TimerRefresh.Tick For x As Integer = ListSauvegarde.Items.Count - 1 To 0 Step -1 If Not File.Exists(ListePath(x)) Then ListSauvegarde.Items.RemoveAt(x) End If Next End Sub

---

---

vu que tu ne supprimes pas l'élément de ListePath, au deuxième tick quand x vaut 0 (premier tour) tu testes si ListePath(0) existe, or non, et on le savait lors du 1er tick et qu'on l'a supprimé de ListSauvegarde
sauf que là tu es sur x = 0 mais dans ListSauvegarde c'est maintenant le 2ème qui a pris cette place (et ainsi de suite)

Citation:

---

Envoyé par Programmeur13

Et je voudrais savoir aussi si vous savez comment accorder le "e.Effect = DragDropEffects.All" uniquement si on glisse un dossier dans une listbox.

---

il faut tester ce qui est draggé, ca se trouve dans e
de mémoire ca doit etre e.Data.getdataformats, et il faut tester s'il contient le truc qui dit que c'est fichier (je ne sais pas s'il y a une distinction avec fichier, mais tu peux la faire avec system.io.path après)
enfin tu mets un point d'arret à ce moment et un coup d'espion express pour regarder ce qu'il faut exactement


concernant le notifyicon je ne suis pas expert, il doit fonctionner sur win10, mais tu peux aussi afficher une form perso en bas à droite de l'écran pendant tant de temps (ce qui permet au passage de coller visuellement avec ton appli, comme d'autres applis le font)

Merci pour ta réponse très complète et rapide.
Pour le timer, c'est vrai que je n'y avais pas pensé. Cependant, pourrais-tu me montrer comment faire (vu qu'il faudrait remonter tous les items d'un rang dans le tableau et enlever une case). Pour le glisser/déposer, j'ai bien cherché mais je n'ai pas trouvé de distinction fichier/dossier dans le "e.Data.GetDataPresent". Enfin, pour la notification, je pense que je vais le faire par une fenêtre comme tu as dit.
Merci encore

/ timer /
on a pas tout le code mais j'imagine que ListePath est un list(of string)
dans lequel on peut faire un removeAt, donc au moment de faire un removeAt sur l'interface il faudrait le faire sur la collection ListePath aussi
par contre pour bien faire il faudrait rester au même x dans ce cas (pour tester le nouveau sur ce rang)

il y aussi le for each, qui est parfois plus pratique que le for
par contre il faut penser à faire un .tolist sur la collection pour éviter un problème de collection modifiée pendant l'itération
enfin si les 2 lignes ci dessus t'embrouillent plus qu'autre chose fait comme si elles n'étaient pas là

pour t'embrouiller encore plus je pourrais aussi ajouter que l'avantage de wpf c'est qu'une collection affichée travaille directement sur la collection de données, plutot que de la "dupliquer" comme en windows forms :D


/ drag drop /
comme je l'ai dit s'il n'y a pas de distinction fichier dossier, tu peux tester si c'est un (ou plusieurs) fichiers ou dossiers qu'on te passe
en filtrant pour ne garder que les dossiers, si aucun dossier alors pas de drop allowed
avec un peu de chance directory.exist doit retourner false si tu lui donnes un fichier (permettant de faire la distinction) sinon dans system.io.path il y a plein d'instructions liées au système de fichier qui te permettront de tester

J'ai mis tout le code dans un lien Pastebin mais oui en effet il s’agit bien d'un tableau de string. Par contre je n'ai pas compris ce passage :

Citation:

---

par contre pour bien faire il faudrait rester au même x dans ce cas (pour tester le nouveau sur ce rang)

---

Sinon, pour le glisser/déposer je ne voit pas comment tester si c'est un dossier puisqu'il n'y a pas de distinction. Si tu pouvais me montre un code.

Merci

pour le x j'ai dit une connerie, vu que tu parcours à l'envers il ne peut pas y avoir de problème

pour le getdata, tu récupères tout ce qu'il te donne, fichiers et/ou dossier
et après tu testes chaque élément dans une boucle
directory.exists c'était une connerie, car si un dossier a le même nom qu'un fichier glissé ca va retourner true alors qu'on aura glissé le fichier

pour le code j'ai trouvé ça :

Code:

---

1 2 3 4

dim dossierToAdd as new list(of string) For Each file As String In DirectCast(e.Data.GetData(DataFormats.FileDrop, False), String()) ' si file est un dossier then dossierToAdd.add(file) Next

---

et pour le test : https://www.google.fr/?gws_rd=ssl#q=c%23+test+if+path+is+directory
traducteur c# / vb.net : http://converter.telerik.com/

(pour info une recherche en c# et en anglais trouvera toujours plus de réponse)

D'accord merci beaucoup pour tes réponses je vais un peu test tout ça plus tard et je te tiens au courant ;) Sinon, les traducteurs VB / C# marchent bien ?

oui à 95%, les 2 langages sont quasiment identiques niveau fonctionnalités

J'ai fini ma notification, mais comme je ne suis pas un expert en graphisme, tu peux me donner ton avais stp (je rajoute l'heure de la sauvegarde via le code) ? Et si tu s'avais comment on peut faire une animation fondu quand elle apparaît et disparaît.

Pièce jointe 214682

Merci

Code:

---

me.labelinfo.Text &= dateheure.tostring("dddd dd/MM/yyyy") & " à " & dateheure.tostring("HH\hmm")

---

pour le fondu, il faut jouer sur la propriété opacity du form, qui est à définir entre 0 et 1
donc sur form_load (ou sub new) faire me.opacity = 0 et timeropacity.Start (mettre l'interval à 30 ms)
et sur le .tick

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

select case _timeropacity.interval case 30 ' apparition if me.opacity < 1 then me.opacity += 1/25 else timeropacity.interval = 3000 end if case 3000 ' tempo affichage timeropacity.interval = 50 case 50 ' disparition if me.opacity > 0 then me.opacity -= 1/25 else timeropacity.stop me.dispose end if end select

---

(j'utilise l'interval comme variable d'état (apparition/affichage/disparition))

bonsoir,

Je ne veux pas te retrancher dans l avancée de ton projet mais au lieu d utiliser un timer pourquoi ne pas utiliser le composant FileSystemWatcher qui sera d autant plus pratique a manipuler ?

Merci pour l'aide sur l’animation mais j'avais réussi a me débrouiller seul juste après avoir mis la réponse :( Bon bah reste encore quelques bugs à corriger ^^

Salut, wallace1. Pour tout d'avouer, je ne connais pas ce composant. Il pourrait me permettre quoi ?
Merci

un peu de lecture ici :
http://webman.developpez.com/article...watcher/vbnet/

D'accord merci je vais prendre le temps de le lire, c'est donc pour me permettre de surveiller si les sauvegardes ne sont pas effacés ?

tu surveilles certaines propriétés sur des fichiers ou repertoires :

Creation
Suppression
Renommage
Attributs
Date de création
Nom du dossier
Nom de fichier
Date dernier accès
Date d ecriture
Taille
....etc....

Lorsqu une action se produit ca declenche l event associé dans lequel tu auras placés le code a executer......
Timer c est le mal !!

Salut,
j'ai bien lu le (très bon) tuto que tu m'as conseillé. Cependant, j'ai quelques questions pour l'appliquer à mon cas : je devrais en créer un pour chaque sauvegarde et vérifier si elle est pas supprimer ? quand ils parlent de ses limites, est-ce à prendre en compte pour mon cas ?
Merci beaucoup (et oui je préférerais l'utiliser que un timer, mais je ne le connaissais pas ^^)

le filesystemwatcher permet de surveiller un dossier, et éventuellement tout se qui se passe dans l'arborescence
donc si tes dossiers sont un peu partout il faut tous les surveiller (sans option d'arborescence à priori)

normalement il fonctionne bien mais y a des gens qui se plaignent que des fois il ne lève pas d'évènement
donc si ton code fonctionne tu peux le garder
de plus en informatique, on essaye toujours de redonder des systèmes incrémentiels par des systèmes qui font tout le job (comme un filesystemwatcher par un parcours complet), donc juste garder ton code actuel suffit (vu qu'il n'est pas gourmand en ressource)

D'accord merci mais il faudrait que j'en crée un par sauvegarde ? Au bout d'un instant ça va commencer à en faire beaucoup non ?

Pour le timer et la notification c'est parfaitement réglé et je vous en remercie. Manque plus à ce que je m'occupe du glisser/déposer

Bonjour,
avant de m'occuper du glisser/déposer j'ai voulu m'occuper de fonctions (suppression, extraction de zip, copie, restauration) de mes sauvegardes se trouvant dans une listview (la liste de toutes les sauvegardes effectuées et présentes sur l'ordinateur). J'ai commencer par la suppression avec ce code :

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub BtnSupprimerSauvegarde_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSupprimerSauvegarde.Click For x As Integer = 0 To ListSauvegarde.Items.Count - 1 If ListSauvegarde.Items(x).Checked = True Then File.Delete(ListePath.Item(x)) ListSauvegarde.Items.RemoveAt(x) ListePath.RemoveAt(x) End If Next End Sub

---

Cependant, quand je test mon programme et que je supprime une sauvegarde lorsqu'il y en a plusieurs, j'ai cette erreur. Bien que je comprenne ce qu'elle signifie, je ne comprend pas comment la résoudre :

Citation:

---

InvalidArgument=La valeur '1' n'est pas valide pour 'index'.
Nom du paramètre : index

---

Si vous pouvez m'aider, merci beaucoup

là vu que tu n'itère pas en step -1 on tombe sur le cas que j'expliquais plus tôt

disons que ton x va varier de 0 à 3
arrivé sur 0 tu supprimes ce qu'il y a en 0
donc le 1 passe en 0, le 2 passe en 1 et le 3 passe en 2
or tu vas aller jusqu'à 3 et la collection(3) ca plante car tu en as supprimé un entre temps et la collection est plus courte que prévue

pour éviter ca tu peux utiliser un for each in truc.tolist (le .tolist permettant une dublication, et donc d'en supprimer dans la vraie collection pendant qu'on itère la copie)

Salut,
merci pour ta réponse, sinon si j'utilise un step -1 dans une boucle for, ça marche ?
Merci

EDIT : J'ai juste changé ceci : For x As Integer = ListSauvegarde.Items.Count - 1 To 0 Step -1 et tout marche super bien ;)

Bonjour,
en avançant dans mon projet, j'ai mit une checkbox pour cocher/décocher tous les items de ma listview montrant les sauvegardes effectuées. Cependant, quand je fait tout cocher, la croix se coche et le reste même si je décoche des items manuellement. Or, je voudrais qu'elle se coche et décoche automatiquement si je coche tous les items à la main ou si je les décoche. Si vous avez une idée, je suis preneur ;)
Merci encore

Bonjour,

Je me permet d'intervenir pour souligner le fait qu'un post doit concerner un problème. En effet, en plus d'aider une personne en particulier, le forum constitue une base de connaissance qui pourrait servir à toutes personne rencontrant un problème ayant déjà été posé ici. Ici, le post ressemble beaucoup plus à une discussion instantanée et tous les problèmes résolus ne pourront être exploités par d'autres... :aie:

PS: au passage il me semble que cela est mentionné dans la charte utilisateur...

Bonjour,
je voulais savoir si personne savait comment faire pour ma checkbox ? car il me reste plus que ça à faire pour finir mon projet ?
Merci

Citation:

---

Envoyé par Programmeur13

je voulais savoir si personne savait comment faire pour ma checkbox ?

---

Tu aurais pu prendre la peine de créer un autre post pour cette demande :whistle:

Sinon, explique un peu mieux ton problème et où tu bloque, car la réponse semble simple (à première vue).

Je te dirais simplement de décocher ta CheckBox "Tout cocher" si au moins une des autres CheckBox est décochée...

Bah j'ai une listview avec des checkbox pour chaque lignes. Je voudrais que si toutes les checkbox sont cochées, une checkbox annexe le soit aussi et si au moins une ne l'es pas, la checkbox annexe ne soit pas cochée. J'ai mis ce code :

Code:

---

1 2 3 4

If ListSauvegarde.CheckedItems.Count = ListSauvegarde.Items.Count Then CheckSelection.Checked = True End If

---

Mais si je met un else avec CheckSelection.Checked = False, le comportement que le programme a n'est pas du tout celui que je veux.
Si vous avez des idées.
Merci

bonjour,

- tu te mets en mode concepteur de vues
- tu selectionnes ton listview (un seul clic)
- tu vas dans la grille des propriétés de ce listview
- tu clic sur le bouton avec l icone eclair pour afficher la liste des evenements
- tu doubles cliques sur itemChecked cela génère le code associé en mode code
- dans le corps du gestionnaire d evenement tu parcours tous les items pour savoir si l un d'entre eux est decoché alors tu affectes la valeur false a ta checkbox, si tout est coché alors true pour ta checkbox......
:

Code:

---

1 2 3 4

Private sub Listview1_ItemChecked (sender as object, e as itemcheckedeventargs) handles listview1.itemchecked Checkbox1.checked = if(listview1.items.Cast (of listviewitem).any(function(f) f.checked = false), false, true) end sub

---

PS : ceci dit comme mentionné par zenZitone et c est stipulé dans la charte :
1 probleme = 1 sujet !

++

Merci pour ta réponse.
Cependant ca me fait toujours pas le comportement voulu : par exemple, si je check "tout sélectionner", dans mon cas ça ma check qu'une sur deux ou deux sur trois. Il faut que je recheck pour tout check (la checkbox selectionner tout se check bien). Si j'en décheck une, tout se déchek. Je ne comprend vraiment pas pourquoi.

PS : Je sais bien qu'un sujet = un problème mais voilà comme j'en avait 6 ou 7 petits je me voyais mal faire 7 sujets pour le même projet.
PS 2 : Je pense avoir géré tous les cas dans mon programme pour ne pas avoir de bugs mais connaissez-vous un moyen pour afficher un message si dans l'ensemble du programme il se passe une erreur ?

EDIT : J'ai étudié ce comportement dans un nouveau projet vide et je sais d'où vient le problème : c'est mon code pour tout check ou décheck quand je check cette checkbox. Le voici :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged If CheckBox1.Checked = True Then For n As Integer = 0 To ListView1.Items.Count - 1 ListView1.Items.Item(n).Checked = True Next Else For n As Integer = 0 To ListView1.Items.Count - 1 ListView1.Items.Item(n).Checked = False Next End If End Sub

---

Si vous avez une idée pour les rendre compatible, je suis preneur.

déjà on nomme les controles de manière intelligente et intelligible
genre CheckboxCheckAll au lieu de checkbox1

au passage pourquoi écrire tant de code :

Code:

---

1 2 3 4 5 6 7 8 9

If CheckBox1.Checked = True Then For n As Integer = 0 To ListView1.Items.Count - 1 ListView1.Items.Item(n).Checked = True Next Else For n As Integer = 0 To ListView1.Items.Count - 1 ListView1.Items.Item(n).Checked = False Next End If

---

équivaut à

Code:

---

1 2 3

For n As Integer = 0 To ListView1.Items.Count - 1 ListView1.Items.Item(n).Checked = CheckBox1.Checked Next

---

Oui dans mon vrai projet tout est bien nommé j'ai pris le code de mon projet de test.Sinon c'est vrai que j'avais pas pensé à ta version du code. Cependant, quand je le met dans mon projet de test, ça ne marche pas.
Merci

@programmeur13 :

Si tu ne sais pas expliciter correctement la problematique a coups sure tu n arriveras pas a le programmer !!!

ce que tu dis ici :

Citation:

---

Je voudrais que si toutes les checkbox sont cochées, une checkbox annexe le soit aussi et si au moins une ne l'es pas, la checkbox annexe ne soit pas cochée.

---

est completement different de ce que tu dis la :

Citation:

---

si je check "tout sélectionner", dans mon cas ça ma check qu'une sur deux ou deux sur trois. Il faut que je recheck pour tout check (la checkbox selectionner tout se check bien). Si j'en décheck une, tout se déchek.

---

Reformule correctement avant de coder ca fonctionnera mieux a l avenir......

++

Oui la première citation est ce que je veux et la seconde est ce que j'obtient mais que je veux pas.

ok.
Tu as 2 cas de figure :

- lorsque tu cliques sur ta checkbox (tout cocher/decocher) ca aura un impacte sur les checkbox dans ton listview.

- lorsque tu coches/decoches une case dans ton listview ca aura un impacte sur ta checkbox (tout cocher/decocher)

c est ca qu il te faut coder.

Oui et c'est codé mais le problème c'est que lorsque je check la checkbox tout cocher en cochant chaque item manuellement, cela entraîne la fonction checkedchanged de la checkbox tout sélectionner. Du coup ça a un comportement non voulu. Et je ne sais pas comment faire pour ne pas l'avoir.

c est quoi ce comportement non voulu ?
si ca coche ta checkbox (checkboxall) lorsque tout est coché pour moi c normal non ?

Oui c'est normal mais du coup ça déclenche le code écrit dans sa fonction. Et je ne sais pas pourquoi ça fait un comportement bizarre. J'ai du mal à l'expliquer mais il suffit que tu fasse un nouveau projet avec une listview en details, avec juste 3/4 items pour test et en code tu met cela :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Public Class Form1   Private Sub ListView1_ItemChecked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ItemCheckedEventArgs) Handles ListView1.ItemChecked CheckBox1.Checked = If(ListView1.Items.Cast(Of ListViewItem).Any(Function(f) f.Checked = False), False, True) End Sub   Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged If CheckBox1.Checked = True Then For n As Integer = 0 To ListView1.Items.Count - 1 ListView1.Items.Item(n).Checked = True Next Else For n As Integer = 0 To ListView1.Items.Count - 1 ListView1.Items.Item(n).Checked = False Next End If End Sub End Class

---

Merci de ton aide

Comme je te l'ai dis plus tu as 2 cas de figure :

- lorsque tu cliques sur ta checkbox (tout cocher/decocher) ça aura un impacte sur les checkbox dans ton listview.

- lorsque tu coches/decoches une case dans ton listview ca aura un impacte sur ta checkbox (tout cocher/decocher)

Ce qui implique d'ajouter 2 variables (de type boolean) de portée de classe (Form1) :

Code:

---

1 2 3

Private AllChecked As Boolean Private ItemChecked As Boolean

---

Le but étant de prévenir l'exécution de chaque gestionnaire d’événement indépendamment l'un de l'autre.

Tu es d'accord que lorsque tu cliques sur une checkbox dans ton listview (cas n°2), si tu te retrouves avec toutes les cases cochées ou décochées que cela déclenche l'event CheckedChanged de ta checkboxAll !
Et cela est également valable lorsque tu coches la case CheckboxAll......
en brefff :

Code:

---

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

Public Class Form1   Private AllChecked As Boolean Private ItemChecked As Boolean   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load Dim lv1 As New ListViewItem lv1.Text = "1" Dim lv2 As New ListViewItem lv2.Text = "2" ListView1.Items.Add(lv1) ListView1.Items.Add(lv2) End Sub   Private Sub ListView1_ItemChecked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ItemCheckedEventArgs) Handles ListView1.ItemChecked If AllChecked = False Then 'ici on va définir un état à la variable ItemChecked pour savoir si le gestionnaire d'évènement CheckBox1_CheckedChanged doit cocher ou non les cases de Listview1 ItemChecked = True 'On modifie l'état de la checkbox1 mais sans exécuter le code contenu dans son gestionnaire d'évènement CheckBox1.Checked = If(ListView1.Items.Cast(Of ListViewItem).Any(Function(f) f.Checked = False), False, True) 'On redéfinie l'état à false pour pouvoir exécuter de nouveau le code du gestionnaire d'évènement CheckBox1_CheckedChanged lors d'un futur click sur la checkbox1 ItemChecked = False End If End Sub   Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged 'On définie la variable AllChecked à True pour ne pas exécuter le code du gestionnaire d'évent ListView1_ItemChecked AllChecked = True If ItemChecked = False Then For Each it In ListView1.Items it.checked = CheckBox1.Checked Next End If 'On définie la variable AllChecked à false pour exécuter de nouveau le code dans le gestionnaire d'évent ListView1_ItemChecked lorsqu'on coche une case du listview1 AllChecked = False End Sub End Class

---

Il n'y a ici aucune notion technique, c'est simplement un raisonnement basé sur de l'explication de texte. ;)

A+

Salut,
merci énormément pour ta réponse détaillée. Cela fonctionne parfaitement.
Merci encore