以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  隐藏文件管理器按键的代码失效了?  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=157878)

--  作者:ouyangfenghuan
--  发布时间:2020/10/31 22:36:00
--  隐藏文件管理器按键的代码失效了?
原来写在计划任务里的隐藏文件管理器按键的代码失效了?
Dim frm  = windows.forms.form.activeform  \'\'(报错,加system.后面报错--)
If frm IsNot Nothing Then
    If frm.Text = "文件管理器" Then
        Dim obj = frm.Controls("FileManager").Controls("SplitContainer1").panel2.Controls("FlowLayoutPanel1")
          \' PopMessage(1,"ti",PopIconEnum.Alert,1)
        obj.controls("Manager").Visible = False
        obj.controls("Add").visible = False
        obj.controls("Delete").visible = False
        \'obj.controls("open").visible = False
        obj.controls("Folder").visible = False
        obj.controls("Clear").visible = False
        obj.controls("SaveAs").visible = False
        obj.controls("Connect").visible = False
        obj.controls("FullView").visible = False
        Open
    End If
End If
求更新代码.谢谢老师

--  作者:有点蓝
--  发布时间:2020/11/1 20:30:00
--  
官方不提供更改底层用法的支持,也不保证可用。
--  作者:ouyangfenghuan
--  发布时间:2020/11/2 13:56:00
--  
那还有什么方法可以隐藏 文件列的 文件管理器中的按键呢?


--  作者:有点蓝
--  发布时间:2020/11/2 14:08:00
--  
暂时没有办法。设计窗口使用文件管理器控件替代吧