重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
工具箱里没有就在"工具选项"----"COM组件"-------"添加Mediaplaye"但大多数组件都是C盘系统文件,您应该确保电脑里有这个文件的DLL格式文件,不知对不对哦,请您参考!
创新互联建站专注于太子河网站建设服务及定制,我们拥有丰富的企业做网站经验。 热诚为您提供太子河营销型网站建设,太子河网站制作、太子河网页设计、太子河网站官网定制、成都微信小程序服务,打造太子河网络公司原创品牌,更为您提供太子河网站排名全网营销落地服务。
工具栏里选择"添加,删除组件"
选择com组件
选择"Windows Media Player "
然后在界面上加入这个组件
代码
Private Sub Button1_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) _
Handles Button1.Click
Const DATA_FILE_EXTENSION As String = ".mp3"
Dim dlgFileDialog As New OpenFileDialog
With dlgFileDialog
.Filter = DATA_FILE_EXTENSION _
" files (*" DATA_FILE_EXTENSION "|*" DATA_FILE_EXTENSION
.FilterIndex = 1
.RestoreDirectory = True
If .ShowDialog() = DialogResult.OK Then
'Play the sound file
Me.AxWindowsMediaPlayer1.URL = dlgFileDialog.FileName
End If
End With
End Sub
参考资料中可以看到很详细的步骤
My.Computer.Audio.Play("SoundFile.wav")
SoundFile.wav是你要播放的声音文件的路径
方法只是添加一个播放器控件,再改它的属性就可以了.
添加播放器控件的方法:在窗体设计模式中,右键单击”工具箱”->”WINDOWS 窗体”,选择”添加/移除项”,再选择”COM组件”标签找到”WINDOWS MEDIA PLAYER”项,选上.最后把添加了控件放到窗体中就行了.
我没有ATI格式的文件也不知道MEDIA PLAYER能放不,不行的话用别的控件试试,比如REALPLAYER.
邮件我已经发过去了.