以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  文件管理器底端增加、删除、清除、打开等命令怎么写？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=8726)
--  作者：shixia
--  发布时间：2010/12/1 17:45:00
--  文件管理器底端增加、删除、清除、打开等命令怎么写？
如果隐藏文件管理底端命令，自己用按钮如何写代码实现相同功能？
--  作者：czy
--  发布时间：2010/12/1 18:09:00
--  

CommandVisible

逻辑型，是否在FileManager的底端显式增加、删除、清除、打开等命令。
如：e.Form.Controls("FileManager1").CommandVisible = True


OpenEnabled

逻辑型，是否允许用户单击打开命令调用第三方程序来打开文件。
如：e.Form.Controls("FileManager1").OpenEnabled = False
--  作者：shixia
--  发布时间：2010/12/1 18:22:00
--  

谢谢，如果隐藏底端命令，自己再增加“按钮”实现相同功能，如何写“增加、删除、清除、看图、打开”代码。毕竟有时我们想把底端不相干的命令显示出来，比如，在文本管理中，就不用“看图”命令，狐爸没有提供隐藏某个命令的属性，而只是一起显示或隐藏。
--  作者：狐狸爸爸
--  发布时间：2010/12/1 20:23:00
--  

以下代码没有测试过，只是提供思路，请自行调试：

 

增加命令：

 

Dim v As String = tables("XXX").Current("文件")

If v > "" Then

   v = V & vbcrlf & "你选择的文件"
Else

   v = "你选择的文件"

End If

Tables("XXX").Current("文件") = V

 

删除命令：

 

Dim fl As String  = e.Form.Controls("FileManager1").SelectedItem

Dim v As String = tables("XXX").Current("文件")
Dim fls() As String = V.Replace(vbcr,"").Split(vblf)

v = ""

For i As integer =0 To fls.Length - 1

    if fls(i) = fl Then

       Continue for

    Else

       if v >"" then

         v = v & vbcrlf & fls(i)

      Else

        v= fls(i)

    end if

Next

tables("XXX").Current("文件") = v