Discussion :

[j3r311y]

je m'explique. je débute tout juste ( une semaine, mais une semaine de vacances) sur vb6 édition entreprise qu'on m'a prêté en même temps qu'un livre Campuspress sur le sujet (vb6). j'essaie donc quelques projets de base. jusque là tout va bien. Alors je me décide à fair eun petit projet perso nécessitant l'ouverture d'un lecteur cd-rom. Jeme dirige donc vers les codes sources de plusisuers site, que j'insère sous le command_click. Et aucun ne marche. J'ai essayé de "forcer" en mettant le projet sous format *.exe, mais il refuse. desfois il me done des raisons différentes. L'erreur vient de moi, mais je ne la comprends. Pourriez-vous m'aider, SVP? Merci bcp.

PS: voici un exemplaire de mon code si ça peut aider... j'ai fait un copier-coller du general-declarations.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
Private Sub Command1_Click()
tricheuse.Show 1
End Sub
Private Sub Command2_Click()
Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" _
                                       (ByVal lpstrCommand As String, ByVal lpstrReturnString As Any, _
                                       ByVal wReturnLength As Integer, ByVal hCallback As Integer) As Long
 
Private Sub Ejecte()
 
mciSendString "Set CDAudio Door Open Wait", 0&, 0, 0
 
 
End Sub
 
Private Sub Command3_Click()
oops.Show 1
End Sub

[/code]

[SfJ5Rpw8]

les déclarations de procédure/fonctions /... se font tout en haut du code..., pas derriére un bouton...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" _
                                       (ByVal lpstrCommand As String, ByVal lpstrReturnString As Any, _
                                       ByVal wReturnLength As Integer, ByVal hCallback As Integer) As Long
 
 
Private Sub Command1_Click()
tricheuse.Show 1
End Sub 
Private Sub Ejecte()
 
mciSendString "Set CDAudio Door Open Wait", 0&, 0, 0
 
 
End Sub
 
Private Sub Command3_Click()
oops.Show 1
End Sub

[leroissejp]

Bonjour,
Voici un exemple qui fontionne chez moi.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Option Explicit
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
 
Dim ret
 
Private Sub cmdOuvrir_Click()
   ret = mciSendString("Set cdaudio door Open wait", vbNullChar, 0, 0)
End Sub
 
Private Sub cmdFermer_Click()
   ret = mciSendString("Set cdaudio door closed wait", vbNullChar, 0, 0)
End Sub

jpleroisse

[SfJ5Rpw8]

Bonjour,
Voici un exemple qui fontionne chez moi.

jpleroisse

: pourquoi le mien ne fonctionne-t'il pas ?
et tu les ouvre ou les fenêtres oops et tricheuse .?

[j3r311y]

merci à vous deux, je vais de ce pas tester vos propositions. ta question s'adresse à qui bbil stp?

[SfJ5Rpw8]

....

[j3r311y]

euh, je dois vraiment être un boulet mais le logiciel me dit qu'il faut mettre un commentaire après je ne sais plus quoi. c'es ttoujours ce message d'erreur qui s'affiche quel que soit le code source, c'est pas la première fois qu'il me dit ça. je devrais peut-être arrêter les dégâts là et retourner en html...

[SfJ5Rpw8]

tu n'as pas le message exact ? ...
la ligne :

Private Declare .....

est bien tout en haut de ton module ?