以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]加载树  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=96423)

--  作者:铜豆
--  发布时间:2017/2/20 16:58:00
--  [求助]加载树
老师如何去除加载树中关闭按键,让非授权人员  无法关闭和显示
--  作者:有点色
--  发布时间:2017/2/20 17:19:00
--  

mark 控制加载树


LockBaseMainForm   \'锁屏

For Each a As OBJECT In Tables("表A").grid.Parent.controls
    For Each b As OBJECT In a.controls
        msgbox(b.text)
        If B.text = "加载树" Then
            b.CanCloseTabs = False
            b.CanAutoHide = False
        End If
    Next
Next
UnLockBaseMainForm  \'解锁


--  作者:铜豆
--  发布时间:2017/2/20 21:36:00
--  
老师带有窗口的加载树执行后没反应
也就是table在窗口中
[此贴子已经被作者于2017/2/20 22:02:39编辑过]

--  作者:有点蓝
--  发布时间:2017/2/20 22:27:00
--  
For Each a As OBJECT In Tables("表A").grid.Parent.controls

改为

For Each a As OBJECT In Forms("窗口1").panel.Parent.controls
--  作者:铜豆
--  发布时间:2017/2/20 23:05:00
--  

图片点击可在新窗口打开查看此主题相关图片如下:zsl118zhq_1487602815529_6.png
图片点击可在新窗口打开查看
错误提示
老师关于这些内容,帮助里怎么找不到,能否详解一下,怎么弄不清楚
[此贴子已经被作者于2017/2/20 23:08:15编辑过]

--  作者:有点蓝
--  发布时间:2017/2/20 23:11:00
--  
窗口是什么类型的?上例子看看

这些都是底层的用法,我不是很建议使用这些用法的。还不如自己在窗口做加载树,想怎么控制都行:http://www.foxtable.com/webhelp/scr/0917.htm

--  作者:有点色
--  发布时间:2017/2/21 9:24:00
--  
以下是引用铜豆在2017/2/20 21:36:00的发言:
老师带有窗口的加载树执行后没反应
也就是table在窗口中
[此贴子已经被作者于2017/2/20 22:02:39编辑过]

 

For Each a As OBJECT In forms("窗口1").panel.Parent.controls

 

或者

 

For Each a As OBJECT In Tables("表A").grid.Parent.controls

 

肯定是可以的