¡¡ ²Ù×÷ϵͳ  °ì¹«  ʵÓÃ֪ʶ  Éè¼Æ  ¿ª·¢  WEB¿ª·¢  ÒÆ¶¯¿ª·¢  Êý¾Ý¿â  Èí¼þ¹¤³Ì  Íø¹Ü  °²È«  ¹ÜÀí  ÐÅÏ¢»¯  ´ðÒÉ  ÇþµÀ 

ÓÃMediaPlayer¿Ø¼þ×öÒ»¸öÍêÈ«ÊôÓÚ×Ô¼ºµÄMP3²¥·ÅÆ÷

2006-9-20¡¡ÍøÓÑÆÀÂÛ 0 Ìõ¡¡µã»÷½øÈëÂÛ̳

¶ÔVB³õѧÕßÀ´Ëµ£¬×öMP3²¥·ÅÆ÷×îΪÄѵÄÊǿؼþÁË£ºÇ§ÐÁÍò¿àÕÒÀ´ÁËÒ»¸ö¿Ø¼þ£¬ÓÃÆðÀ´È´Ò»µãÒ²²»Í´¿ì¡ª¡ª²»ÊÇÓÐʱ¼äÏÞÖÆ£¬¾ÍÊǹ¦Äܲ»ÆëÈ«£¬³ý·ÇÄ㽻Ǯ£¡Æäʵ£¬ÎÒÃDz»±ØÉá½üÇóÔ¶£¬WIN98¾ÍÓÐÒ»¸ö±¦±´£ºMediaPlayer£¡Õâ¸ö¿Ø¼þÖ§³Ö¶àÖÖÒôÀÖ¸ñʽ£¬¶øÇÒ¾ø¶ÔÃâ·Ñ£¬ÓÃËü×ö³öµÄMP3²¥·ÅÆ÷×îºÏÊʲ»¹ýÁË£¡

·½·¨ÈçÏ£º

н¨±ê×¼EXE¹¤³Ì£¬´°Ìå¾ÍÓÃĬÈÏÃû³ÆºÃÁË£¬CaptionΪ¡°ÿÍÁÈËMP3¡±»ò±ðµÄ£¬½«ÆäBorderStyleÊôÐÔÉèΪ1£¬MinButtonÉèΪTrue£»Ìí¼ÓÒ»¸öMediaPlayer¿Ø¼þ¡¢Ò»¸ö¹«¹²¶Ô»°¿òºÍÒ»¸öText¿Ø¼þ£»½ÓÏÂÀ´ÔÚ´°ÌåÉÏ»­Îå¸ö°´Å¥£¬·Ö±ðÃüÃûΪ£ºcmdPlay£¬cmdPause,cmdContinue,cmdNext,cmdStop,CaptionÒÀ´ÎΪ²¥·Å¡¢ÔÝÍ£¡¢¼ÌÐø¡¢ÏÂÒ»Çú¡¢Í£Ö¹¡£ºÃ£¬ÏÂÃæ¾ÍÊDZàд´úÂëÁË£º

''³õʼ»¯³ÌÐò
Private Sub Form_Load()
MediaPlayer1.Visible = False
cmdPlay.BackColor = vbRed
cmdPause.BackColor = vbRed
cmdContinue.BackColor = vbRed
cmdStop.BackColor = vbRed
cmdNext.BackColor = vbRed
cmdContinue.Enabled = False
cmdPause.Enabled = False
cmdStop.Enabled = False
Text1.Text = "±¾²¥·ÅÆ÷Ö§³Ö¸÷ÖÖÒôÀÖ¸ñʽ¡£Ð»Ð»Ê¹ÓᣠÍÁÈË¡£"
Text1.BackColor = vbBlack
Text1.ForeColor = vbYellow
End Sub

''²¥·Å
Private Sub cmdPlay_Click()
Text1.SetFocus
On Error GoTo handler
With CommonDialog1
''.Flags = cdlOFNAllowMultiselect
.InitDir = App.Path
.Filter = "Midi Files(*.mid)|*.mid|MP3 Files(*.mp3)|*.mp3|Wave Filse(*.wav)|*.wav|(*.m3u)|*.m3u"
.FileName = ""
.ShowOpen
End With
MediaPlayer1.FileName = CommonDialog1.FileName
MediaPlayer1.Play
Text1.Text = " ÏÖÔÚÕýÔÚ²¥·Å£º" & CommonDialog1.FileName
cmdPlay.Enabled = False
cmdPause.Enabled = True
cmdContinue.Enabled = False
cmdStop.Enabled = True
Exit Sub
handler:
MsgBox "δѡÔñýÌåÎļþ¡£", vbOKOnly, "´íÎóÐÅÏ¢"
End Sub

