Foxtable(狐表)用户栏目专家坐堂 → 数据提取问题


  共有10263人关注过本帖树形打印复制链接

主题:数据提取问题

帅哥哟,离线,有人找我吗?
jhxb8821
  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:598 积分:4442 威望:0 精华:0 注册:2016/4/15 22:24:00
继续播放代码  发帖心情 Post By:2022/4/21 16:33:00 [只看该作者]

目前,播放后,按暂停,就停止播放,再按播放,就从头开始,如何实现“继续播放”

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105473 积分:536350 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/4/21 16:42:00 [只看该作者]

播放按钮判断如果url有值,就不要重新赋值了,直接播放即可

 回到顶部
帅哥哟,离线,有人找我吗?
jhxb8821
  13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:598 积分:4442 威望:0 精华:0 注册:2016/4/15 22:24:00
代码  发帖心情 Post By:2022/4/21 16:53:00 [只看该作者]

双击表行,出错,提示DoubleClick未设置对象变量或with变量;下面代码有错

If e.Col.Name = "本地音视频" Then

    e.Cancel = True

    Forms("音视频播放窗口").Open()

    If e.Row.IsNull("本地音视频") = False Then

        Dim url As String = ProjectPath & "Attachments\" & e.Row("本地音视频")

        Forms("音视频播放窗口").Controls("Panel1").Basecontrol.controls("mplayer").url = url

        Dim ls As WinForm.ListBox = Forms("音视频播放窗口").Controls("ListBox1")

        ls.Items.Add(url)

    End If

End If


 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105473 积分:536350 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/4/21 17:00:00 [只看该作者]

判断一下文件是否存在:http://www.foxtable.com/webhelp/topics/0337.htm

 回到顶部
帅哥哟,离线,有人找我吗?
jhxb8821
  15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:598 积分:4442 威望:0 精华:0 注册:2016/4/15 22:24:00
请教老师  发帖心情 Post By:2022/4/21 17:11:00 [只看该作者]

我这样写不行,我水平太差了,麻烦蓝老师将这处,和继续播放的代码帮我写一些,非常感谢
If e.Col.Name = "本地音视频" Then
    e.Cancel = True
    Forms("音视频播放窗口").Open()
    If FileSys.FileExists("本地音视频") Then
    Messagebox.Show("文件已经存在!", "提示")
ElseIf e.Row.IsNull("本地音视频") = False Then
        Dim url As String = ProjectPath & "Attachments\" & e.Row("本地音视频")
        Forms("音视频播放窗口").Controls("Panel1").Basecontrol.controls("mplayer").url = url
        Dim ls As WinForm.ListBox = Forms("音视频播放窗口").Controls("ListBox1")
        ls.Items.Add(url)
    End If
End If

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105473 积分:536350 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/4/21 17:13:00 [只看该作者]

If e.Col.Name = "本地音视频" Then
    e.Cancel = True
    Forms("音视频播放窗口").Open()
    If e.Row.IsNull("本地音视频") = False Then
        Dim url As String = ProjectPath & "Attachments\" & e.Row("本地音视频")
If FileSys.FileExists(url) Then
        Forms("音视频播放窗口").Controls("Panel1").Basecontrol.controls("mplayer").url = url
        Dim ls As WinForm.ListBox = Forms("音视频播放窗口").Controls("ListBox1")
        ls.Items.Add(url)
end if
    End If
End If

 回到顶部
帅哥哟,离线,有人找我吗?
jhxb8821
  17楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:598 积分:4442 威望:0 精华:0 注册:2016/4/15 22:24:00
代码  发帖心情 Post By:2022/4/21 17:28:00 [只看该作者]

”继续播放“的代码也请帮我写一下,非常感谢

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  18楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105473 积分:536350 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/4/21 17:29:00 [只看该作者]

去看看编程基础,学一下自己写,写不通的在发上来改

 回到顶部
帅哥哟,离线,有人找我吗?
jhxb8821
  19楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:598 积分:4442 威望:0 精华:0 注册:2016/4/15 22:24:00
代码  发帖心情 Post By:2022/4/21 17:53:00 [只看该作者]

继续播放代码,这样写好像有问题,请修改
Dim url As String = ProjectPath & "Attachments\" & e.Row("本地音视频")
Forms("音视频播放窗口").Controls("Panel1").Basecontrol.controls("mplayer").url = url 
If url Is Nothing Then
e.Form.Controls("Panel1").Basecontrol.controls("mplayer").url = play
e.Form.Controls("Panel1").Basecontrol.controls("mplayer").ctlcontrols.play
Else
e.Form.Controls("Panel1").Basecontrol.controls("mplayer").ctlcontrols.play
End If

 回到顶部
帅哥哟,离线,有人找我吗?
jhxb8821
  20楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:598 积分:4442 威望:0 精华:0 注册:2016/4/15 22:24:00
解决了继续播放问题  发帖心情 Post By:2022/4/21 18:21:00 [只看该作者]

不用判断了。就这一句代码就OK了
e.Form.Controls("Panel1").Basecontrol.controls("mplayer").ctlcontrols.play

 回到顶部
总数 89 上一页 1 2 3 4 5 6 7 8 9 下一页