Πώς να κάνει ταυτόχρονη ήχοι σε VB

VB.NET , η τελευταία έκδοση του Visual Basic , έχει μια κατηγορία SoundPlayer που δίνει VB εφαρμογή σας τη δυνατότητα να παίξει ήχου. Δυστυχώς , αυτή η κατηγορία παράγει μόνο ενός ήχου σε μια στιγμή . Εάν το πρόγραμμά σας θα πρέπει να παίξει αρκετές ήχους ή ηχητικά εφέ ταυτόχρονα , δεν μπορείτε να χρησιμοποιήσετε την κλάση SoundPlayer ως πηγή ήχου σας . Χρησιμοποιώντας ένα απλό τέχνασμα COM , ωστόσο , μπορείτε να προσθέσετε πολλά αόρατα Windows Media Player ελέγχει την αίτησή σας που παίζουν , όπως πολλές ταυτόχρονες ήχους όπως εσείς επιθυμείτε . . Οδηγίες
Η 1

την εφαρμογή Microsoft Visual Studio , κάντε κλικ στο " Αρχείο " και στη συνέχεια κάντε κλικ στο κουμπί " Νέο ". Κάντε κλικ στο κουμπί "Project ", και στη συνέχεια κάντε κλικ στο " Visual Basic" για να το επισημάνετε . Κάντε διπλό κλικ στο " Windows Forms Application " για να δημιουργήσετε ένα νέο έργο VB.NET . Το αρχείο με το όνομα " Form1.vb " εμφανίζεται στην Εξερεύνηση λύση . Η ίδια η μορφή εμφανίζεται στο παράθυρο σχεδίασης στα αριστερά του Explorer Solution . 2

Κάντε κλικ στο κουμπί "Προβολή" , και στη συνέχεια κάντε κλικ στο " Toolbox" για να ανοίξει εργαλειοθήκη του Visual Studio . Κάντε δεξί κλικ οπουδήποτε στην εργαλειοθήκη , στη συνέχεια, κάντε κλικ στην επιλογή " Προσθήκη στοιχείων " για να ανοίξετε το παράθυρο " Choose Toolbox Items " .
Εικόνων 3

Κάντε κλικ στο " COM Εξαρτήματα, " και στη συνέχεια κάντε κλικ στο " Windows Media Player " πλαίσιο ελέγχου για να τοποθετήσετε ένα σημάδι ελέγχου εκεί . Κάντε κλικ στο " OK" και Visual Studio προσθέτει μια νέα " Windows Media Player " ελέγχου στην εργαλειοθήκη .
Η

4 Κάντε διπλό κλικ που ελέγχουν για να το προσθέσετε στη φόρμα σας . Κάντε δεξί κλικ στο στοιχείο ελέγχου που προστίθεται στη φόρμα , στη συνέχεια, κάντε κλικ στο κουμπί " Αντιγραφή". Κάντε δεξί κλικ σε έναν κενό χώρο με τη μορφή , και στη συνέχεια κάντε κλικ στο κουμπί " Επικόλληση". Visual Studio τοποθετεί ένα αντίγραφο του ελέγχου του Windows Media Player για τη μορφή .
5

διπλό κλικ στη γραμμή τίτλου της φόρμας . Το παράθυρο κώδικα ανοίγει και εμφανίζει την ακόλουθη μέθοδο :

Private Sub Form1_Load ( ByVal αποστολέα Όπως System.Object , ByVal e Όπως System.EventArgs ) Λαβές MyBase.Load

End Sub

η μέθοδος αυτή εκτελείται όταν τα φορτία μορφή
Η 6

Προσθέστε τον ακόλουθο κώδικα πριν από την μέθοδο του "End Sub" δήλωση: .

Me.AxWindowsMediaPlayer1.Visible = False

Me.AxWindowsMediaPlayer2.Visible = False

Dim sound1 Όπως String Dim

Sound2 Όπως String

sound1 = " mySound1.wav "

Sound2 = " mySound2.wav "

Me.AxWindowsMediaPlayer1.URL = sound1

Me.AxWindowsMediaPlayer2.URL = Sound2

οι δύο πρώτες δηλώσεις κρύβουν τα δύο Windows Media Player ελέγχει για την μορφή . Οι επόμενες τέσσερις δηλώσεις καθορίζουν " sound1 " και " Sound2 " μεταβλητές . Αυτά κατέχουν τις θέσεις των αρχείων ήχου σας . Αντικαταστήστε το " mySound1.wav " και " mySound2.wav " με τα ονόματα διαδρομή δύο αρχεία ήχου στο σκληρό σας δίσκο . Οι δύο τελικές δηλώσεις που τις ιδιότητες URL των δύο ελέγχων στις τιμές που είναι αποθηκευμένες στο sound1 και Sound2 . Αυτό αναγκάζει τους παίκτες πολυμέσων για την αναπαραγωγή των αντίστοιχων ήχων ταυτόχρονα .
Η

7 Πατήστε το πλήκτρο " F5 " για να εκτελέσετε το έργο . Η μορφή εμφανίζεται και οι δύο ήχοι παίζουν ταυτόχρονα .
Η
εικόνων