以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  请问有listview双击关闭窗口的教程吗?  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=114597)

--  作者:swagger
--  发布时间:2018/2/10 16:45:00
--  请问有listview双击关闭窗口的教程吗?
论坛有个案例,但是看不懂,我现在用的是listview案例里面的弄,但是论坛的案例和帮助文件的不一样。我用的是

 Dim lr As WinForm.ListViewRow = e.Sender.Current
forms(lr.Text).show

根据不同的名字打开不同的窗口,然后打开并列窗口,但是接下来不知道怎么弄这个双击关闭窗口?

--  作者:有点甜
--  发布时间:2018/2/10 17:21:00
--  

直接关闭窗口不就好了?

 

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=86246&skin=0

 

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=82803&skin=0


--  作者:swagger
--  发布时间:2018/2/11 3:15:00
--  
用上述例子打开并列窗口,第一次点击可以打开相应窗口并且关闭,但是第二次点击就显示“未将对象引用设置到对象的实例。”,再点击一次才能打开窗口。这个什么问题?
--  作者:有点蓝
--  发布时间:2018/2/11 10:28:00
--  
你是怎么做的,上传实例说明
--  作者:swagger
--  发布时间:2018/2/11 14:45:00
--  
请老师看一下
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.foxdb


--  作者:有点蓝
--  发布时间:2018/2/11 14:57:00
--  
全局代码
Public Sub _TabPageClosing(sender As Object, e As C1.Win.C1Command.TabPageCancelEventArgs)
\'页面关闭按钮点击事件
Dim name =  e.TabPage.Text
If name = "主窗口" Then
    e.Cancel = True
Else
    If Forms.contains(name) AndAlso Forms(name).Opened Then
        Forms(name).Close
        e.cancel = True
    End If
End If
End Sub