VB开发安卓程序_例程8播放MP3文件

现在音乐播放软件对音乐版权管控很严格，即便你的手机上放置了已下载的某知名歌星的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