Bon ben je trouve que l'utilisation de mmcontrol facilite grandement la programmation, j'ai presque honte de le mettre mais il faut bien commencer par un programme bidon
....
Désolé.
Source / Exemple :
Private Sub copy_Click(Index As Integer)
'Affiche de copyright
' C'est pas à mettre dans le code biensur
copyright.Show
End Sub
Private Sub Form_Load()
'Préparation du périphérique MCI'
MMControl.Notify = False
MMControl.Wait = False
MMControl.Shareable = False
MMControl.DeviceType = "CDaudio"
MMControl.Command = "Open"
MMControl.UpdateInterval = 1000 'raffraichissement'
MMControl.TimeFormat = 10 'format piste minutes secondes'
End Sub
Private Sub MMControl_StatusUpdate()
'Extrait le numero de la piste et le temps écoulé
smp = MMControl.Position Mod 16777216
s = smp \ 65536
m = (smp - s * 65536) \ 256
p = smp - s * 65536 - m * 256
piste.Text = Str(p)
If Len(Str$(m)) = 2 Then
stm = "0" + Str$(m)
Else
stm = Str$(m)
End If
If Len(Str$(s)) = 2 Then
sts = "0" + Str$(s)
Else
sts = Str$(s)
End If
'Affichage du temps écoulé
min.Text = stm
sec.Text = sts
End Sub
Private Sub MMControl_ejectclick(cancel As Integer)
'
MMControl.Command = "Eject"
MMControl.Command = "Close"
End Sub
Private Sub ouvrir_Click(Index As Integer)
nav.Show
End Sub
Private Sub quitter_Click(Index As Integer)
MMControl.Command = "Stop"
Unload Me
End Sub
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.