»áÔ±£º ÃÜÂ룺 ¡¡Ãâ·Ñ×¢²á | Íü¼ÇÃÜÂë | »áÔ±µÇ¼ ÍøÒ³¹¦ÄÜ£º ¼ÓÈëÊÕ²Ø ÉèΪÊ×Ò³ ÍøÕ¾ËÑË÷  
 °²È«¼¼Êõ¼¼ÊõÎĵµ
  ¡¤ °²È«ÅäÖÆ
  ¡¤ ¹¤¾ß½éÉÜ
  ¡¤ ºÚ¿Í½Ìѧ
  ¡¤ ·À»ðǽ
  ¡¤ Â©¶´·ÖÎö
  ¡¤ ÆƽâרÌâ
  ¡¤ ºÚ¿Í±à³Ì
  ¡¤ ÈëÇÖ¼ì²â
 °²È«¼¼ÊõÂÛ̳
  ¡¤ °²È«ÅäÖÆ
  ¡¤ ¹¤¾ß½éÉÜ
  ¡¤ ·À»ðǽ
  ¡¤ ºÚ¿ÍÈëÇÖ
  ¡¤ Â©¶´¼ì²â
  ¡¤ Æƽⷽ·¨
  ¡¤ É±¶¾×¨Çø
 °²È«¼¼Êõ¹¤¾ßÏÂÔØ
  ¡¤ É¨Ã蹤¾ß
  ¡¤ ¹¥»÷³ÌÐò
  ¡¤ ºóÃÅľÂí
  ¡¤ ¾Ü¾ø·þÎñ
  ¡¤ ¿ÚÁîÆƽâ
  ¡¤ ´úÀí³ÌÐò
  ¡¤ ·À»ðǽ
  ¡¤ ¼ÓÃܽâÃÜ
  ¡¤ ÈëÇÖ¼ì²â
  ¡¤ ¹¥·ÀÑÝʾ
¼¼ÊõÎĵµ > VBÎĵµ > ¶àýÌå
ÓÃ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°É¡£

¡¾·µ»Ø¶¥²¿¡¿ ¡¾´òÓ¡±¾Ò³¡¿ ¡¾¹Ø±Õ´°¿Ú¡¿

¹ØÓÚÎÒÃÇ / ¸øÎÒÁôÑÔ / °æȨ¾Ù±¨ / Òâ¼û½¨Òé / ÍøÕ¾±à³ÌQQȺ   
Copyright ©2003- 2024 Lihuasoft.net webmaster(at)lihuasoft.net ¼ÓÔØʱ¼ä 0.00156