Ejecter et charger un Cd.Résolu

Question

Bonjour.

J'ai lu la source de  ShareVB sur la façon d'éjecter et charger un cd ou autre.

je souhaiterai savoir comment installer cette source dans mon projet, car il me marque erreur de compilation..

Je vous remercie de ce renseignement

A bientôt

developvbdebut · Accepted Answer

Bonjour

ca marche, j'ai mis le code en premier dans la form.

Mercie et à bientôt.

cs_CanisLupus · Answer

Salut,
Je n'ai pas vu la source de ShareVB mais il y a un truc très simple à adapter (à base d'API).

Tu colles le code suivant ds une form contenant 3 boutons (command1 "Ejecter", command2 "Charger", command3 "Quitter").

Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
Private Sub Command1_Click()
mciSendString "set CDAudio door open", 0, 0, Me.hWnd
End Sub
Private Sub Command2_Click()
mciSendString "set CDAudio door closed", 0, 0, Me.hWnd
End Sub
Private Sub Command3_Click()
End
End Sub


Cordialement, CanisLupus

Tous les glands ne deviennent pas des chênes mais tous les chênes ont été des glands

developvbdebut · Answer

Bonjour!

Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long

Ce code pose un problème, en effet l'ors de la mise en route, il y a une erreur de compilation "Seul des commentaire peuvent apparaître après End Sub, End Function, End Property."

Je vous signal que je travaille avec VB6.

Mercie.

A bientôt.

cs_CanisLupus · Answer

Cette déclaration de fonction doit se trouver dans la section général / déclarations de ta form.

Cordialement, CanisLupus

Tous les glands ne deviennent pas des chênes mais tous les chênes ont été des glands

developvbdebut · Answer

Bonsoir

Cela ne fonctionne pas.

J'ai mis cette déclaration dans le Form mais il l'a refuse. il envoi toujour ce message, "seul des commentaire peuvent apparaître après End Sub, End Function, End Property."

Y'a t'il un autre moyen de ci prendre.

Mercie

A bientôt

cs_CanisLupus · Answer

Ben alors là, je ne comprend pas. G fait comme si je découvrais : avec vb je crée un projet avec une form vierge. Je sélectionne le code que g mis plus haut, un copier puis coller dans la section Général (juste après le Option Explicit s'il existe ds ton environnement sinon, tout en haut). Je mets 3 boutons sur la form, j'exécute et ça marche.

Cordialement, CanisLupus

Tous les glands ne deviennent pas des chênes mais tous les chênes ont été des glands

Ejecter et charger un Cd.

6 réponses

Discussions similaires