以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]如何隐藏图片浏览器全屏中的上一条下一跳按钮？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=89313)
--  作者：18523982317
--  发布时间：2016/8/18 23:17:00
--  [求助]如何隐藏图片浏览器全屏中的上一条下一跳按钮？
[求助]如何隐藏图片浏览器全屏中的上一条下一跳按钮？
--  作者：大红袍
--  发布时间：2016/8/18 23:22:00
--  
 这个控制不了，除非你自己做一个浏览图片的窗口。
--  作者：18523982317
--  发布时间：2016/8/19 9:32:00
--  
以下是引用大红袍在2016/8/18 23:22:00的发言：
 这个控制不了，除非你自己做一个浏览图片的窗口。

我自己做了个上传，删除，突然有发现全屏缩放什么的比较好用，结果全屏里面有个上一条下一条 ，很烦人。。。
有木有办法控制当前表  无法选择其他行 只能固定在当前行？
或者当点击全屏的时候   tables做个筛选只剩下当前行。。。。

[此贴子已经被作者于2016/8/19 9:33:57编辑过]
--  作者：Hyphen
--  发布时间：2016/8/19 10:23:00
--  
筛选
If Tables("表A").Current IsNot Nothing Then
    Tables("表A").Filter = "[_Identify] = " & Tables("表A").Current("_Identify")
End If
--  作者：18523982317
--  发布时间：2016/8/19 17:01:00
--  
以下是引用Hyphen在2016/8/19 10:23:00的发言：
筛选
If Tables("表A").Current IsNot Nothing Then
    Tables("表A").Filter = "[_Identify] = " & Tables("表A").Current("_Identify")
End If

触发事件呢？  当点击全屏的时候，执行改语句？
--  作者：大红袍
--  发布时间：2016/8/19 17:14:00
--  

 做一个计划任务，写入代码

 

Dim frm = windows.forms.form.activeform
If frm IsNot Nothing Then
    \'output.show(frm.name & frm.text)
    If frm.name = "Class128" Then
        Dim obj As object = frm.Controls("PictureViewer1").Controls(0).panel2.controls("FlowLayoutPanel2")
        obj.controls("PrevRecord").Visible = False
        obj.controls("NextRecord").Visible = False
    End If
End If

 

http://www.foxtable.com/webhelp/scr/0657.htm