Maitrisez votre préparation <br> maximiser votre chance
Page d acceuil Acceuil
Bienvenue sur votre bureau MetaComputer
Page d acceuil Mes licences
Acquerir un logiciel ou un service MetaComputer
Page d acceuil Gestion commerciale :
Devis, commandes, stock...
connexion à modabbir bureau
Se retrouver dans un véritable marché
Page d acceuil Hassib (comptabilite generale) :
Saiisr, importer votre balance..
Sortir vos etats fiscaux,
Envoyer votre declaration via internet
Page d acceuil Adae : Gestion de paye.. :
Gestion de personnels,
elaborer bulletins de paye
effectuer la declaration de CNSS
Page d acceuil Al Morakib
pour surveiller et controler par cameras
ma maison, mon lieu de travail, mes depots...
Page d acceuil Mes PCs :pour surveiller et controler
mes ordinateurs, ceux de mes enfants
et meme les pcs du lieu de travail
Page d acceuil Service Meta GPS :
Reperer vos vehicules
Suivre et controler a distance
tous vos vehicules..
Page d acceuil Meta FAX
Envoyer des FAX sans ligne
et sans apareil
Decoller...
Page d acceuil Emailer
Envoyer à des Miliers
des e-mails de prospection
Page d acceuil Service MetaSMS :
Envoyer et gerer vos SMS
Faire des compagnes publicitaires
Avec des résultats sures et optimaux
Page d acceuil jeux :
jeux pour les enfants
aussi pour les grands
Produits pour vous
Al Fondoki
Logiciel de la gestion hôteliere:
Réservations, main courante, poits de vente, dépôts, occupation des chambres, ...
Al Modabbir Beton
Une version de Al Modabbir destinée aux entreprises dont l'activité est la production et vente du beton ...
AsSaydalani
Un logiciel pour la gestion pharmaceutique ... - ventes aux guichets, reglements
- utilisation de codes barres
- Base de données des médicament saisie et ajour
- Gestion des achats et des fournisseurs
- Gestion des peromptions
- ...
Morakib PC
Plus
Projets pour vous
Net sou9 / e-souk
NetFavoris 
NOUS |  contacter-nous
Avenue des F.A.R. Rsidence Niama N6 - Ttouan (Maroc)
Tl :(+212) 8 90 60 52 25
Fax :(+212) 5 39 97 25 15
Mobile :(+212) 6 61 10 74 37
Email :mce@meta-computer.com
 

Acceuil  vb.net(746)  Utiliser Windows Media Player en VB.NET
Utiliser Windows Media Player en VB.NET 2011-05-28

Les mesures que vous aurez à faire.
Démarrez Visual Studio et créer une application nouvelle fenêtre de projet. Définissez les propriétés suivantes du formulaire à l'aide de fenêtres de propriétés.


Text = Media Player, BoarderStyle = FixedSingle, MaximizeBox = False, Size = 298,298



Maintenant, faites un clic droit sur ​​la barre d'outils et dans le menu choisissez "Ajouter / Supprimer des éléments". Une boîte de dialogue apparaît choisissez l'option "COM Component" onglet. Recherche pour Windows Media Player et le vérifier en cliquant dans la case. Cliquez sur OK. Maintenant dans votre boîte à outils un nouvel élément est ajouté avec le nom de Windows Media Player.

Drop ceci à votre formulaire et définissez les propriétés suivantes.


Name = player, Size = 298,250


Drop un contrôle menu principal pour construire le menu pour media player Construire le menu dans la hiérarchie suivante et définissez-il des noms comme indiqué entre parenthèses.


File
Open (open)
Exit (mexit)
Player
Play (play)
Stop (mstop)
Pause (mpause)
Volume
Up (mup)
Down (mdown)
Mute (mmute)



De chute de boîte à outils un «OpenFileDialogBox" contrôle à votre formulaire. Définir son nom à "OPD". Ouvrez la fenêtre de code et d'écrire le code ci-dessous dans votre fenêtre de code.



Private Sub open_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles open.Click Private Sub open_Click (ByVal sender As System.Object, ByVal e comme System.EventArgs) Handles open.Click
Try Essayez
opd.InitialDirectory = "c:" opd.InitialDirectory = "c: "
opd.ShowDialog() opd.ShowDialog ()
player.URL = opd.FileName = Opd.FileName player.URL
player.Ctlcontrols.play() player.Ctlcontrols.play ()

Catch ex As Exception Catch ex As Exception
MessageBox.Show("Some error occur so can't play media", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error) MessageBox.Show ("Une erreur se produit ne peut donc pas jouer les médias", "Erreur", MessageBoxButtons.OK, MessageBoxIcon.Error)

End Try End Try
End Sub End Sub


//===============================================================


Private Sub open_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles open.Click

Try
opd.InitialDirectory = "c:"
opd.ShowDialog()
player.URL = opd.FileName
player.Ctlcontrols.play()
Catch ex As Exception

MessageBox.Show("Some error occur so can't play media", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub






Private Sub mexit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mexit.Click
Application.Exit()
End Sub




Private Sub play_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles play.Click
player.Ctlcontrols.play()
End Sub



Private Sub mstop_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mstop.Click
player.Ctlcontrols.stop()
End Sub




Private Sub mpause_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mpause.Click
player.Ctlcontrols.pause()
End Sub





Private Sub mup_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mup.Click
player.settings.volume = player.settings.volume + 10
End Sub



Private Sub mdown_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mdown.Click
player.settings.volume = player.settings.volume - 10
End Sub




Private Sub mmute_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mmute.Click
If player.settings.volume = player.settings.mute() Then
player.settings.volume = 20
Else
player.settings.volume = player.settings.mute()
End If
End
Commentaires des visiteurs :
Ajouter votre commentaire :
Nom :
E-mail :
Commentaire :


Espace Abonné

Mot passe oublié?

Créez un compte maintenant.
Publicité

 
Copyright © 2007 - 2016. Metacomputer Engineering s.a.r.l . tous les droits réservés