Foxtable(狐表)用户栏目专家坐堂 → 设置内置的文件管理器的代码写在哪个位置(没有设置窗口,都是表操作),来设置”删除或清除”等按钮不可用?


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

主题:设置内置的文件管理器的代码写在哪个位置(没有设置窗口,都是表操作),来设置”删除或清除”等按钮不可用?

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


加好友 发短信
等级:四尾狐 帖子:896 积分:7535 威望:0 精华:0 注册:2017/12/27 14:19:00
设置内置的文件管理器的代码写在哪个位置(没有设置窗口,都是表操作),来设置”删除或清除”等按钮不可用?  发帖心情 Post By:2018/7/3 10:05:00 [只看该作者]

设置内置的文件管理器

我们知道,如果将某列的扩展列类型设置为多文件型,默认会自动打开一个文件管理器,可以通过Col的FileManager属性获得此文件管理器,进行细节设置。

示例

假定员工表的附件列是一个多文件型,我们可以通过下面的代码打开此列的文件管理器,并禁用其文件管理器的“删除”和“清除”两个命令:

Tables("员工").Cols("附件").OpenWindow()
Dim
fl As WinForm.FileManager = Tables("员工").Cols("附件").FileManager
fl.DeleteCommand.Enabled =
False
fl.ClearCommand.Enabled =
False


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/7/3 10:31:00 [只看该作者]

做个计划,输入代码

 

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

 

 

如果是文件管理器

 

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

 

如果是图片管理器,参考

 

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


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


加好友 发短信
等级:幼狐 帖子:78 积分:750 威望:0 精华:0 注册:2017/7/19 12:42:00
  发帖心情 Post By:2023/6/2 10:33:00 [只看该作者]

会提示这个异常
图片点击可在新窗口打开查看此主题相关图片如下:微信截图_20230602103117.png
图片点击可在新窗口打开查看

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


加好友 发短信
等级:超级版主 帖子:110574 积分:562760 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/6/2 10:41:00 [只看该作者]

新版本不再支持这种用法

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


加好友 发短信
等级:幼狐 帖子:78 积分:750 威望:0 精华:0 注册:2017/7/19 12:42:00
  发帖心情 Post By:2023/6/2 10:49:00 [只看该作者]

请问下,还有什么方法可以禁用删除、清除、另存这几个功能呢?

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


加好友 发短信
等级:超级版主 帖子:110574 积分:562760 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/6/2 11:02:00 [只看该作者]

没有办法。只能是设计自己的窗口,使用文件管理器控件,取代自带的文件管理器窗口
[此贴子已经被作者于2023/6/2 11:01:53编辑过]

 回到顶部