项目事件
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
菜单事件
加好友 
发短信
Post By：2015/3/26 22:16:00 [显示全部帖子]
此主题相关图片如下：1_看图王.jpg
此主题相关图片如下：gaollg0.gif
