以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]文件管理器问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=63472)
--  作者：cqlwsam
--  发布时间：2015/1/21 17:41:00
--  [求助]文件管理器问题
双击文件管理器通常是打开文件管理器中选中的文件。是否可以通过双击文件管理器中选中的文件，显示另一个弹出窗口。谢谢！
--  作者：有点甜
--  发布时间：2015/1/21 17:53:00
--  

代码写到 BeforeOpenFile 事件。

 

msgbox(2)
e.Cancel = True
--  作者：cqlwsam
--  发布时间：2015/1/21 18:10:00
--  
谢谢，搞定。
--  作者：cqlwsam
--  发布时间：2015/1/28 15:42:00
--  

谢谢甜版。但是有另一个问题，如果文件管理器中没文件，双击管理器就没有用了。如何解决。代码：

e.Cancel=True
With Tables("辅助资料基本表")
    If .Current IsNot Nothing Then
        If Forms("辅助资料录入").opened Then
            Forms("辅助资料录入").show
        Else
            Forms("辅助资料录入").Open()
        End If
    Else
        MessageBox.Show("请选择添加文件的患者","提醒",MessageBoxButtons.OK,MessageBoxIcon.Information)
        Return
    End If
End With
--  作者：有点甜
--  发布时间：2015/1/28 15:46:00
--  
 呃，文件管理器没有文件，就肯定是不会触发事件的，双击管理器就不应该有任何操作。
--  作者：cqlwsam
--  发布时间：2015/1/28 15:49:00
--  
我是想通过双击它，调出另一个窗口。有关文件的添加、删除、更改等操作，在另一个窗口中完成。因为每一个文件对应的详细信息不一样，想这些详细信息与该文件关联。
--  作者：cqlwsam
--  发布时间：2015/1/28 15:53:00
--  

看来还是得将其换成文本框了。
--  作者：有点甜
--  发布时间：2015/1/28 15:58:00
--  
以下是引用cqlwsam在2015-1-28 15:49:00的发言：
我是想通过双击它，调出另一个窗口。有关文件的添加、删除、更改等操作，在另一个窗口中完成。因为每一个文件对应的详细信息不一样，想这些详细信息与该文件关联。

 

单独做一个文件管理器窗口，放入文件控件，绑定此列。

 

然后给控件绑定事件。
--  作者：有点甜
--  发布时间：2015/1/28 16:05:00
--  

全局代码

 

Public Sub listBox1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs)
    msgbox(2)
End Sub

 

 

AfterLoad事件

 

Dim obj As windows.Forms.Listbox = e.Form.Controls("FileManager1").basecontrol.Controls("SplitContainer1").panel1.Controls("ListBox1")
AddHandler obj.DoubleClick, addressOf listBox1_DoubleClick