mainform.designer.vb <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _ Partial Class mainform Inherits WeifenLuo.WinFormsUI.Docking.DockContent 'Form 重写 Dispose,以清理组件列表。 <System.Diagnostics.DebuggerNonUserCode()> _ Protected Overrides Sub Dispose(ByVal disposing As Boolean) If disposing AndAlso components IsNot Nothing Then components.Dispose() End If MyBase.Dispose(disposing) End Sub 'Windows 窗体设计器所必需的 Private components As System.ComponentModel.IContainer '注意: 以下过程是 Windows 窗体设计器所必需的 '可以使用 Windows 窗体设计器修改它。 '不要使用代码编辑器修改它。 <System.Diagnostics.DebuggerStepThrough()> _ Private Sub InitializeComponent() Me.components = New System.ComponentModel.Container Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(mainform)) Dim DockPanelSkin1 As WeifenLuo.WinFormsUI.Docking.DockPanelSkin = New WeifenLuo.WinFormsUI.Docking.DockPanelSkin Dim AutoHideStripSkin1 As WeifenLuo.WinFormsUI.Docking.AutoHideStripSkin = New WeifenLuo.WinFormsUI.Docking.AutoHideStripSkin Dim DockPanelGradient1 As WeifenLuo.WinFormsUI.Docking.DockPanelGradient = New WeifenLuo.WinFormsUI.Docking.DockPanelGradient Dim TabGradient1 As WeifenLuo.WinFormsUI.Docking.TabGradient = New WeifenLuo.WinFormsUI.Docking.TabGradient Dim DockPaneStripSkin1 As WeifenLuo.WinFormsUI.Docking.DockPaneStripSkin = New WeifenLuo.WinFormsUI.Docking.DockPaneStripSkin Dim DockPaneStripGradient1 As WeifenLuo.WinFormsUI.Docking.DockPaneStripGradient = New WeifenLuo.WinFormsUI.Docking.DockPaneStripGradient Dim TabGradient2 As WeifenLuo.WinFormsUI.Docking.TabGradient = New WeifenLuo.WinFormsUI.Docking.TabGradient Dim DockPanelGradient2 As WeifenLuo.WinFormsUI.Docking.DockPanelGradient = New WeifenLuo.WinFormsUI.Docking.DockPanelGradient Dim TabGradient3 As WeifenLuo.WinFormsUI.Docking.TabGradient = New WeifenLuo.WinFormsUI.Docking.TabGradient Dim DockPaneStripToolWindowGradient1 As WeifenLuo.WinFormsUI.Docking.DockPaneStripToolWindowGradient = New WeifenLuo.WinFormsUI.Docking.DockPaneStripToolWindowGradient Dim TabGradient4 As WeifenLuo.WinFormsUI.Docking.TabGradient = New WeifenLuo.WinFormsUI.Docking.TabGradient Dim TabGradient5 As WeifenLuo.WinFormsUI.Docking.TabGradient = New WeifenLuo.WinFormsUI.Docking.TabGradient Dim DockPanelGradient3 As WeifenLuo.WinFormsUI.Docking.DockPanelGradient = New WeifenLuo.WinFormsUI.Docking.DockPanelGradient Dim TabGradient6 As WeifenLuo.WinFormsUI.Docking.TabGradient = New WeifenLuo.WinFormsUI.Docking.TabGradient Dim TabGradient7 As WeifenLuo.WinFormsUI.Docking.TabGradient = New WeifenLuo.WinFormsUI.Docking.TabGradient Me.Panel1 = New System.Windows.Forms.Panel Me.Label3 = New System.Windows.Forms.Label Me.Label2 = New System.Windows.Forms.Label Me.Label1 = New System.Windows.Forms.Label Me.PictureBox5 = New System.Windows.Forms.PictureBox Me.PictureBox3 = New System.Windows.Forms.PictureBox Me.PictureBox2 = New System.Windows.Forms.PictureBox Me.PictureBox1 = New System.Windows.Forms.PictureBox Me.Panel2 = New System.Windows.Forms.Panel Me.ListView1 = New System.Windows.Forms.ListView Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components) Me.DockPanel1 = New WeifenLuo.WinFormsUI.Docking.DockPanel Me.ToolTip1 = New System.Windows.Forms.ToolTip(Me.components) Me.Panel1.SuspendLayout() CType(Me.PictureBox5, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox3, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit() Me.Panel2.SuspendLayout() Me.SuspendLayout() ' 'Panel1 ' Me.Panel1.BackgroundImage = Global.EMX.My.Resources.Resources.top Me.Panel1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch Me.Panel1.Controls.Add(Me.Label3) Me.Panel1.Controls.Add(Me.Label2) Me.Panel1.Controls.Add(Me.Label1) Me.Panel1.Controls.Add(Me.PictureBox5) Me.Panel1.Controls.Add(Me.PictureBox3) Me.Panel1.Controls.Add(Me.PictureBox2) Me.Panel1.Controls.Add(Me.PictureBox1) Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top Me.Panel1.Location = New System.Drawing.Point(0, 0) Me.Panel1.Name = "Panel1" Me.Panel1.Size = New System.Drawing.Size(946, 110) Me.Panel1.TabIndex = 0 ' 'Label3 ' Me.Label3.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.Label3.AutoSize = True Me.Label3.BackColor = System.Drawing.Color.Transparent Me.Label3.ForeColor = System.Drawing.Color.White Me.Label3.Location = New System.Drawing.Point(716, 51) Me.Label3.Name = "Label3" Me.Label3.Size = New System.Drawing.Size(119, 12) Me.Label3.TabIndex = 10 Me.Label3.Text = "当前日期:" ' 'Label2 ' Me.Label2.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.Label2.AutoSize = True Me.Label2.BackColor = System.Drawing.Color.Transparent Me.Label2.ForeColor = System.Drawing.Color.White Me.Label2.Location = New System.Drawing.Point(716, 30) Me.Label2.Name = "Label2" Me.Label2.Size = New System.Drawing.Size(119, 12) Me.Label2.TabIndex = 9 Me.Label2.Text = "当前用户:" ' 'Label1 ' Me.Label1.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.Label1.AutoSize = True Me.Label1.BackColor = System.Drawing.Color.Transparent Me.Label1.ForeColor = System.Drawing.Color.White Me.Label1.Location = New System.Drawing.Point(716, 9) Me.Label1.Name = "Label1" Me.Label1.Size = New System.Drawing.Size(227, 12) Me.Label1.TabIndex = 7 Me.Label1.Text = "" ' 'PictureBox5 ' Me.PictureBox5.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.PictureBox5.BackColor = System.Drawing.Color.Transparent Me.PictureBox5.BackgroundImage = Global.EMX.My.Resources.Resources.NetByte_Design_Studio___1554 Me.PictureBox5.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch Me.PictureBox5.Location = New System.Drawing.Point(833, 75) Me.PictureBox5.Name = "PictureBox5" Me.PictureBox5.Size = New System.Drawing.Size(32, 32) Me.PictureBox5.TabIndex = 8 Me.PictureBox5.TabStop = False Me.ToolTip1.SetToolTip(Me.PictureBox5, "帮助文档") ' 'PictureBox3 ' Me.PictureBox3.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.PictureBox3.BackColor = System.Drawing.Color.Transparent Me.PictureBox3.BackgroundImage = Global.EMX.My.Resources.Resources.NetByte_Design_Studio___0032 Me.PictureBox3.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch Me.PictureBox3.Location = New System.Drawing.Point(871, 75) Me.PictureBox3.Name = "PictureBox3" Me.PictureBox3.Size = New System.Drawing.Size(32, 32) Me.PictureBox3.TabIndex = 2 Me.PictureBox3.TabStop = False Me.ToolTip1.SetToolTip(Me.PictureBox3, "Email:echowater@vip.qq.com") ' 'PictureBox2 ' Me.PictureBox2.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.PictureBox2.BackColor = System.Drawing.Color.Transparent Me.PictureBox2.BackgroundImage = Global.EMX.My.Resources.Resources.NetByte_Design_Studio___0007 Me.PictureBox2.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch Me.PictureBox2.Location = New System.Drawing.Point(909, 75) Me.PictureBox2.Name = "PictureBox2" Me.PictureBox2.Size = New System.Drawing.Size(32, 32) Me.PictureBox2.TabIndex = 1 Me.PictureBox2.TabStop = False Me.ToolTip1.SetToolTip(Me.PictureBox2, "退出系统") ' 'PictureBox1 ' Me.PictureBox1.BackColor = System.Drawing.Color.Transparent Me.PictureBox1.Dock = System.Windows.Forms.DockStyle.Left Me.PictureBox1.Image = Global.EMX.My.Resources.Resources.logo Me.PictureBox1.Location = New System.Drawing.Point(0, 0) Me.PictureBox1.Name = "PictureBox1" Me.PictureBox1.Size = New System.Drawing.Size(344, 110) Me.PictureBox1.TabIndex = 0 Me.PictureBox1.TabStop = False ' 'Panel2 ' Me.Panel2.Controls.Add(Me.ListView1) Me.Panel2.Dock = System.Windows.Forms.DockStyle.Left Me.Panel2.Location = New System.Drawing.Point(0, 110) Me.Panel2.Name = "Panel2" Me.Panel2.Size = New System.Drawing.Size(250, 552) Me.Panel2.TabIndex = 1 ' 'ListView1 ' Me.ListView1.Dock = System.Windows.Forms.DockStyle.Fill Me.ListView1.FullRowSelect = True Me.ListView1.LargeImageList = Me.ImageList1 Me.ListView1.Location = New System.Drawing.Point(0, 0) Me.ListView1.Name = "ListView1" Me.ListView1.Size = New System.Drawing.Size(250, 552) Me.ListView1.TabIndex = 0 Me.ListView1.UseCompatibleStateImageBehavior = False ' 'ImageList1 ' Me.ImageList1.ImageStream = CType(resources.GetObject("ImageList1.ImageStream"), System.Windows.Forms.ImageListStreamer) Me.ImageList1.TransparentColor = System.Drawing.Color.Transparent Me.ImageList1.Images.SetKeyName(0, "NetByte Design Studio - 0288.png") Me.ImageList1.Images.SetKeyName(1, "NetByte Design Studio - 0289.png") Me.ImageList1.Images.SetKeyName(2, "NetByte Design Studio - 0016.png") Me.ImageList1.Images.SetKeyName(3, "NetByte Design Studio - 0018.png") Me.ImageList1.Images.SetKeyName(4, "NetByte Design Studio - 0019.png") Me.ImageList1.Images.SetKeyName(5, "NetByte Design Studio - 0020.png") Me.ImageList1.Images.SetKeyName(6, "NetByte Design Studio - 0021.png") Me.ImageList1.Images.SetKeyName(7, "NetByte Design Studio - 0022.png") Me.ImageList1.Images.SetKeyName(8, "NetByte Design Studio - 0027.png") Me.ImageList1.Images.SetKeyName(9, "NetByte Design Studio - 0028.png") Me.ImageList1.Images.SetKeyName(10, "NetByte Design Studio - 0029.png") Me.ImageList1.Images.SetKeyName(11, "NetByte Design Studio - 0031.png") Me.ImageList1.Images.SetKeyName(12, "NetByte Design Studio - 0032.png") Me.ImageList1.Images.SetKeyName(13, "NetByte Design Studio - 0034.png") Me.ImageList1.Images.SetKeyName(14, "NetByte Design Studio - 0038.png") Me.ImageList1.Images.SetKeyName(15, "NetByte Design Studio - 0039.png") Me.ImageList1.Images.SetKeyName(16, "NetByte Design Studio - 0044.png") Me.ImageList1.Images.SetKeyName(17, "NetByte Design Studio - 0048.png") Me.ImageList1.Images.SetKeyName(18, "NetByte Design Studio - 0054.png") Me.ImageList1.Images.SetKeyName(19, "NetByte Design Studio - 0057.png") Me.ImageList1.Images.SetKeyName(20, "NetByte Design Studio - 0060.png") Me.ImageList1.Images.SetKeyName(21, "NetByte Design Studio - 0077.png") Me.ImageList1.Images.SetKeyName(22, "NetByte Design Studio - 0084.png") Me.ImageList1.Images.SetKeyName(23, "NetByte Design Studio - 0087.png") Me.ImageList1.Images.SetKeyName(24, "NetByte Design Studio - 0103.png") Me.ImageList1.Images.SetKeyName(25, "NetByte Design Studio - 0411.png") Me.ImageList1.Images.SetKeyName(26, "NetByte Design Studio - 0471.png") Me.ImageList1.Images.SetKeyName(27, "NetByte Design Studio - 0472.png") Me.ImageList1.Images.SetKeyName(28, "NetByte Design Studio - 0475.png") Me.ImageList1.Images.SetKeyName(29, "NetByte Design Studio - 0476.png") Me.ImageList1.Images.SetKeyName(30, "NetByte Design Studio - 0483.png") Me.ImageList1.Images.SetKeyName(31, "NetByte Design Studio - 0533.png") Me.ImageList1.Images.SetKeyName(32, "NetByte Design Studio - 0536.png") Me.ImageList1.Images.SetKeyName(33, "NetByte Design Studio - 0656.png") Me.ImageList1.Images.SetKeyName(34, "NetByte Design Studio - 0683.png") Me.ImageList1.Images.SetKeyName(35, "NetByte Design Studio - 0724.png") Me.ImageList1.Images.SetKeyName(36, "NetByte Design Studio - 0737.png") Me.ImageList1.Images.SetKeyName(37, "NetByte Design Studio - 0748.png") Me.ImageList1.Images.SetKeyName(38, "NetByte Design Studio - 0818.png") Me.ImageList1.Images.SetKeyName(39, "NetByte Design Studio - 0820.png") Me.ImageList1.Images.SetKeyName(40, "NetByte Design Studio - 0872.png") Me.ImageList1.Images.SetKeyName(41, "NetByte Design Studio - 0910.png") Me.ImageList1.Images.SetKeyName(42, "NetByte Design Studio - 0945.png") Me.ImageList1.Images.SetKeyName(43, "NetByte Design Studio - 0950.png") Me.ImageList1.Images.SetKeyName(44, "NetByte Design Studio - 1013.png") Me.ImageList1.Images.SetKeyName(45, "NetByte Design Studio - 1014.png") Me.ImageList1.Images.SetKeyName(46, "NetByte Design Studio - 1045.png") Me.ImageList1.Images.SetKeyName(47, "NetByte Design Studio - 1100.png") Me.ImageList1.Images.SetKeyName(48, "NetByte Design Studio - 1152.png") Me.ImageList1.Images.SetKeyName(49, "NetByte Design Studio - 1184.png") Me.ImageList1.Images.SetKeyName(50, "NetByte Design Studio - 1188.png") Me.ImageList1.Images.SetKeyName(51, "NetByte Design Studio - 1363.png") Me.ImageList1.Images.SetKeyName(52, "NetByte Design Studio - 1376.png") Me.ImageList1.Images.SetKeyName(53, "NetByte Design Studio - 1551.png") Me.ImageList1.Images.SetKeyName(54, "NetByte Design Studio - 1555.png") Me.ImageList1.Images.SetKeyName(55, "NetByte Design Studio - 1557.png") Me.ImageList1.Images.SetKeyName(56, "NetByte Design Studio - 0107.png") Me.ImageList1.Images.SetKeyName(57, "NetByte Design Studio - 0108.png") Me.ImageList1.Images.SetKeyName(58, "NetByte Design Studio - 0109.png") Me.ImageList1.Images.SetKeyName(59, "NetByte Design Studio - 0110.png") Me.ImageList1.Images.SetKeyName(60, "NetByte Design Studio - 0111.png") Me.ImageList1.Images.SetKeyName(61, "NetByte Design Studio - 0112.png") Me.ImageList1.Images.SetKeyName(62, "NetByte Design Studio - 0113.png") Me.ImageList1.Images.SetKeyName(63, "NetByte Design Studio - 0114.png") Me.ImageList1.Images.SetKeyName(64, "NetByte Design Studio - 0115.png") Me.ImageList1.Images.SetKeyName(65, "NetByte Design Studio - 0116.png") Me.ImageList1.Images.SetKeyName(66, "NetByte Design Studio - 0117.png") Me.ImageList1.Images.SetKeyName(67, "NetByte Design Studio - 0118.png") Me.ImageList1.Images.SetKeyName(68, "NetByte Design Studio - 0119.png") Me.ImageList1.Images.SetKeyName(69, "NetByte Design Studio - 0120.png") Me.ImageList1.Images.SetKeyName(70, "NetByte Design Studio - 0121.png") Me.ImageList1.Images.SetKeyName(71, "NetByte Design Studio - 0122.png") Me.ImageList1.Images.SetKeyName(72, "NetByte Design Studio - 0123.png") Me.ImageList1.Images.SetKeyName(73, "NetByte Design Studio - 0124.png") Me.ImageList1.Images.SetKeyName(74, "NetByte Design Studio - 0125.png") Me.ImageList1.Images.SetKeyName(75, "NetByte Design Studio - 0126.png") Me.ImageList1.Images.SetKeyName(76, "NetByte Design Studio - 0127.png") Me.ImageList1.Images.SetKeyName(77, "NetByte Design Studio - 0128.png") Me.ImageList1.Images.SetKeyName(78, "NetByte Design Studio - 0129.png") Me.ImageList1.Images.SetKeyName(79, "NetByte Design Studio - 0130.png") Me.ImageList1.Images.SetKeyName(80, "NetByte Design Studio - 0131.png") Me.ImageList1.Images.SetKeyName(81, "NetByte Design Studio - 0132.png") Me.ImageList1.Images.SetKeyName(82, "NetByte Design Studio - 0133.png") Me.ImageList1.Images.SetKeyName(83, "NetByte Design Studio - 0134.png") Me.ImageList1.Images.SetKeyName(84, "NetByte Design Studio - 0819.png") Me.ImageList1.Images.SetKeyName(85, "NetByte Design Studio - 0820.png") Me.ImageList1.Images.SetKeyName(86, "NetByte Design Studio - 0821.png") Me.ImageList1.Images.SetKeyName(87, "NetByte Design Studio - 0822.png") Me.ImageList1.Images.SetKeyName(88, "NetByte Design Studio - 0823.png") Me.ImageList1.Images.SetKeyName(89, "NetByte Design Studio - 0824.png") Me.ImageList1.Images.SetKeyName(90, "NetByte Design Studio - 0825.png") Me.ImageList1.Images.SetKeyName(91, "NetByte Design Studio - 0826.png") Me.ImageList1.Images.SetKeyName(92, "NetByte Design Studio - 0827.png") Me.ImageList1.Images.SetKeyName(93, "NetByte Design Studio - 0828.png") Me.ImageList1.Images.SetKeyName(94, "NetByte Design Studio - 0829.png") Me.ImageList1.Images.SetKeyName(95, "NetByte Design Studio - 0830.png") Me.ImageList1.Images.SetKeyName(96, "NetByte Design Studio - 0831.png") Me.ImageList1.Images.SetKeyName(97, "NetByte Design Studio - 0832.png") Me.ImageList1.Images.SetKeyName(98, "NetByte Design Studio - 0833.png") Me.ImageList1.Images.SetKeyName(99, "NetByte Design Studio - 0834.png") Me.ImageList1.Images.SetKeyName(100, "NetByte Design Studio - 0835.png") Me.ImageList1.Images.SetKeyName(101, "NetByte Design Studio - 0836.png") Me.ImageList1.Images.SetKeyName(102, "NetByte Design Studio - 0837.png") Me.ImageList1.Images.SetKeyName(103, "NetByte Design Studio - 0838.png") Me.ImageList1.Images.SetKeyName(104, "NetByte Design Studio - 0839.png") Me.ImageList1.Images.SetKeyName(105, "NetByte Design Studio - 0840.png") Me.ImageList1.Images.SetKeyName(106, "NetByte Design Studio - 0841.png") Me.ImageList1.Images.SetKeyName(107, "NetByte Design Studio - 0842.png") ' 'DockPanel1 ' Me.DockPanel1.ActiveAutoHideContent = Nothing Me.DockPanel1.Dock = System.Windows.Forms.DockStyle.Fill Me.DockPanel1.DockBackColor = System.Drawing.SystemColors.Control Me.DockPanel1.Location = New System.Drawing.Point(250, 110) Me.DockPanel1.Name = "DockPanel1" Me.DockPanel1.Size = New System.Drawing.Size(696, 552) DockPanelGradient1.EndColor = System.Drawing.SystemColors.ControlLight DockPanelGradient1.StartColor = System.Drawing.SystemColors.ControlLight AutoHideStripSkin1.DockStripGradient = DockPanelGradient1 TabGradient1.EndColor = System.Drawing.SystemColors.Control TabGradient1.StartColor = System.Drawing.SystemColors.Control TabGradient1.TextColor = System.Drawing.SystemColors.ControlDarkDark AutoHideStripSkin1.TabGradient = TabGradient1 AutoHideStripSkin1.TextFont = New System.Drawing.Font("微软雅黑", 9.0!) DockPanelSkin1.AutoHideStripSkin = AutoHideStripSkin1 TabGradient2.EndColor = System.Drawing.SystemColors.ControlLightLight TabGradient2.StartColor = System.Drawing.SystemColors.ControlLightLight TabGradient2.TextColor = System.Drawing.SystemColors.ControlText DockPaneStripGradient1.ActiveTabGradient = TabGradient2 DockPanelGradient2.EndColor = System.Drawing.SystemColors.Control DockPanelGradient2.StartColor = System.Drawing.SystemColors.Control DockPaneStripGradient1.DockStripGradient = DockPanelGradient2 TabGradient3.EndColor = System.Drawing.SystemColors.ControlLight TabGradient3.StartColor = System.Drawing.SystemColors.ControlLight TabGradient3.TextColor = System.Drawing.SystemColors.ControlText DockPaneStripGradient1.InactiveTabGradient = TabGradient3 DockPaneStripSkin1.DocumentGradient = DockPaneStripGradient1 DockPaneStripSkin1.TextFont = New System.Drawing.Font("微软雅黑", 9.0!) TabGradient4.EndColor = System.Drawing.SystemColors.ActiveCaption TabGradient4.LinearGradientMode = System.Drawing.Drawing2D.LinearGradientMode.Vertical TabGradient4.StartColor = System.Drawing.SystemColors.GradientActiveCaption TabGradient4.TextColor = System.Drawing.SystemColors.ActiveCaptionText DockPaneStripToolWindowGradient1.ActiveCaptionGradient = TabGradient4 TabGradient5.EndColor = System.Drawing.SystemColors.Control TabGradient5.StartColor = System.Drawing.SystemColors.Control TabGradient5.TextColor = System.Drawing.SystemColors.ControlText DockPaneStripToolWindowGradient1.ActiveTabGradient = TabGradient5 DockPanelGradient3.EndColor = System.Drawing.SystemColors.ControlLight DockPanelGradient3.StartColor = System.Drawing.SystemColors.ControlLight DockPaneStripToolWindowGradient1.DockStripGradient = DockPanelGradient3 TabGradient6.EndColor = System.Drawing.SystemColors.InactiveCaption TabGradient6.LinearGradientMode = System.Drawing.Drawing2D.LinearGradientMode.Vertical TabGradient6.StartColor = System.Drawing.SystemColors.GradientInactiveCaption TabGradient6.TextColor = System.Drawing.SystemColors.InactiveCaptionText DockPaneStripToolWindowGradient1.InactiveCaptionGradient = TabGradient6 TabGradient7.EndColor = System.Drawing.Color.Transparent TabGradient7.StartColor = System.Drawing.Color.Transparent TabGradient7.TextColor = System.Drawing.SystemColors.ControlDarkDark DockPaneStripToolWindowGradient1.InactiveTabGradient = TabGradient7 DockPaneStripSkin1.ToolWindowGradient = DockPaneStripToolWindowGradient1 DockPanelSkin1.DockPaneStripSkin = DockPaneStripSkin1 Me.DockPanel1.Skin = DockPanelSkin1 Me.DockPanel1.TabIndex = 4 ' 'mainform ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 12.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.ClientSize = New System.Drawing.Size(946, 662) Me.Controls.Add(Me.DockPanel1) Me.Controls.Add(Me.Panel2) Me.Controls.Add(Me.Panel1) Me.Font = New System.Drawing.Font("宋体", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte)) Me.IsMdiContainer = True Me.Name = "mainform" Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen Me.Text = "mainform" Me.WindowState = System.Windows.Forms.FormWindowState.Maximized Me.Panel1.ResumeLayout(False) Me.Panel1.PerformLayout() CType(Me.PictureBox5, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.PictureBox3, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit() Me.Panel2.ResumeLayout(False) Me.ResumeLayout(False) End Sub Friend WithEvents Panel1 As System.Windows.Forms.Panel Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox Friend WithEvents Panel2 As System.Windows.Forms.Panel Friend WithEvents ListView1 As System.Windows.Forms.ListView Friend WithEvents ImageList1 As System.Windows.Forms.ImageList Friend WithEvents DockPanel1 As WeifenLuo.WinFormsUI.Docking.DockPanel Friend WithEvents Label1 As System.Windows.Forms.Label Friend WithEvents PictureBox5 As System.Windows.Forms.PictureBox Friend WithEvents PictureBox3 As System.Windows.Forms.PictureBox Friend WithEvents Label3 As System.Windows.Forms.Label Friend WithEvents Label2 As System.Windows.Forms.Label Friend WithEvents ToolTip1 As System.Windows.Forms.ToolTip Friend WithEvents PictureBox2 As System.Windows.Forms.PictureBox End Class mainform.vb Imports WeifenLuo.WinFormsUi Imports System.Windows.Forms Imports System.Reflection Imports EchoClass.EchoClassShow Public Class mainform Private m_ChildFormNumber As Integer Public Function NewTab(ByVal f As Docking.DockContent, ByVal d As Docking.DockPanel, ByVal tabstr As String) f.MdiParent = Me f.TabText = tabstr If d.Contents.Count = 0 Then f.Show(d, Docking.DockState.Document) Else If op(f, d) = False Then f.Show(d, Docking.DockState.Document) Else For i As Integer = 0 To d.Contents.Count - 1 If f.TabText.ToString = d.Contents.Item(i).DockHandler.TabText.ToString() Then d.ActiveDocumentPane.ActiveContent = d.Contents.Item(i) Exit For End If Next End If End If NewTab = f End Function Private Function op(ByVal f As Docking.DockContent, ByVal d As Docking.DockPanel) As Boolean For i As Integer = 0 To d.Contents.Count - 1 If d.Contents.Item(i).DockHandler.TabText.ToString() = f.TabText.ToString() Then Return True End If Next Return False End Function Private Sub buttonx() Dim sql As String = "select * from 新菜单设置 where 上级菜单=0 order by id desc" Dim cmd As New SqlClient.SqlDataAdapter(sql, Conn) Dim ds As New Data.DataTable cmd.Fill(ds) Dim j As Button For i As Integer = 0 To ds.Rows.Count - 1 j = New Button With ds.Rows(i) j.Name = ds.Rows(i).Item("id") j.Text = ds.Rows(i).Item("菜单名称") j.Tag = ds.Rows(i).Item("id") j.Dock = DockStyle.Top j.TabIndex = i j.Height = 40 j.Font = New System.Drawing.Font("宋体", 11.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(134, Byte)) j.BackgroundImage = System.Drawing.Bitmap.FromFile("di.jpg") j.FlatStyle = FlatStyle.Flat j.FlatAppearance.BorderSize = 0 j.ForeColor = Color.White j.Cursor = System.Windows.Forms.Cursors.Hand Me.Panel2.Controls.Add(j) End With AddHandler j.Click, AddressOf x AddHandler j.MouseMove, AddressOf ButtonMouseMove AddHandler j.MouseLeave, AddressOf ButtonMouseLeave Next ds.Reset() End Sub Private Sub x(ByVal sender As Object, ByVal e As System.EventArgs) Dim ClickBtn As Button = CType(sender, Button) Dim TabIndex As Integer = ClickBtn.TabIndex For Each btn As Control In Panel2.Controls ' [criteria] sort by btn.tabindex desc If btn.GetType.ToString.Equals("System.Windows.Forms.Button") Then If btn.TabIndex <> TabIndex Then btn.Dock = DockStyle.Bottom If btn.TabIndex = TabIndex Then btn.Dock = DockStyle.Top End If Next btn ListView1.Items.Clear() Dim sql As String = "select * from 新菜单设置 where 上级菜单=" & CStr(sender.tag) & " order by 排序" Dim cmd As New SqlClient.SqlDataAdapter(sql, Conn) Dim dx As New Data.DataTable cmd.Fill(dx) Dim myvalues(0) As String Dim listitem As ListViewItem For i As Integer = 0 To dx.Rows.Count - 1 myvalues(0) = dx.Rows(i).Item("菜单名称") listitem = New ListViewItem(myvalues) listitem.Tag = dx.Rows(i).Item("指向窗体") listitem.ImageIndex = dx.Rows(i).Item("id") listitem.Font = New System.Drawing.Font("宋体", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte)) If flag(sysflag, dx.Rows(i).Item("id")) = True Then ListView1.Items.Add(listitem) End If Next dx.Reset() AddHandler ListView1.ItemActivate, AddressOf openform End Sub Private Sub main_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load Me.Text = SoftWareName + " - [主界面]" Label1.Text = "授权使用:" & SoftWareName Label2.Text = "当前用户:" & sysuser Label3.Text = "当前日期:" & Microsoft.VisualBasic.DateValue(nowtime()) buttonx() End Sub Private Sub openform(ByVal sender As Object, ByVal e As EventArgs) Try Dim asm As [Assembly] = System.Reflection.Assembly.GetExecutingAssembly() Dim frm As New Form frm = CType(asm.CreateInstance(Application.ProductName & "." + CType(sender, ListView).FocusedItem.Tag.ToString), Form) frm.Text = sender.focuseditem.text.ToString NewTab(frm, DockPanel1, frm.Text) Catch ex As Exception MsgBox("窗体不存在!", MsgBoxStyle.Information, "系统提示") Exit Sub End Try End Sub Private Function flag(ByVal userflag As Object, ByVal i As Integer) As Boolean userflag = Split(userflag, ",") For k As Integer = 1 To UBound(userflag) If userflag(k) - i = 0 Then Return True End If Next Return False End Function Public Function OpenOnce(ByVal myform As Form) As Boolean Dim form As Form For Each form In Me.MdiChildren If form.Text = myform.Text Then form.Activate() Return True End If Next Return False End Function Private Sub ButtonMouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Dim ClickBtn As Button = CType(sender, Button) ClickBtn.BackgroundImage = System.Drawing.Bitmap.FromFile("di2.jpg") End Sub Private Sub ButtonMouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Dim ClickBtn As Button = CType(sender, Button) ClickBtn.BackgroundImage = System.Drawing.Bitmap.FromFile("di.jpg") End Sub End Class