vb.net影音播放器 vbs播放音乐( 三 )


' If there is no file currently opened, then exit the subroutine
If sAlias = "" Then Exit Property
nReturn = mciSendString("Status "sAlias" mode", sStatus, 255, 0)
nLength = InStr(sStatus, Chr$(0))
Status = Left$(sStatus, nLength - 1)
End Property
//窗体fm
Dim m As New Mmedia
Dim fn
Private Sub Command1_Click()
On Error GoTo r
dlg.ShowOpen
fn = dlg.Filename
m.mmOpen fn
r:
If Err Then MsgBox Err.Description
End Sub
Private Sub Command2_Click()
On Error GoTo rp
m.mmPlay
rp:
If Err Then MsgBox Err.Description
End Sub
Private Sub Command3_Click()
On Error GoTo rap
m.mmPause
rap:
If Err Then MsgBox Err.Description
End Sub
Private Sub Command4_Click()
On Error GoTo racp
m.mmStop
racp:
If Err Then MsgBox Err.Description
End Sub
vb.net中如何播放声音,是要什么控件嘛?My.Computer.Audio.Play("SoundFile.wav")
SoundFile.wav是你要播放的声音文件的路径
vb.net中的mediaplay控件播放视频有图像无声音 , 何解?该控件调用的是你的电脑上的播放器
Windows Media Player本身支持的视频格式很少(有.wmv、.wvx、.asf、.asx、.wpl、.wm、.wmx、.wmd 和 .wmz.vob、.avi、.mpeg、.mpg、.mpe、.m1v、.mp2、.mpv2、.mp2v 和 .mpa ),而且您的计算机上面必须安装很多解码器才能完全支持这些格式,所以您下载的电影有可能不能播放 。
如果您想让Windows Media Player支持不仅以上格式,而且支持几乎所有视频格式,就请您下载安装完美解码这款软件 , 安装完后 , 在Windows Media Player的主菜单(鼠标右键Windows Media Player窗口的顶端)当中选择工具--选项--DVD选项卡--高级--在弹出来的对话框中选择“编码解码器”选项卡,在右面一侧把显示“未启用”字样的全部改为“libavcodec”字样,单击确定,然后,您会发现Windows Media Player支持很多格式(包括播放DVD、3GP)
【vb.net影音播放器 vbs播放音乐】vb.net影音播放器的介绍就聊到这里吧,感谢你花时间阅读本站内容,更多关于vbs播放音乐、vb.net影音播放器的信息别忘了在本站进行查找喔 。

推荐阅读