主题：窗体selectedIndexChanged全局事件报错

项目事件

 

AfterOpenProject

 

'----------------将表标签调整到左侧位置----------------

Dim MainTab As C1Command.C1DockingTab = BaseMainform.Controls("MainPages")

'----------将并列窗口所在的选项卡标签调整到上方-----------

Dim FormTab As C1Command.C1DockingTab = MainTab.TabPages(0).controls(0)

FormTab.HotTrack = True   '打开项目高亮当前页签

FormTab.CanMoveTabs = True  '打开项目增加页签移动

FormTab.CanCloseTabs = True  '打开项目增加页签关闭

FormTab.Font = New Font("微软雅黑",10)

FormTab.Alignment = System.Windows.Forms.TabAlignment.Top   '指定页签的停靠位置

AddHandler FormTab.TabPageClosing,AddressOf FormTab_TabPageClosing

AddHandler FormTab.MouseDoubleClick,AddressOf FormTab_MouseDoubleClick

AddHandler FormTab.SelectedIndexChanged,AddressOf FormTab_SelectedIndexChanged

 

'----------打开共有窗口

Forms("导航栏").Show

Forms("窗口").Show

BaseMainForm.controls("MainPages").BringToFront

 

计划管理

 

表事件

 

窗口表事件

 

窗口与控件事件

 

导航栏_AfterLoad

 

Dim tv As WinForm.TreeView = e.Form.Controls("TreeView1")

tv.Nodes.Add("窗口","窗口","aim.png")

tv.Nodes.Add( 1,"管理")

tv.Nodes.Add( 2,"系统维护")

tv.Nodes(2).Nodes.Add("我我","我我")

For Each frm As WinForm.Form In Forms

    If frm.FormStyle = FormStyleEnum.并列  Then

        If tv.Nodes.Contains(frm.Name) = False Then

            tv.Nodes(1).Nodes.Add(frm.Name)

        End If

    End If

Next

 

'e.Form.Controls("TreeView目录").BaseControl.Sort

 

导航栏_TreeView1_NodeMouseDoubleClick

 

Forms(e.Node.Name).Show

MainTable = Tables("表a")

For i As Integer = 0 To 99

    Syscmd.Table.MoveLeft

Next

 

自定义函数

 

全局代码

 

Default

 

'----------------设置并列窗口模式-------------

Public Sub FormTab_MouseDoubleClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs)

If sender.SelectedTab.Text = "窗口" Then Return

Dim TabRect As Rectangle = sender.SelectedTab.TabBounds

If e.Button = System.Windows.Forms.MouseButtons.Left And TabRect.Contains(e.Location) Then

    For Each frm As WinForm.Form In Forms

        If frm.Opened AndAlso frm.Text = sender.SelectedTab.Text Then frm.Close : Return

    Next

End If

End Sub

 

Public Sub FormTab_TabPageClosing(ByVal sender As Object, ByVal e As C1.Win.C1Command.TabPageCancelEventArgs)

e.Cancel = True  '取消默认的关闭选项卡操作

Dim frmName As String

For Each frm As WinForm.Form In Forms

    If frm.Opened AndAlso frm.Text = e.TabPage.Text Then frmName = frm.Name : Exit For

Next

If frmName <> "" Then

    SystemReady = False

    Forms(frmName).Close

    SystemReady = True

    BaseMainform.Refresh

End If

End Sub

'------------主界面不绘制右边关闭---------

Public Sub FormTab_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)

sender.CanCloseTabs = Not (sender.SelectedTab.Text = "窗口")

End Sub

 

菜单事件

 

 

 乱套和代码一点关系也没有。

 

 你把导航窗口的名字改一下就行了。不要出现同名的窗口标题

我用message.show了一下，If frmName <> "" Then  前闭前面窗口后，后面其实是有名字的，换成不想关闭的form(窗口)，就好了。虽然还是会出现叉叉，但点击后已经不会出现任何动作了。