以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]页面关闭按钮  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=119717)
--  作者：blsu33
--  发布时间：2018/5/30 18:31:00
--  [求助]页面关闭按钮
老师 
点击 关闭页面出现错误，怎么改都不对，如何处理呢？
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:hj20180528 - 副本.foxdb


图片点击可在新窗口打开查看此主题相关图片如下：qq图片20180530183317.png
图片点击可在新窗口打开查看


[此贴子已经被作者于2018/5/30 18:56:57编辑过]
--  作者：有点甜
--  发布时间：2018/5/30 18:51:00
--  
Dim e =args(0)
Dim sender =args(1)
If e.TabPage.Name = "主页" Then
    e.Cancel = True
Else
    Dim Result As DialogResult
    Result = MessageBox.Show("是否关闭?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
    If Result = DialogResult.Yes Then
        Dim frm As WinForm.Form = Forms("serevmain")
        Dim ls As new List(of String)
        For Each c As object In e.tabpage.controls
            If c.Gettype.name.contains("o_O0_oO0") Then
                c.visible = False
            End If
            ls.add(c.name)
        Next
        For Each s As String In ls
            frm.removeControl(s)
            \'DataTables.Unload(s)
        Next       
    Else
        e.Cancel = True
    End If
End If
--  作者：dixiaxiaodan
--  发布时间：2018/6/23 21:42:00
--  
您好，能把登录密码告诉我下吗，我想参考一下您的程序
--  作者：blsu33
--  发布时间：2018/7/16 22:41:00
--  
http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=119107&skin=0