Detection de l'insertion ou du retrait de cd

Soyez le premier à donner votre avis sur cette source.

Vue 12 416 fois - Téléchargée 1 345 fois

Description

ce code est le portage en VB de l'exemple de MSDN situé à :
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/devio/base/detecting_media_insertion_or_removal.asp

il permet très simplement d'etre avertit de l'ajout ou suppression d'un CD d'un des lecteurs...

Source / Exemple :


'# On déclare un objet CMediaDetection, possédant des évenements
Private WithEvents MediaDetection As CMediaDetection

Private Sub Form_Load()
    '# On instancie notre objet, la detection est alors lancée
    Set MediaDetection = New CMediaDetection
End Sub

Private Sub Form_Terminate()
    '# On détruit l'objet
    Set MediaDetection = Nothing
End Sub

'# Ces MsgBox apparaissent au déclenchement des evenements
Private Sub MediaDetection_MediaInserted(DriveLetter As String)
    MsgBox "CD/DVD has been inserted into the drive " & DriveLetter & ":", vbInformation
End Sub

Private Sub MediaDetection_MediaRemoved(DriveLetter As String)
    MsgBox "CD/DVD has been removed from the drive " & DriveLetter & ":", vbInformation
End Sub

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Renfield
Messages postés
17287
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
71
26 janv. 2011 à 07:53
Comme on peut le voir dans le projet (fichier .vbp ouvert sous notepad), aucune reference.

ou se produit cette erreur ?
le module est nécessaire au bon fonctionnement de la classe, les APIs y étant déclarées
cs_vladimirr
Messages postés
3
Date d'inscription
mercredi 28 décembre 2005
Statut
Membre
Dernière intervention
1 mars 2013

25 janv. 2011 à 16:33
J'obtiens "Type non défini" à la compilation sur CMediaDetection.
Quelle est la bibliothèque à insérer dans le projet (Outils/Références) ?
Renfield
Messages postés
17287
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
71
29 juil. 2010 à 13:27
Dans le module, supprimer le test:

If CBool(tVOLUME.dbcv_flags And DBTF_MEDIA) Then

Permet de detecter l'insertion/retrait des clé usb...
cs_Axen
Messages postés
49
Date d'inscription
mercredi 8 novembre 2000
Statut
Membre
Dernière intervention
24 mars 2010

13 nov. 2007 à 15:36
Salut,

excellente source ! Je m'en suis servi pour un petit programme permettant de lister automatiquement les fichiers présents sur le support inséré ! Le seul soucis détecté est le plantage occasionel à l'ejection au pas à pas (f8) ou non compilé (f5) ! Aucun soucis à l'utilisation de l'exe donc surement normal !

Merci
Sechaud
Messages postés
288
Date d'inscription
jeudi 28 octobre 2004
Statut
Membre
Dernière intervention
3 janvier 2017

3 févr. 2006 à 08:10
Excellent ton petit programme.Il servira sûrement.
Afficher les 9 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.