以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  备注图片列的功能隐藏-已解決  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=33757)
--  作者：realredred
--  发布时间：2013/5/23 21:19:00
--  备注图片列的功能隐藏-已解決
当备注列类型设为图片时
就有列窗口
而下方有功能键
能不能只显示"全屏"键
其他的都隐藏? 
例如把"刪除","清除"隐藏

[此贴子已经被作者于2013-5-25 2:24:43编辑过]
--  作者：狐狸爸爸
--  发布时间：2013/5/24 6:21:00
--  

http://www.foxtable.com/help/topics/1900.htm

http://www.foxtable.com/help/topics/2470.htm


 
Tables("员工").Cols("照片").OpenWindow()
Dim fl As WinForm.PictureViewer = Tables("员工").Cols("照片").PictureViewer
fl.CommandVisible = false
--  作者：realredred
--  发布时间：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 
Next