| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 在foxtable中播放视屏 怎么判断panel中的mplayer有无内容？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=159784) |
| -- 作者：李孝春 -- 发布时间：2021/1/8 16:00:00 -- 在foxtable中播放视屏 怎么判断panel中的mplayer有无内容？ 在foxtable中播放视屏 怎么判断panel中的mplayer有无内容？ 暂停播放的代码如下： e.Form.Controls("Panel2").Basecontrol.controls("mplayer").ctlcontrols.pause 怎么实现，当mplayer没有内容时，提示需要加载文件，当有内容时，运行上述暂停播放代码 参照例子： http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=53572&authorid=0&page=0&star=1
|
| -- 作者：有点蓝 -- 发布时间：2021/1/8 16:04:00 -- https://www.baidu.com/baidu?word=vb.net%20mediaplayer https://www.cnblogs.com/chen-lhx/p/6394782.html |
| -- 作者：李孝春 -- 发布时间：2021/1/8 16:47:00 -- 回复：（有点蓝）https://www.baidu.com/baidu?word=v... .NET Framework 版本：4.0.30319.42000 Foxtable 版本：2020.5.29.8 错误所在事件：窗口,文件管理,停止播放,Click 详细错误信息： 引发类型为“System.Windows.Forms.AxHost+InvalidActiveXStateException”的异常。 当播放器没有视频或者没有打开的时候 运行一楼代码出现这个错误 想在运行暂停代码之前增加一个判断 如果没有视频或者没有打开时 提示添加文件 反之就运行暂停代码 网上我看了一下 没有看明白 If e.Form.Controls("Panel2").Basecontrol.controls("mplayer").url <>"" Then e.Form.Controls("Panel2").Basecontrol.controls("mplayer").ctlcontrols.stop End If 写了这个代码 一样会提示上面的错误 |
| -- 作者：有点蓝 -- 发布时间：2021/1/8 16:59:00 -- http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=53572&authorid=0&page=0&star=2，看13楼，16楼 |
| -- 作者：李孝春 -- 发布时间：2021/1/8 17:48:00 -- 回复：（有点蓝）http://www.foxtable.com/bbs/dispbb... 如果当前已经打开过 视频 再次打开别的视频会自动暂停当前已经打开的视频 如果当前没有打开过视频 会出现错误提示 以下内容是专门发给有点蓝浏览 .NET Framework 版本：4.0.30319.42000 Foxtable 版本：2020.5.29.8 错误所在事件：窗口,文件管理,停止播放,Click 详细错误信息： 引发类型为“System.Windows.Forms.AxHost+InvalidActiveXStateException”的异常。 计时器代码： e.Form.TimerEnabled = False Dim mplayer As new AxWMPLib.AxWindowsMediaPlayer() \'MessageBox.Show(play) 停止播放按钮代码： e.Form.Controls("Panel2").Basecontrol.controls("mplayer").ctlcontrols.pause 双击打开文件代码： Dim pc2 As WinForm.PictureBox = Forms("文件管理").Controls("PictureBox1") Dim kp As WinForm.TabControl = Forms("文件管理").Controls("TabControl1") Dim web1 As WinForm.WebBrowser = e.Form.Controls("WebBrowser1") If Tables("文件附件").Current Is Nothing Then Return Else Dim dr As DataRow = Tables("文件附件").Current.DataRow Dim fl As String = ProjectPath & "Reports\\" & dr("文件名") wjdz=fl If FileSys.FileExists(fl) AndAlso CRCCheckFile(fl) = dr.SQLGetValue("CRC值") Then \'如果本地存在同名文件且CRC校验值相同 \'则直接使用本地文件 …… Else If fl.EndsWith(".mp4") OrElse fl.EndsWith(".wmv") OrElse fl.EndsWith(".mpg") OrElse fl.EndsWith(".avi") OrElse fl.EndsWith(".m2ts") OrElse fl.EndsWith(".mp3") Then kp.SelectedIndex=3 e.Form.Controls("Panel2").Basecontrol.controls("mplayer").url = fl …… End If Else \'否则从数据库提取文件 If dr.SQLLoadFile("附件",fl) = False Then \'如果提取文件失败 Messagebox.Show("附件提取失败,可能并不存在附件!", "提示", MessageBoxButtons.OK, MessageBoxIcon.Information) Return Else …… e.Form.Controls("Panel2").Basecontrol.controls("mplayer").url = fl …… End If End If End If End If Dim zt As WinForm.Button = Forms("文件管理").Controls("停止播放") zt.PerformClick 红色部分会报错： [此贴子已经被作者于2021/1/8 17:56:45编辑过]
|
| -- 作者：有点蓝 -- 发布时间：2021/1/9 9:59:00 -- e.Form.TimerEnabled = False Dim mplayer As new AxWMPLib.AxWindowsMediaPlayer() ctype(mplayer,System.ComponentModel.ISupportInitialize).BeginInit() mplayer.name = "mplayer" mplayer.Dock = System.Windows.Forms.DockStyle.Fill e.Form.Controls("Panel2").Basecontrol.controls.add(mplayer) ctype(mplayer,System.ComponentModel.ISupportInitialize).EndInit()
|