je ne vois pas a koi sert ton timer
ton programme serais deja plus compéhensible comme ca concernant le clik sur le bouton
Private Sub Command1_Click()
If Command1.Caption = "fermer le CD" Then
Dim lngrep2 As Long, sm2 As String
lngrep2 = mciSendString("set CDAudio door closed", sm2, 127, 0)
Command1.Caption = "ouvrir le CD"
Else
Dim lngrep As Long, sm As String
lngrep = mciSendString("set CDAudio door open", sm, 127, 0)
Command1.Caption = "fermer le CD"
End If
End Sub
ton programme serais deja plus compéhensible comme ca concernant le clik sur le bouton
Private Sub Command1_Click()
If Command1.Caption = "fermer le CD" Then
Dim lngrep2 As Long, sm2 As String
lngrep2 = mciSendString("set CDAudio door closed", sm2, 127, 0)
Command1.Caption = "ouvrir le CD"
Else
Dim lngrep As Long, sm As String
lngrep = mciSendString("set CDAudio door open", sm, 127, 0)
Command1.Caption = "fermer le CD"
End If
End Sub
POur un débutant, tu te débrouille bien !
MaXell
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.