备注图片列的功能隐藏-已解決 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 备注图片列的功能隐藏-已解決

共有5059人关注过本帖树形打印复制链接主题：备注图片列的功能隐藏-已解決

realredred

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：一尾狐帖子：488 积分：3358 威望：0 精华：0 注册：2013/4/17 21:14:00

备注图片列的功能隐藏-已解決 发帖心情

Post By：2013/5/23 21:19:00 [只看该作者]

当备注列类型设为图片时

就有列窗口

而下方有功能键

能不能只显示"全屏"键

其他的都隐藏?

例如把"刪除","清除"隐藏

[此贴子已经被作者于2013-5-25 2:24:43编辑过]

狐狸爸爸

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：管理员帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2013/5/24 6:21:00 [只看该作者]

Tables("员工").Cols("照片").OpenWindow()
Dim fl As WinForm.PictureViewer = Tables("员工").Cols("照片").PictureViewer
fl.CommandVisible = false

realredred

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：一尾狐帖子：488 积分：3358 威望：0 精华：0 注册：2013/4/17 21:14:00

Post By：2013/5/25 2:20:00 [只看该作者]

感谢狐爸

通过一些设定后,图片列现在只能做缩放和全屏了

很好用

'禁止用戶刪除清除新增另存打开图片

Dim dpms() As String = { "手雕汇总","执版","月汇总","电雕","试版单","进度","钉版","银耗" }

For Each dpm As String In dpms

Tables(dpm).Cols("图片").OpenWindow()

Dim fl As WinForm.PictureViewer = Tables(dpm).Cols("图片").PictureViewer

fl.DeleteCommand.Visible = False

fl.ClearCommand.Visible = False 'Enabled 可用 Visible不显示

fl.openCommand.Visible = False

fl.saveasCommand.Visible = False

fl.addCommand.Visible = False

主题：备注图片列的功能隐藏-已解決