B4A实现声音的播放MediaPlayer

1. 首先，需在库文件里面选择 Audio

2. 在变量中定义一个 mediaplayer

   Dim MediaPlayer As MediaPlayer

3. 播放 MP3

   Sub PlayMP3(FileName As String,PlayLoop As Boolean)
     MediaPlayer.Initialize'初始化
     MediaPlayer.Load(File.DirAssets,FileName)
     MediaPlayer.Play'播放
     If(PlayLoop = True) Then
       MediaPlayer.Looping=True'True:播放完自动重新开始 False:播放完停下
     End If
     Bol_Play = True
   End Sub

4. 停止播放

   Sub StopMp3()
     If Bol_Play = True Then	MediaPlayer.Stop
     Bol_Play = False
   End Sub