Surveillance évènement

Soyez le premier à donner votre avis sur cette source.

Vue 5 706 fois - Téléchargée 1 389 fois

Description

Ce programme permet d'afficher une alerte avant la fin d'une période fixée pour un évènement à venir dans un délai assez long pour l'oublier (plusieurs mois), par exemple une ré-activation de logiciel ou le remplacement d'une pièce dans un mécanisme ou un RV lointain...
Au démarrage vous ne verrez rien à l'écran(dans un délai d'environ 160j à partir du 30/03/2013): il faudra cliquer sur l'icône du programme qui sera dans la barre de processus (en bas à droite de l'écran, en forme d'œil) pour afficher la boite d'alerte. Modifier les paramètres par défaut et valider (bouton Lancer) pour que le programme se lance à chaque démarrage de Windows.
Il y a une aide et des infos bulle.

Source / Exemple :


voir zip

Conclusion :


Ce programme peut sembler inutile (je l'ai écrit pour un besoin perso), mais il permet d'illustrer qq aspects de VB.Net (il est écrit avec
VB Express 2008):
-lancement d'un .exe au démarrage de Windows.
-utilisation de formes transparentes pour l'affichage d'une image.
-jouer un son .mp3 ou .wav.
-utilisation du fichier Resources.
-utilisation d'un menu.
-mise du programme dans une icône de la barre de processus.
Et en plus, c'est mon 1er programme complet en VB.net! (je pratiquais le VB6).

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Mais qu'est-ce qui n'allait pas avec le code de Secondary117 ? Je l'ai essayé, certes, il empeche la fermeture...ce n'est pas ce que tu voulais ?
essaye ça :

Private Sub frmAlerte_FormClosing(ByVal sender As System.Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles MyBase.FormClosing
If e.CloseReason = CloseReason.UserClosing Then
e.Cancel = True
Me.WindowState = FormWindowState.Minimized
End If
End Sub
Messages postés
301
Date d'inscription
lundi 27 février 2006
Statut
Membre
Dernière intervention
17 décembre 2017

SECONDARY11
Au cours du remodelage de mon code pour sa maj, je m'aperçois que ta suggestion concernant la sub frmAlerte_FormClosing ne semble pas convenir. En effet, tu proposes dans tous les cas d'empêcher sa fermeture en mettant eventArgs.Cancel = True, alors que je le veux seulement lorsque l'utilisateur clique sur la croix de la form. Donc je maintiens le rôle de ma variable UnloadMode.

Je m'en vais maintenant publier ma maj, mais tous commentaires restent les bienvenus!
Cdt
Messages postés
301
Date d'inscription
lundi 27 février 2006
Statut
Membre
Dernière intervention
17 décembre 2017

Bonjour SECONDARY117,

Merci pour ton long message constructif, et merci aussi de t'intéresser de si près à mon code.
C'est comme çà que j'aime les échanges sur ce site: améliorations,astuces,idées,et bonnes critiques avec proposition de solutions.
Tout d'abord, il est vrai que l'interface que tu proposes est meilleure que la mienne: je ne suis pas expert en designs pros...
Pour les forms alertes ou alarmes, j'ai seulement voulu montrer ce que l'on pouvait obtenir avec les forms transparentes, sans beaucoup me soucier de la finition des images. On peut bien sûr les améliorer en fonction des goûts (et des talents) de chacun.
Pour les autres "critiques", j'en tiendrai compte dans ma prochaine maj, mais je serais en fait très intéressé de voir le projet modifié comme tu me le propose. Pour çà, il y a une site gratuit de dépose de fichier que je te signale ci-dessous:
http://www.cjoint.com/
Il y en a sûrement d'autres, mais j'ai l'habitude de celui-ci.
Il faut bien sûr que tu m'envoies (via la messagerie VBFrance) l'adresse du lien de ton dépôt.

A+
Cdt
Messages postés
44
Date d'inscription
lundi 28 novembre 2011
Statut
Membre
Dernière intervention
26 décembre 2013
1
Re, alors 1.je me suis penché sur l'interface, qui ressemble a celle ci:
http://img11.hostingpics.net/pics/587551InterFce.jpg

Ton ancienne interface, pour moi, elle ne faisait pas trop "Pro", si tu vois ce que je veux dire. (violet, grand, italique gras etc..)
J'ai rajouté des icônes, ton logiciel sera légèrement plus lourd mais c'est quand même plus agréable a l'oeil.

Changement de texte de 2 boutons : "cacher" & "désinstaller", je les trouve plus appropriés.
2.J'ai modifié certains bouts de codes (de l'affichage par ex msgbox, le label en rouge "Il NE reste PLUS que")
Important: quand tu fais "Aide", tu as une msgbox avec le titre par défaut et sans image (icône), modifie le code

MsgBox(t)

en

MsgBox(t, MsgBoxStyle.Information, "Aide ?")

3.Dans l'event formclosing, tu t'es complique la vie:

Passage de ca:
Private Sub frmAlerte_FormClosing(ByVal eventSender As System.Object, ByVal eventArgs As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
'If AlarmVisible = False Then Exit Sub
Dim Cancel As Boolean = eventArgs.Cancel
Dim UnloadMode As System.Windows.Forms.CloseReason = eventArgs.CloseReason
'empêche la fermeture par la croix du menu If UnloadMode System.Windows.Forms.CloseReason.UserClosing Then Cancel True
eventArgs.Cancel = Cancel
End Sub

en ça:

Private Sub frmAlerte_FormClosing(ByVal eventSender As System.Object, ByVal eventArgs As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
eventArgs.Cancel = True
Me.WindowState = FormWindowState.Minimized
End Sub
(je me suis permis de mettre "Me.WindowState = FormWindowState.Minimized" a la fin aussi)

Voilà les changements fait à ton projet. Tu devrais changer l'image de tes 2 forms qui alertent l'utilisateur (en mettre de meilleure qualité, et de ne pas faire la form à la "Va-vite" :/

Note: Si tu veux le projet que j'ai modifié, fais moi signe, je ne sais pas si j'ai le droit de poster des lien dropbox ou directs exterieurs au site, il faudra demander a un moderateur :) (deja que j'ai posté une image avec un lien externe ..)

Note2: Si tu n'aimes pas les changements (comme l'interface), libre a toi de t'exprimer, c'est une suggestion.

Sur ce, bonne continuation
Secondary
Afficher les 11 commentaires

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.