VB高手经过看下拉。小弟有段代码想请教各位
来源:百度知道 编辑:UC知道 时间:2024/05/31 04:40:06
CommonDialog1.FileName=""
CommonDialog1.DialogTitle="选择要播放的文件”
CommonDialog1.Filter="MP3|*.mp3|WAV|*.wav"
CommonDialog1.ShowOpen
Dim strFileName As String
If CommonDialog1.FileName <>"" Then
strFileName =CommonDialog1.FileName
WindowsMediePlayer1.URL=strFileName
End If
这段代码放到VB里提示 If CommonDialog1.FileName <>"" Then 出错 缺少"then或者goto"运行提示语法错误.高手请指教指教啊
-------------------------------------------------------------------------------------------------------------------
1。工具栏-》外接程序-》外接程序管理器-》加载 VB资源管理器
2。点击工具栏上的VB资源管理器
3。点击“添加自定义资源”,选择你要加载的mp3
这时你就看到mp3文件已经被作为资源载入了VB,引用这个资源的方法是使用函数
LoadRes(对象引用名)
,引用这个资源的方法是使用函数 怎么引用啊?
要使用什么函数?
------------------------------------------------------------
万分感谢拉··!!!!
CommonDialog1.DialogTitle="选择要播放的文件”
CommonDialog1.Filter="MP3|*.mp3|WAV|*.wav"
CommonDialog1.ShowOpen
Dim strFileName As String
If CommonDialog1.FileName <>"" Then
strFileName =CommonDialog1.FileName
WindowsMediePlayer1.URL=strFileName
End If
这段代码放到VB里提示 If CommonDialog1.FileName <>"" Then 出错 缺少"then或者goto"运行提示语法错误.高手请指教指教啊
-------------------------------------------------------------------------------------------------------------------
1。工具栏-》外接程序-》外接程序管理器-》加载 VB资源管理器
2。点击工具栏上的VB资源管理器
3。点击“添加自定义资源”,选择你要加载的mp3
这时你就看到mp3文件已经被作为资源载入了VB,引用这个资源的方法是使用函数
LoadRes(对象引用名)
,引用这个资源的方法是使用函数 怎么引用啊?
要使用什么函数?
------------------------------------------------------------
万分感谢拉··!!!!
'有一个地方出错,其他不变,改正如下:
CommonDialog1.FileName = ""
CommonDialog1.DialogTitle = "选择要播放的文件” "
CommonDialog1.Filter = "MP3|*.mp3|WAV|*.wav"
CommonDialog1.ShowOpen
Dim strFileName As String
If CommonDialog1.FileName <> "" Then
strFileName = CommonDialog1.FileName
WindowsMediaPlayer1.URL = strFileName '修改处
''WindowsMediePlayer1.URL = strFileName'原句错了
end if
把mp3文件复制到'bin\debug\'
在服务资源管理器窗口里点一下刷新.
在播放时直接运行语句:
WindowsMediaPlayer1.URL = strFileName
' strFileName不要路径,只要文件名.
这样就可以了,不用那么麻烦的吧^0^