以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  TabControl1 页面区分  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=176159)
--  作者：yifan3429
--  发布时间：2022/4/1 21:18:00
--  TabControl1 页面区分
Dim bar As WinForm.TabControl = e.sender
Select Case bar.SelectedPage.Text
    Case "常用工具"
        Select Case e.Sender.Name
            Case "刷新工具"
                \'For Each c As Object In Forms("菜单_工作台").controls("TabControl1").TabPages(4).children
                \'Forms("菜单_工作台").RemoveControl(c.name)
                \'Next
            Case "新增工具"
                MessageBox.Show("正在开发",Vars("昵称"))
            Case Else
                \'MessageBox.Show("操作的是:" & e.Sender.Name,Vars("昵称"))
                Dim dr As DataRow = DataTables("网络_常用工具").SQLFind("标题=\'" & e.Sender.Name & "\'")
                If dr("网页") < > Nothing Then
                    Dim Proc As New Process \'定义一个新的Process
                    Proc.File = dr("网页") \'指定要打开的网页地址
                    Proc.Start()
                End If
        End Select
End Select


使用窗口全局Click
上面如果页面是 常用工具 就会对控件生效
会有以下报错
无法将类型为“Foxtable.WinForm.Button”的对象强制转换为类型“Foxtable.WinForm.TabControl”。
--  作者：有点蓝
--  发布时间：2022/4/2 8:41:00
--  
Dim bar As WinForm.TabControl = e.form.controls(TabControl1)
--  作者：yifan3429
--  发布时间：2022/4/2 10:15:00
--  
Dim cmd As New SQLCo mmand
cmd.Connectio nName = "2022"
Dim dt As DataTable
Dim cmb As WinFo rm.Com boBox
cmd.Com mandText = "SELE CT DISTINCT 标题,分类,网页  From {网络_常用工具}"
Vars("dt") = cmd.Execut eReader()


Dim bar As WinForm.TabControl = e.Form.Controls("TabControl1")
Select Case bar.SelectedPage.Text
    Case "常用工具"
        Select Case e.Sender.Name
                           
            Case "新增工具"
                \'MessageBox.Show("正在开发",Vars("昵称"))
            Case Else                
                Dim dr As DataRow = Vars("dt").SQLFind("标题=\'" & e.Sender.Name & "\'")
                If dr("网页") < > Nothing Then
                    Dim Proc As New Process \'定义一个新的Process
                    Proc.File = dr("网页") \'指定要打开的网页地址
                    Proc.Start()
                Else
                    MessageBox.Show(e.Sender.Name &"地址不存在",Vars("昵称"))
                End If
        End Select
End Select


.NET Framework 版本：4.0.30319.42000
Foxtable 版本：2022.1.30.2
错误所在事件：窗口,菜单_工作台,Click
详细错误信息：
未将对象引用设置到对象的实例。
--  作者：有点蓝
--  发布时间：2022/4/2 10:19:00
--  
http://www.foxtable.com/webhelp/topics/2911.htm，认真看看示例三