以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  通过鼠标拖入FileManager 作为新增文件的例子  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=94917)

--  作者:ljh29206
--  发布时间:2017/1/5 12:30:00
--  通过鼠标拖入FileManager 作为新增文件的例子
如题

请教 有没有

通过鼠标拖入FileManager 作为新增文件的例子


--  作者:有点色
--  发布时间:2017/1/5 14:17:00
--  

 那你就必须给fileManager绑定事件了。

 

 参考

 

下载信息  [文件大小:296.0 KB  下载次数:16]
图片点击可在新窗口打开查看点击浏览该文件:文件拖拽.table

 

 

 获取listbox控件,然后帮其绑定拖拽事件

 

Dim lbx As Windows.Forms.ListBox = e.Form.Controls("FileManager1").basecontrol.Controls("SplitContainer1").panel1.Controls("ListBox1")


--  作者:ljh29206
--  发布时间:2017/1/5 17:53:00
--  
Public Sub picture_DragDrop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs)
Dim paths As object() = e.Data.GetData(Windows.Forms.DataFormats.FileDrop)
Dim fm As WinForm.FileManager 
Dim frm = Windows.Forms.Form.ActiveForm
If frm IsNot Nothing Then
    If frm.controls.contains("FileManager1") Then
      fm = frm.Controls("FileManager1")
    End If
End If

For Each path As object In paths
    fm.AddFile(path)
Next
sender.Cursor = System.Windows.Forms.Cursors.IBeam
End Sub

直接判断某个窗体 已经可以 添加文件进去了, 

但是判断当前窗体 后再添加 进去不行,  请教这样写哪里错了

--  作者:有点色
--  发布时间:2017/1/5 18:33:00
--  

给lbx绑定拖拽事件啊

 

Dim lbx As Windows.Forms.ListBox = e.Form.Controls("FileManager1").basecontrol.Controls("SplitContainer1").panel1.Controls("ListBox1")

 

然后,在事件里面,直接给某表的当前行直接添加数据即可

 


--  作者:ljh29206
--  发布时间:2017/1/6 9:42:00
--  
色板,

"FileManager1"
 

通过 "FileManager1" .BindingField  

能够返回 “ 表.列”

请问  “表.列”  设置为文件列,  怎么 返回 表.列(这个文件列) 的   存放目录
[此贴子已经被作者于2017/1/6 9:42:22编辑过]

--  作者:有点色
--  发布时间:2017/1/6 9:56:00
--  

1、你能直接获取这个fileManager对象吗?不可以通过绑定的事件直接获取到的。

 

2、你与其要这样,还不如在绑定的时候,就用变量去记录一下对应的列是什么。

 

3、你可以这样写,首先分割得到表列,然后DataTables("表").DataCols("列").DefaulFolder


--  作者:ljh29206
--  发布时间:2017/1/6 10:07:00
--  
可以的 试过了  ,但 需要 处理  路径,  放进去 的 路径

如: “c:\\122\\132\\45.txt”

要先把   这个文件 复制到    列自定的 存放位置 , 再向 列添加  45.txt 的文本哇

不能 “c:\\122\\132\\45.txt” 就这样添加进去


[此贴子已经被作者于2017/1/6 10:09:28编辑过]