专家坐堂-图片管理器如何隐藏增加、删除按钮Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  图片管理器如何隐藏增加、删除按钮  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=116476)

--  作者：deliangzhaoe
--  发布时间：2018/3/25 15:02:00
--  图片管理器如何隐藏增加、删除按钮
在计划管理中设置了如下代码：

此主题相关图片如下：qq截图20180325145640.jpg
一直报错，

此主题相关图片如下：qq截图20180325145742.jpg

怎么改一下？
另外，FTP文件管理器乱码，UTF8已开启，
此主题相关图片如下：qq截图20180325143228.jpg
还需要在哪设置一下？
谢谢！

--  作者：有点甜
--  发布时间：2018/3/25 16:07:00
--

1、我执行这个代码没问题

Dim frm = windows.forms.form.activeform
If frm IsNot Nothing Then
    If frm.Text = "文件管理器" Then

        Dim obj = frm.Controls("FileManager").Controls("SplitContainer1").panel2.Controls("FlowLayoutPanel1")
        obj.controls("Manager").Visible = False
        obj.controls("Add").visible = False
        \'Folder
        \'Open
        \'Delete
        \'Clear
        \'Manager
        \'SaveAs
        \'Connect
        \'FullView

    End If
End If

2、如果是图片管理器，参考

Dim frm = Windows.Forms.Form.ActiveForm
If frm IsNot Nothing Then
    If frm.Name = Nothing AndAlso frm.text = "图片管理器" Then
        Dim lbs = frm.Controls(0).controls(0).panel2.controls(0)
        lbs.controls("Add").visible = False
        lbs.controls("Open").visible = False
        \'Add
        \'Open
        \'Delete
        \'Clear
        \'NextRecord
        \'PrevRecord
        \'Manager
        \'Full
        \'Stretch
        \'SaveAs
        \'lblConnect
        \'lblUpdate
    End If
End If

3、utf8编码，开启或者关闭，再测试。如果还有问题，ftp账号密码等发上来看看。

--  作者：deliangzhaoe
--  发布时间：2018/3/25 18:11:00
--
报错解决了。
隐藏内置图片管理器的部分按钮未起作用：
计划管理中添加了代码：

此主题相关图片如下：qq截图20180325180521.jpg
窗口中打开绑定的表，图片扩展列打开内置图片管理器，所有按钮均在：

此主题相关图片如下：qq截图20180325180815.jpg

--  作者：有点甜
--  发布时间：2018/3/25 21:27:00
--

2楼代码没问题，我测试也没问题。请认真测试。

如果还是有问题，做个实例发上来测试。

--  作者：deliangzhaoe
--  发布时间：2018/3/26 7:05:00
--
我再试试，看看我哪里写错了。
谢谢老师耐心解答！