Πώς να χρησιμοποιήσετε MMControl σε Visual Basic

Η Microsoft Multimedia ελέγχου , ή MMControl , είναι ένα Visual Basic εργαλείο που παίζει αρχεία πολυμέσων . Δεν θα βρείτε MMControl να είναι μία από τις προεπιλεγμένες εργαλεία στην εργαλειοθήκη σας , αλλά μπορείτε να το προσθέσετε στη λίστα των ελέγχων με τη λίστα Components . Μπορείτε να προσθέσετε MMControl έτσι μπορείτε να ενσωματώσετε τα αρχεία ήχου ή βίντεο στο έργο σας . Ωστόσο , MMControl δέχεται μόνο ένα αρχείο κάθε φορά , οπότε αν θέλετε να δημιουργήσετε το δικό σας MP3 player , θα πρέπει να χρησιμοποιήσετε έναν πίνακα για να αποθηκεύσετε τη λίστα κομματιών σας . Οδηγίες
Η

1 Ανοίξτε ένα έργο της Visual Basic . Κάντε κλικ στο " Project" από το μενού , και επιλέξτε "Στοιχεία ". Μετακινηθείτε προς τα κάτω για να "Microsoft Multimedia ελέγχου 6.0 , " και κάντε διπλό κλικ για να προσθέσετε ένα πλαίσιο ελέγχου για την επιλογή . Κάντε κλικ στο " OK " για να κλείσετε το παράθυρο Components . Αυτό προσθέτει MMControl στην εργαλειοθήκη σας . 2

Κάντε διπλό κλικ στο εργαλείο MMControl στην εργαλειοθήκη για να προσθέσετε ένα στη φόρμα σας . Κάντε κλικ και σύρετε το στοιχείο ελέγχου σε ένα σημείο της φόρμας όπου το χρειάζεστε .
Εικόνων 3

Ανοίξτε το παράθυρο κώδικα . Πληκτρολογήστε "Dim Tracklist ( 4 ) Όπως String " στην κορυφή . Αυτό θα δημιουργήσει μια σειρά που θα κρατήσει πέντε κομμάτια ( αριθμημένες μηδέν έως τέσσερα ) . Πληκτρολογήστε "Dim αριθμός του κομματιού ως ακέραιος" για να δημιουργήσετε μια μεταβλητή μετρητή .
Η

4 Ανοίξτε το " Form_Load ( ) " λειτουργία. Πληκτρολογήστε " Tracklist ( 0 ) = file_path " για να φορτώσετε το πρώτο σας κομμάτι στη σειρά σας , όπου " file_path " είναι η πραγματική θέση του αρχείου MP3 στον υπολογιστή σας . Κάνετε αυτό και πάλι για " track ( Λίστα ( 1 )" σε " Tracklist ( 4 ) . "
5

Τύπος " MMControl1.Command =" Άνοιγμα " " στο " Form_Load ( ) " λειτουργία για να ανοίξει η συσκευή όταν το πρόγραμμα ξεκινάει . Τύπος " αριθμός του κομματιού = 0 " στην επόμενη γραμμή και " MMControl1.FileName = tracklist ( αριθμός του κομματιού ) " στη γραμμή μετά από αυτό . Πληκτρολογήστε " MMControl.Command = " Play " στην τελευταία γραμμή στη λειτουργία
Η 6 .

Ανοίξτε τη λειτουργία " Form_Unload " και πληκτρολογήστε " MMControl.Command = " Κλείσιμο " " για να σταματήσει τον έλεγχο , όταν τελειώνει το πρόγραμμά σας .
Η 7

Ανοίξτε το . λειτουργία " MMControl1_NextClick " Πληκτρολογήστε τις ακόλουθες γραμμές :

MMControl1.Command = " Stop"

Αν αριθμός του κομματιού = 4 τότε

αριθμός του κομματιού = 0

Else

αριθμός του κομματιού = αριθμός του κομματιού + 1

End If

MMControl1.FileName = λίστα ( αριθμός του κομματιού )

MMControl1.Command = "Άνοιγμα "

MMControl1.Command = " Play"
8

Ανοίξτε τη λειτουργία " MMControl1_PrevClick " Πληκτρολογήστε τις ακόλουθες γραμμές : .

MMControl1.Command = " Stop"

Αν αριθμός του κομματιού = 0 τότε

αριθμός του κομματιού = 4

Else

αριθμός του κομματιού = αριθμός του κομματιού - 1

End If

MMControl1.FileName = λίστα ( αριθμός του κομματιού )

MMControl1.Command = "Άνοιγμα "

MMControl1.Command = "Play "
Η 9

Πατήστε " F5 " για να ξεκινήσετε το πρόγραμμά σας και να ακούσετε σε MP3s σας .
Η
εικόνων