comme vous vous en doutez ce programme un lecteur de mp3, wav, midi, mp2 etc...
Source / Exemple :
'déclaration des variable publique
Public chemin As String
Public mitch As String
Public repeat As String
Private Sub ComboCd_Change()
drvD.Drive = "D:"
End Sub
Private Sub Check2_Click()
'charge la filelist enregistrée
Open "C:\mp3\filelist.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, txt
List1.AddItem txt
Loop
Close #1
End Sub
Private Sub DirC_Change()
File1.Path = DirC.Path
End Sub
Private Sub Drive1_Change()
DirC.Path = Drive1.Drive
End Sub
Private Sub File1_DblClick()
CommonDialog1.Filter = "Fichiers texte (*.txt)|*.txt"
CommonDialog1.ShowOpen
' dit le chemin a relaaudio ou aller chercher la musique ( au double clique)
RealAudio1.Source = File1.Path & "\" & File1.FileName
RealAudio1.DoPlay
Form2.Show
End Sub
Private Sub Form_Load()
MsgBox " Pour la fiel list vous devez créé un dossier ou vous mettez vos mp3 dans C:\mp3, la file list sera enregistrer dedans "
End Sub
Private Sub Form_Unload(Cancel As Integer)
' déclare une variable et enregistre la filelist
Dim count As Integer
Open "C:\mp3\filelist.txt" For Output As 1
For count = 0 To List1.ListCount - 1
Print #1, List1.List(count)
Next
Close 1
MsgBox "Votre filelist va etre enregistrée"
End Sub
Private Sub List1_DblClick()
' lit la musique doubliquée
chemin = ".txt"
Text9.Text = List1.Text & chemin
Open Text9.Text For Input As #1
Do While Not EOF(1)
Line Input #1, txt
mitch = txt
Loop
Close #1
RealAudio1.DoStop
RealAudio1.Source = mitch
RealAudio1.DoPlay
End Sub
Private Sub mnupropos_Click()
' charge la page à propos de
frmAbout.Show
End Sub
Private Sub mnuquitter_Click()
' enregistre la filelist et quitte le programme
Dim count As Integer
Open "C:\mp3\filelist.txt" For Output As 1
For count = 0 To List1.ListCount - 1
Print #1, List1.List(count)
Next
Close 1
MsgBox "Votre filelist va etre enregistrée"
End
End Sub
Private Sub RealAudio1_OnClipClosed()
' quand la musique et finie si la check1 est checkée sa repeat
If Check1.Value = Checked Then
For i = 0 To 100 Step 1
RealAudio1.Source = mitch
RealAudio1.DoPlay
Next i
Else
RealAudio1.DoStop
End If
End Sub
Conclusion :
merci d'avance
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.