[VB6][newbie] pb de code source...

Version imprimable

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:

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]

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

Code:

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

Bonjour,
Voici un exemple qui fontionne chez moi.

Code:

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

25/02/2006, 17h55
SfJ5Rpw8

Citation:

Envoyé par leroissejp

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 .?
25/02/2006, 19h08
j3r311y

merci à vous deux, je vais de ce pas tester vos propositions. ta question s'adresse à qui bbil stp?
25/02/2006, 19h36
SfJ5Rpw8

.... :lol:
28/02/2006, 11h35
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...
28/02/2006, 12h10
SfJ5Rpw8

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

Private Declare .....

est bien tout en haut de ton module ?