- Private Sub File1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
- LeSon = File1.Path & "" & File1.FileName
- z = Shell("sndrec32 /play /embedding " & LeSon) ' ouvre le son sans le magnétophone visible
-
- End Sub
-
- Private Sub Form_Load()
- File1.Path = "c:windowsmedia" ' exemple de dossir avec musique
- End Sub
-
Private Sub File1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
LeSon = File1.Path & "" & File1.FileName
z = Shell("sndrec32 /play /embedding " & LeSon) ' ouvre le son sans le magnétophone visible
End Sub
Private Sub Form_Load()
File1.Path = "c:windowsmedia" ' exemple de dossir avec musique
End Sub