readme.txt

一个简易的MP3播放器。虽然界面不是很好

好了承蒙版主的帮助经过两天的忙碌，我终于利用mp3play.ocx控件编出了一个
播放MP3 的程序，OK！虽然界面不是很好，但感觉功能还可以。在此向大家作
个介绍，因为我的程序逻辑性比较差，而且里面的注释也比较少，在这里我作
一个简单的介绍，希望能对大家有所帮助，有什么问题请与我联系，我的信箱
[e-mail],QQ是10207375,谢谢！！
    首先对mp3play.ocx作个介绍，利用此介绍大家万一看不懂我的程序，可以
利用这个自己编自己的mp3播放程序。在我的程序里mp3play.ocx的名字是mp
    在form_load里加入下面的代码
Dim MP3Pass As String
  MP3Pass = mp.Authorize("LightBringer", "1441658209")
    它可以给你完成控件的注册。
    Dim mpopen As Integer
    mpopen = Mp.Open(mp3str, "")  mpstr是要播放的mp3歌曲的路径到文件名
    Mp.Play   开始播放
    mp.pause  暂停
    mp.stop   停止播放，此时触发控件的threadended事件，在这个事件里加
代码可以实现歌曲的连续播放。看大家的想像力了！！
    Dim pvol As Integer
    dim zuoshengdao as integer
    dim youshengdao as integer
    pvol = Form1.Mp.SetVolumeP(zuoshengdao, youshengdao) '////控制左右声道
    上面的代码可以实现调节声音大小。
    Dim pvel As Variant
    Dim i As Integer
    pvel = Mp.SetSpeed(i)  '控制播放速度，值越大越慢100是比较正常的
    dim i as integer
    Mp.Seek  i 'seek 方法可以实现在一首歌曲里的随机播放。
 i表示的是歌曲的帧数，注意不要超过歌曲的最大帧数！！
    
    控件的actframe事件也是很有用的，在里面加入下面的代
     (dim seeking as integer)具体在哪里定义自己决定
       seeking = ActFrame '---可以快进快退了
   Dim AllSecGx As String
   Dim MinGx As String
   Dim SecGx As String
   Dim nLen
   seeking = ActFrame '---可以快进快退了
   
   AllSecGx = (ActFrame * Mp.MsPerFrame) \ 1000
   MinGx = str$(AllSecGx \ 60)
       
       If Len(MinGx) < 3 Then
          MinGx = "0" + Right(MinGx, 1)
       Else
          MinGx = Right(MinGx, 2)
       End If
   SecGx = str$(AllSecGx Mod 60)
         If Len(SecGx) < 3 Then
            SecGx = "0" + Right(SecGx, 1)
         Else
            SecGx = Right(SecGx, 2)
         End If
Text1 = "00:" + MinGx + ":" + SecGx
'////text1最终显示的是歌曲已播放的时间
   nLen = ActFrame / Mp.FrameCount '///不知什么用处
   Text3 = ActFrame '/// 显示当前播放的真数
   Text4 = Mp.FrameCount '///歌曲总真数
                 '////每秒播放的帧数 mp.MsPerFrame

     在快进按钮里加入
     mp.seek  seeking+255
     就可以了，快退就不用说了
上面知道了歌曲的总帧数，在歌曲随机播放时不 要超过总帧数
   歌曲的总时间在ToToTime()里，
     变量showtime就是歌曲总时间，
    Form1.Text5 = str$(Form1.Mp.SampleFrequency \ 1000) + "kHz"
      歌曲采样频率
    Form1.Text6 = str$(Form1.Mp.BitRate \ 1000) + "kbps"
      歌曲传输速率
OK,mp3play.ocx的使用方法介绍完了。
有什么问题请与我联系，我的信箱
[e-mail],QQ是10207375,谢谢！！