现在音乐播放软件对音乐版权管控很严格,即便你的手机上放置了已下载的某知名歌星的MP3音乐,但你的酷狗不是会员,只能播放前面一小部分的音乐,那么当你掌握MP3音乐播放的代码后,可尝试自己动手编写一款MP3播放器。只例程只讲解了播放的核心代码,音乐文件列表的显示,面要涉及其它知识,今后有空会讲这方面的知识。
本例程所涉及到的库
Main窗体核心代码如下:
Sub Globals
Dim MediaPlayer As MediaPlayer
End Sub
Sub Activity_Create(FirstTime As Boolean)
MediaPlayer.Initialize'初始化
MediaPlayer.Load(File.DirRootExternal,"test.mp3")'载入媒体文件
MediaPlayer.Play'播放
MediaPlayer.Looping=True'True:播放完自动重新开始 False:播放完停下
'在有耳机的情况下可以用这个方法分辨设置左右两边的声音,
'从0.00最小到1.00最大(个别手机有2个扬声器的,大概也能- -).
MediaPlayer.SetVolume(1.00,1.00)
End Sub