Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS

CodeS-SourceS est hébergé par Frontier.fr

Cliquez ici pour mettre ce site au démarrage de votre navigateur

AccueilCodesTutorielsForumsEmploiLivresConnexion

begin process at 2009 01 08 04:26:10

3 ARTICLES SUR SQL SERVER (DATA STRUCTURES, SCANS AND SEEKS, DATA ACCESS STRATEGIES) par RaptorXP

MAIS QUE PEUT BIEN FAIRE UN MVP QUAND IL NE CODE PAS ??? par sebmafate

POWERSHELL : COMMENT EXéCUTER UN SCRIPT PS DEPUIS UNE FENêTRE MS DOS OU SCHEDULED TASK par ROMELARD Fabrice

EDM DESIGNER par Matthieu MEZIL

SMALL BASIC - UN PROJET INTéRESSANT par pierrick

RE : COLLECTION par Orohena

REMPLIR DATAGRID EN 2 TABLE VB.NET par tdi2a

RE : COLLECTION par skyla

RE : POURQUOI ISEMPTY(VBEMPTY) RENVOI FALSE ??? par PCPT

+ de logiciels à télécharger

1 329 716 membres
62 nouveaux aujourd'hui
14 640 membres club

Trouver une ressource

Trouvez une ressource parmi 39 269 codes, 1 222 798 messages d'aide etc...

Recherche: dans [ Dernières recherches ]

Filtre:Tous les codes.NET uniquementExclure .NET

Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

MUSIC PLAYER

Information sur la source

Catégorie :Multimedia Niveau : Débutant Date de création : 14/02/2002 Date de mise à jour : 14/02/2002 22:06:53 Vu : 2 214

Auteur : Kruptos

Site perso

Ecrire un message privé

Note :
Aucune note

Commentaire sur cette source (0)

Ajouter un commentaire et/ou une note

Description

Un lecteur de Cd Audio plus que basique . Donne le nombre de pistes et le n° de la piste qui est entrain d'être jouer . Plus les fonctions basiques d'un lecteur de CD-Audio . La source est tout à fait modifiable .

Source

'Music.frm
Option Explicit
Private Sub cmdPrec_Click()
mciMusic.Command = "Prev"
End Sub
Private Sub cmdSuiv_Click()
mciMusic.Command = "Next"
End Sub
Private Sub Form_Load()
With mciMusic
.DeviceType = "CDAudio"
.Command = "Open"
.Command = "Play"
.Command = " Next"
End With
End Sub
Private Sub Form_Unload(Cancel As Integer)
With mciMusic
.Command = "Stop"
.Command = "Close"
End With
End Sub
Private Sub tmrMusic_Timer()
With mciMusic
LblMusic.Caption = "Piste Numéro : " & .Track & _
vbCrLf & "Nombres de pistes : " & .Tracks
End With
End Sub

'Music.frm
Option Explicit

Private Sub cmdPrec_Click()
mciMusic.Command = "Prev"
End Sub

Private Sub cmdSuiv_Click()
mciMusic.Command = "Next"
End Sub



Private Sub Form_Load()
With mciMusic
.DeviceType = "CDAudio"
.Command = "Open"
.Command = "Play"
.Command = " Next"
End With
End Sub


Private Sub Form_Unload(Cancel As Integer)
With mciMusic
.Command = "Stop"
.Command = "Close"

End With

End Sub

Private Sub tmrMusic_Timer()
With mciMusic
LblMusic.Caption = "Piste Numéro : " & .Track & _
vbCrLf & "Nombres de pistes : " & .Tracks
End With
End Sub