以下内容为程序代码:

1 e.Form.Controls("SplitContainer4").Visible = True
2 e.Form.Controls("Button2").Visible = False
3 \'背景音乐播放
4 Dim dr As DataRow
5 dr = DataTables("背景音乐").DataRows(0)
6 Dim mplayer As New AxWMPLib.AxWindowsMediaPlayer()
7 mplayer.currentPlaylist = mplayer.NewPlaylist("aa", "")
8 mplayer.name = "mplayer"
9 mplayer.Dock = System.Windows.Forms.DockStyle.Fill
10 e.Form.Controls("背景播放器容器").Basecontrol.controls.add(mplayer)
11 For Each dr1 As DataRow In DataTables("背景音乐").DataRows
12 Dim fn As String= dr1("文件名")
13 mplayer.currentPlaylist.appendItem(mplayer.NewMedia(fn))
14 Next
15 \'mplayer.url = ProjectPath & "背景音乐\\" & dr("文件名")
16 mplayer.Settings.setMode("autoRewind",True)
17 mplayer.Ctlcontrols.play()