Bonjours et bien je vous poste ma source d'une petite appli que j'ai fais pour le weekend dernier, il permet de lancer des samples via le pavé numérique.
Donc je l'ai dev vite fait un soir c'était pour mon netbook donc si le code n'est pas parfait ba c'est normal :)
Voila je vous le distribue vu que j'ai mes nouvelles platines et seulement mon netbook pour les samples donc si d'autres sont dans le même cas que moi je pense que ça leur servira :)
Source / Exemple :
Public Class Sample
Private Sub TrackBar1_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TrackBar1.Scroll
'modification du volume en fonction de la trackbar
AxWindowsMediaPlayer1.settings.volume = TrackBar1.Value
End Sub
Private Sub TrackBar2_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TrackBar2.Scroll
'modification du volume en fonction de la trackbar
AxWindowsMediaPlayer2.settings.volume = TrackBar2.Value()
End Sub
Private Sub TrackBar3_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TrackBar3.Scroll
'modification du volume en fonction de la trackbar
AxWindowsMediaPlayer3.settings.volume = TrackBar3.Value
End Sub
Private Sub TrackBar4_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TrackBar4.Scroll
'modification du volume en fonction de la trackbar
AxWindowsMediaPlayer6.settings.volume = TrackBar4.Value()
End Sub
Private Sub TrackBar5_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TrackBar5.Scroll
'modification du volume en fonction de la trackbar
AxWindowsMediaPlayer5.settings.volume = TrackBar5.Value
End Sub
Private Sub TrackBar6_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TrackBar6.Scroll
'modification du volume en fonction de la trackbar
AxWindowsMediaPlayer4.settings.volume = TrackBar6.Value
End Sub
Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click
End Sub
Private Sub FileSystemWatcher1_Changed(ByVal sender As System.Object, ByVal e As System.IO.FileSystemEventArgs) Handles FileSystemWatcher1.Changed
End Sub
Private Sub Sample_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'Met une boucle sur tout les samples
'AxWindowsMediaPlayer1.settings.setMode("Loop", True)
'AxWindowsMediaPlayer2.settings.setMode("Loop", True)
'AxWindowsMediaPlayer3.settings.setMode("Loop", True)
'AxWindowsMediaPlayer4.settings.setMode("Loop", True)
'AxWindowsMediaPlayer5.settings.setMode("Loop", True)
'AxWindowsMediaPlayer6.settings.setMode("Loop", True)
'Met tout les sons a 100 au chargement du form
AxWindowsMediaPlayer1.settings.volume = 100
AxWindowsMediaPlayer2.settings.volume = 100
AxWindowsMediaPlayer3.settings.volume = 100
AxWindowsMediaPlayer4.settings.volume = 100
AxWindowsMediaPlayer5.settings.volume = 100
AxWindowsMediaPlayer6.settings.volume = 100
End Sub
Private Sub Shapes_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles RectangleShape1.KeyDown, OvalShape1.KeyDown, LineShape1.KeyDown
'met en lecture la sample associé au pavé numerique si la touche est appuyé
If e.KeyCode = Keys.NumPad1 Then
AxWindowsMediaPlayer1.Ctlcontrols.stop()
AxWindowsMediaPlayer1.Ctlcontrols.play()
End If
If e.KeyCode = Keys.NumPad2 Then
AxWindowsMediaPlayer2.Ctlcontrols.stop()
AxWindowsMediaPlayer2.Ctlcontrols.play()
End If
If e.KeyCode = Keys.NumPad3 Then
AxWindowsMediaPlayer3.Ctlcontrols.stop()
AxWindowsMediaPlayer3.Ctlcontrols.play()
End If
If e.KeyCode = Keys.NumPad6 Then
AxWindowsMediaPlayer4.Ctlcontrols.stop()
AxWindowsMediaPlayer4.Ctlcontrols.play()
End If
If e.KeyCode = Keys.NumPad5 Then
AxWindowsMediaPlayer5.Ctlcontrols.stop()
AxWindowsMediaPlayer5.Ctlcontrols.play()
End If
If e.KeyCode = Keys.NumPad4 Then
AxWindowsMediaPlayer6.Ctlcontrols.stop()
AxWindowsMediaPlayer6.Ctlcontrols.play()
End If
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Private Sub AxWindowsMediaPlayer1_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AxWindowsMediaPlayer1.Enter
End Sub
Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
If CheckBox1.Checked = True Then
AxWindowsMediaPlayer1.settings.setMode("Loop", True)
Else
AxWindowsMediaPlayer1.settings.setMode("Loop", False)
End If
End Sub
Private Sub CheckBox2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox2.CheckedChanged
If CheckBox2.Checked = True Then
AxWindowsMediaPlayer2.settings.setMode("Loop", True)
Else
AxWindowsMediaPlayer2.settings.setMode("Loop", False)
End If
End Sub
Private Sub CheckBox3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox3.CheckedChanged
If CheckBox3.Checked = True Then
AxWindowsMediaPlayer3.settings.setMode("Loop", True)
Else
AxWindowsMediaPlayer3.settings.setMode("Loop", False)
End If
End Sub
Private Sub CheckBox4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox4.CheckedChanged
If CheckBox4.Checked = True Then
AxWindowsMediaPlayer4.settings.setMode("Loop", True)
Else
AxWindowsMediaPlayer4.settings.setMode("Loop", False)
End If
End Sub
Private Sub CheckBox5_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox5.CheckedChanged
If CheckBox5.Checked = True Then
AxWindowsMediaPlayer5.settings.setMode("Loop", True)
Else
AxWindowsMediaPlayer5.settings.setMode("Loop", False)
End If
End Sub
Private Sub CheckBox6_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox6.CheckedChanged
If CheckBox6.Checked = True Then
AxWindowsMediaPlayer6.settings.setMode("Loop", True)
Else
AxWindowsMediaPlayer6.settings.setMode("Loop", False)
End If
End Sub
End Class
Conclusion :
J'espère que sa servira a quelques-un d'entre vous ;)
PS : Il y a quelques samples que j'avais.
PS2 : Désolé de ne pas l'avoir mis plus tôt je ne suis plus aussi souvent sur CS :S
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.