此主题相关图片如下：qq图片20131024174902.jpg

代码是照抄西瓜主持的

一并附件吧，实在郁闷了，搞了一天了

做死了弄不到上面去，双击也无效

全局代码如下：

Public  ImageList As New System.Windows.Forms.ImageList()
Sub New
ImageList.ImageSize = New System.Drawing.Size(32, 32)
\'设置图标大小
\'设置图标库 供调用
ImageList.Images.Add(0, GetImage("全景菜单_基础资料维护_公司信息.png"))
ImageList.Images.Add(1, GetImage("全景菜单_基础资料维护_员工资料维护.png"))
ImageList.Images.Add(2, GetImage("全景菜单_基础资料维护_产品资料维护.png"))
ImageList.Images.Add(3, GetImage("全景菜单_基础资料维护_产品分类.png"))
ImageList.Images.Add(4, GetImage("全景菜单_基础资料维护_数据字典维护.png"))

ImageList.Images.Add(5, GetImage("全景菜单_行政管理_岗位职责维护.png"))
ImageList.Images.Add(6, GetImage("全景菜单_行政管理_刷卡记录.png"))
ImageList.Images.Add(7, GetImage("全景菜单_行政管理_考勤统计.png"))
ImageList.Images.Add(8, GetImage("全景菜单_行政管理_请假记录.png"))
ImageList.Images.Add(9, GetImage("全景菜单_行政管理_图书目录.png"))
ImageList.Images.Add(10, GetImage("全景菜单_行政管理_企业人才库.png"))
ImageList.Images.Add(11, GetImage("全景菜单_行政管理_办公用品采购申请.png"))
ImageList.Images.Add(12, GetImage("全景菜单_行政管理_工作报告.png"))

ImageList.Images.Add(13, GetImage("全景菜单_系统管理_用户管理.png"))
ImageList.Images.Add(14, GetImage("全景菜单_系统管理_系统功能授权.png"))
ImageList.Images.Add(15, GetImage("全景菜单_系统管理_系统功能维护.png"))
ImageList.Images.Add(16, GetImage("全景菜单_系统管理_系统升级.png"))
ImageList.Images.Add(17, GetImage("全景菜单_系统管理_查看升级日志.png"))
ImageList.Images.Add(18, GetImage("全景菜单_系统管理_登录日志.png"))
ImageList.Images.Add(19, GetImage("全景菜单_系统管理_客户端授权.png"))
ImageList.Images.Add(20, GetImage("全景菜单_系统管理_系统设置.png"))
ImageList.Images.Add(21, GetImage("全景菜单_系统管理_系统提醒设置.png"))
ImageList.Images.Add(22, GetImage("全景菜单_系统管理_文件管理.png"))

ImageList.Images.Add(23, GetImage("全景菜单_系统工具_内部通讯.png"))
ImageList.Images.Add(24, GetImage("全景菜单_系统工具_写邮件.png"))
ImageList.Images.Add(25, GetImage("全景菜单_系统工具_短信收发.png"))
ImageList.Images.Add(26, GetImage("全景菜单_系统工具_程序报错.png"))

End Sub

Public Sub QJ_doubleclick(ByVal sender As Object, ByVal e As EventArgs)
Select Case sender.selecteditems(0).text
    Case "用户及权限"
        Forms("用户设置及权限").show
    Case "员工资料维护"
        Forms("窗口2").show
    Case "产品资料维护"
        Forms("全屏窗口测试1").open
    Case Else

        messagebox.show("土豆你个大西瓜")

End Select
End Sub

\'设置并列窗口模式
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
SystemReady = False
Forms(frmName).Close
SystemReady = True
BaseMainform.Refresh

End Sub

Public Sub FormTab_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
sender.CanCloseTabs = Not (sender.SelectedTab.Text = "主菜单")
End Sub

\'==================设置最小化==============================
Public Dim nfi As new System.Windows.Forms.NotifyIcon
\'定义通知区域小图标
Public Dim cms As new System.Windows.Forms.ContextMenuStrip
\'定义右键菜单\'菜单按钮点击事件
Public Sub Menu1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)  
MessageBox.Show("你点击的是 : " & sender.Text)
End Sub
\'图标双击事件
Public Sub ICON_DoubleClick(ByVal sender As System.Object, ByVal e As System.EventArgs)  
baseMainform.visible=not baseMainform.visible
\'设置主窗体显示 
End Sub

\'将并列窗口所在的选项卡标签调整到上方
Dim FormTab As C1Command.C1DockingTab = MainTab.TabPages(0).controls(0)
FormTab.HotTrack = True
FormTab.CanMoveTabs = True
FormTab.CanCloseTabs = True
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

非主流的，如果代码太多，或者逻辑太复杂，又不是自己搞定的，玩玩可以，实际应用，就有风险了。

其实这也不算什么非主流，用另外的代码实现也可以，这些东西狐爸能不能写入下帮助啊，实在查资料查得头痛