Dim sStatus As String * 255
' 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造一个视频播放器?。壳蟾呤种附?/h2>独立开发一个全新的播放器应该很难,如果内嵌一个其他的应该还不算难,自己网上搜搜 , 应该有类似的demo
求一个用vb.net语言和visual studio做网页的教程视频推荐一本书《ASP.NET 4入门经典》,清华大学出版社出版的 。里面例子都有C#及vb.net的例子代码 。
哪里有VB.NET的视频教程在这里面搜索就有,这是个国内非常有名的视频教学网站,种类很齐全~!
asp.net中用c#如何制作视频网站1.找一个支持视频播放控件,嵌套在网页中!
2.然后将那些电影的文件名存到数据库中!
之后你读取现在在网页中,添加一个链接 , 传一个电影的文件名,播放器的文件播放地址就是电影的在服务器的路径就可以了!
vbnet制作网页视频的介绍就聊到这里吧 , 感谢你花时间阅读本站内容,更多关于、vbnet制作网页视频的信息别忘了在本站进行查找喔 。
推荐阅读
- 虎牙直播奇怪君,虎牙奇怪君王者荣耀
- 无法运行在网页上运行JavaScript,浏览器无法打开jsp
- flutter布局widget,flutter tableview
- oracle转大数据方案,oracle大数据迁移
- linux看每页命令 linux查看全部命令
- 老白干酒企业的erp系统,老白干酒企业怎么样
- 怀旧服飞行射击游戏视频,怀旧服飞行器
- rest服务器,rest服务器异常
- php多用户怎么储存数据 php支持多进程吗