|
ÓÃVBʵÏÖ¶ÓÁв¥·ÅMP3
|
| ·¢±íÈÕÆÚ£º2005-06-08 23:56:27 | ×÷ÕߣºÁ ³ö´¦£º |
|
¡¡¡¡¶ÓÁв¥·ÅMP3¾ÍÊÇÔÚÎļþÁбí¿òÖÐÒ»´ÎÑ¡Ôñ¶à¸öMP3Îļþ£¬Èò¥·Å³ÌÐò˳ÐòµØ²¥·ÅÑ¡ÔñµÄMP3Îļþ¡£ÕâÊÇÒ»°ãµÄMP3²¥·ÅÆ÷¶¼ÓеŦÄÜ£¬ÈçºÎÔÚVB³ÌÐòÉè¼ÆÖÐÀ´ÊµÏÖ¶ÓÁв¥·ÅMP3µÄ·½·¨ÄØ£¿ ¡¡¡¡Ê×ÏȽéÉÜһϳÌÐòÖÐÒªÓõ½µÄMediaPlayer¿Ø¼þ¡£Ëü²»ÊÇVBµÄ±ê×¼¿Ø¼þ£¬¶øÊÇWindows²Ù×÷ϵͳ×Ô´øµÄÒ»¸ö¶àýÌå¿Ø¼þ¡£´ó¼Ò¿ÉÒÔÔÚVB¿ª·¢»·¾³Öеĵ¥»÷¡°¹¤³Ì¡±¡ú¡°²¿¼þ¡±¶Ô»°¿òÖУ¬Ìí¼ÓMediaPlayer¿Ø¼þ¡£Èç¹ûÒª²¥·ÅMP3£¬ÔòÖÁÉÙÒª6.01ÒÔÉÏ°æ±¾µÄMediaPlayer¿Ø¼þ(Windows98ÖÐ×Ô´øµÄ¾ÍÊÇÕâ¸ö°æ±¾)¡£Èç¹ûÔÚ²¿¼þ¶Ô»°¿òÖÐÕÒ²»µ½MicroSoft Mediaplayer Control£¬ÄÇ¿ÉÄÜÊÇÄãûÓа²×°¸½¼þËùÖ£¬ÕâÐèÒªÔÚϵͳÖа²×°ÏàÓ¦µÄ¸½¼þ¡£ ¡¡¡¡ÕýÒòΪʹÓÃÁËWindows×Ô´øµÄ¿Ø¼þ£¬ËùÒÔ±à³öµÄ³ÌÐòµÄ¿ÉÒÆÖ²ÐԺܺ㬸üΪÖØÒªµÄÊÇ£¬MediaPlayer¿Ø¼þ¿ÉÒÔ²¥·Å°üÀ¨AVI¡¢MOV¡¢WAV¡¢MPG¡¢MP3¡¢M3U¡¢QTµÈµÈÔÚÄÚµÄ28ÖÖ¶àýÌåÊÓƵ¡¢ÒôƵ¸ñʽµÄÎļþ£¬¿Éν¹¦ÄÜÇ¿´ó¡£ ¡¡¡¡Õâ¸ö³ÌÐòÕýÊÇÀûÓÃÁËMediaPlayer¿Ø¼þ¿ÉÒÔ²¥·ÅMP3ºÍM3UÎļþµÄÌØÐÔÀ´ÊµÏÖ¶ÓÁв¥·ÅMP3µÄ¡£ÎÒÔÙ˵һÏÂM3UÎļþ£¬ÕâÖÖÎļþʵ¼ÊÉÏÊÇASCIIÂëÎļþ£¬Èç¹ûÄãÓüÇʱ¾´ò¿ªËü£¬¾Í¿ÉÒÔ·¢ÏÖÎļþµÄÄÚÈÝʵ¼ÊÉϾÍÊǶàýÌåÎļþµÄµØÖ·ÁÐ±í£¬Äܹ»²¥·ÅËüµÄ³ÌÐò»á˳Ðò²¥·ÅÎļþÀïÁгöµÄ¶àýÌåÎļþ¡£ ¡¡¡¡ÏÂÃæ¾ÍÊdzÌÐòµÄʵÏÖ²½Ö裺 ¡¡¡¡Ê×ÏȽ¨Á¢Ò»¸öд°ÌåForm1£¬Ìí¼ÓDriveListBox£¬DirListBox£¬FileListBox¸÷Ò»¸ö£¬CaptionÊôÐÔ·Ö±ðÉèΪDrive1£¬Dir1ºÍFile1£¬ÔÙÌí¼ÓCommandButtonÒÔ¼°MediaPlayer¿Ø¼þ¸÷Ò»¸ö¡£È»ºó±àд´úÂëÈçÏ£º ¡¡¡¡Option Explicit ¡¡¡¡Private Sub Command1_Click() ¡¡¡¡Dim num As Integer ¡¡¡¡Dim filename As String ¡¡¡¡Dim filenum As Integer ¡¡¡¡Dim i As Integer ¡¡¡¡num=File1.ListCount ¡¡¡¡filenum=FreeFile ¡¡¡¡Open ¡åC:filelist.m3u¡å For Output As ££filenum ¡¡¡¡For i=0 To num£1 ¡¡¡¡¡¡If File1.Selected(i) Then ¡¡¡¡¡¡¡¡filename=File1.Path£«¡å¡å£«File1.List(i) ¡¡¡¡¡¡End If ¡¡¡¡¡¡Print ££filenum£¬filename ¡¡¡¡Next ¡¡¡¡Close ££filenum ¡¡¡¡MediaPlayer1.filename=¡åC:filelist.m3u¡å ¡¡¡¡End Sub ¡¡¡¡Private Sub Dir1_Change() ¡¡¡¡File1.Path=Dir1.Path ¡¡¡¡End Sub ¡¡¡¡Private Sub Drive1_Change() ¡¡¡¡Dir1.Path=Drive1.Drive ¡¡¡¡End Sub ¡¡¡¡³ÌÐòÔÚWin98ϵͳÖе÷ÊÔͨ¹ý¡£Ê¹ÓõÄʱºòֻҪѡºÃMP3¸èÇúËùÔÚµÄÎļþ¼Ð£¬ÔÚÎļþ¿òÖÐÓÃShift»òCtrl¼üÑ¡Ôñ¶à¸öÎļþ¼´¿ÉʵÏÖ¶ÓÁв¥·Å¡£ ¡¡¡¡ÔõôÑù£¬¿ìÈ¥±àд×Ô¼ºµÄWinAmp°É¡£ |
¡¾·µ»Ø¶¥²¿¡¿
¡¾´òÓ¡±¾Ò³¡¿
¡¾¹Ø±Õ´°¿Ú¡¿
|
|
|