- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 求助：文件管理器如何自定义目录 并且隐藏除了增加与打开以外的其他命令 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=91880)
-- 发布时间：2016/10/20 23:18:00
-- 求助：文件管理器如何自定义目录 并且隐藏除了增加与打开以外的其他命令
求助：文件管理器如何自定义目录 并且隐藏除了增加与打开以外的其他命令
此主题相关图片如下：7cb3.tm.png
比如我要定义目录为 c:\\attachments
然后上传的文件进行名字判断，如果名字为中文的，自动取拼音加上当前时间成为新的文件名字后进行上传到 c:\\attachments 下
烦请大家多多指导 谢谢！
[此贴子已经被作者于2016/10/21 10:31:58编辑过]
-- 发布时间：2016/10/21 8:36:00
--
独立设置各命令
FileManager提供了以下属性，用于返回底端的各命令：
AddCommand
：增加
AddFolderCommand：目录
DeleteCommand：删除
ClearCommand：清除
OpenCommand：打开
ManagerCommand：管理
SaveAsCommand：另存
ConnectCommand：重连
命令的属性有：
Enabled: 逻辑型，用于设置命令是否可用。
Visible:
逻辑型，用于设置命令是否可见。
Text： 字符型，用于设置命令标题。
BackColor：Color类型，用于设置命令的背景颜色。
ForeColor：Color类型：用于设置命令的字体颜色。
示例
希望隐藏文件管理器中的删除和清除两个命令：
Dim fm As WinForm.FileManager =
e.Form.Controls("FileManager1")
fm.DeleteCommand.Visible = False
fm.ClearCommand.Visible = False
-- 发布时间：2016/10/21 9:17:00
--
屏蔽命令看2楼
-- 发布时间：2016/10/21 10:00:00
-- 回复：（有点蓝）屏蔽命令看2楼上传重命名参考：http:...
Dim dr As DataRow = e.DataRow
If dr.IsNull("description1") Or Dr.IsNull("date") Then
MessageBox.Show("文件描述和日期不能为空!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
e.Cancel = True
Else
e.SubFolder = "Attachments" & "\\" & GetPY(dr("description1")) & "\\" & dr("date").Year
End If
这样么？这个代码应该放在哪个位置呢？放在表BeforeAttachFile事件中执行没有结果！
-- 发布时间：2016/10/21 10:21:00
--
控件有绑定到文件列了吗？
-- 发布时间：2016/10/21 10:23:00
-- 回复：（有点蓝）控件有绑定到文件列了吗？
已绑定了的