''ÔÝÍ£²¥·Å
Private Sub cmdPause_Click()
Text1.SetFocus
MediaPlayer1.Pause
cmdPause.Enabled = False
cmdContinue.Enabled = True
End Sub

''¼ÌÐø²¥·Å
Private Sub cmdContinue_Click()
Text1.SetFocus
MediaPlayer1.Play
cmdPlay.Enabled = False
cmdPause.Enabled = True
cmdContinue.Enabled = False
End Sub

''²¥·ÅÏÂÒ»Çú
Private Sub cmdNext_Click()
On Error GoTo NextErr ''²¥·Å·Çm3uÎļþʱֻÄܲ¥·Åµ¥Çú£¬¹ÊÉèÖóö´í´¦Àí
MediaPlayer1.Next
Exit Sub
NextErr:
MsgBox "ÏÖÔÚÕýÔÚ²¥·Åµ¥Çú£¬Ã»ÓÐÒ»ÏÂÇú¡£", vbOKOnly, "³ö´íÐÅÏ¢"
End Sub

''Í£Ö¹²¥·Å
Private Sub cmdStop_Click()
MediaPlayer1.Stop
cmdPlay.Enabled = True
cmdPause.Enabled = False
cmdContinue.Enabled = False
cmdStop.Enabled = False
End Sub

ÔõôÑù£¿´úÂë²»Ëã¶à£¬Ò»¸ö×Ô¼ºµÄMP3²¥·ÅÆ÷¾Í×ö³ÉÁË£¡Õâ¸öMP3²¥·ÅÆ÷Ö»Õ¼Óþß2£¥µÄ×ÊÔ´£¬²¥·ÅÖÊÁ¿²¢²»¼ûµÃ±ÈWinamp²î£¬ÊDz»ÊǺÜÓÕÈË£¿

˵Ã÷£º
1.*.m3uÎļþÓ¦¸ÃÊÇ´ó¼ÒËùÈÏʶµÄ£¬¾ÍÊÇWinampÖ®ÀàµÄ²¥·ÅÆ÷µÄ²¥·ÅÎļþÁÐ±í£¬ÎÒÃÇÍêÈ«¿ÉÒÔÓüÇʱ¾±à¼­Ëü£¨ò¿ªÒ»¸ö´ËÀàµÄÎļþ¿´¿´£¬Ã»Ê²Ã´ÉñÃØµÄ£©¡?
2.ÒÔÉϳÌÐòÔÚVB6.0£¬Win98µÚ¶þ°æÏµ÷ÊÔͨ¹ý¡£

ÒÑÓÐ 0 λ¶Ô´ËÎÄÕ¸ÐÐËȤµÄÍøÓÑ·¢²¼ÁË¿´·¨¡¡   
ÎÒÀ´ÆÀÁ½¾ä Óû§Ãû£º ÃÜÂ룺
  ÄäÃû·¢±í
½ñÈÕÍÆ¼ö
¼¼ÊõÎÄ¿â(¹²ÓÐ 45972 ƪÎÄÕÂ)
²Ù×÷ϵͳ
°ì¹«Èí¼þ
ʵÓÃ֪ʶ
ÍøÂç¹ÜÀí
Èí¼þ¿ª·¢
WEB¿ª·¢
Èí¼þ¹¤³Ì
Êý¾Ý¿â
Éè¼ÆÔÚÏß
ÐÅÏ¢°²È«
ÐÐÒµÐÅÏ¢»¯
¹ÜÀíÐÅÏ¢»¯
ÒÆ¶¯¿ª·¢
ÖØµãÍÆ¼ö
µç×ÓÔÓÖ¾¶©ÔÄ
µã»÷µç×ÓÔÓÖ¾Ãû³Æ²é¿´Ñù¿¯
ÊäÈëE-mailµØÖ·¼´¿É¶©ÔÄ
E-mail