📄 frmmain.vb
字号:
'
'RibbonBar2
'
Me.RibbonBar2.AutoOverflowEnabled = True
Me.RibbonBar2.Dock = System.Windows.Forms.DockStyle.Fill
Me.RibbonBar2.Items.AddRange(New DevComponents.DotNetBar.BaseItem() {Me.ButtonItem2})
Me.RibbonBar2.Location = New System.Drawing.Point(3, 0)
Me.RibbonBar2.Name = "RibbonBar2"
Me.RibbonBar2.Size = New System.Drawing.Size(786, 67)
Me.RibbonBar2.Style = DevComponents.DotNetBar.eDotNetBarStyle.Office2007
Me.RibbonBar2.TabIndex = 0
Me.RibbonBar2.Text = "其他工具"
'
'ButtonItem2
'
Me.ButtonItem2.Image = CType(resources.GetObject("ButtonItem2.Image"), System.Drawing.Image)
Me.ButtonItem2.ImagePaddingHorizontal = 8
Me.ButtonItem2.Name = "ButtonItem2"
Me.ButtonItem2.Text = "ButtonItem2"
'
'RibbonTabItem1
'
Me.RibbonTabItem1.Checked = True
Me.RibbonTabItem1.ImagePaddingHorizontal = 8
Me.RibbonTabItem1.Name = "RibbonTabItem1"
Me.RibbonTabItem1.Panel = Me.RibbonPanel1
Me.RibbonTabItem1.Text = "常用菜单"
'
'RibbonTabItem3
'
Me.RibbonTabItem3.ImagePaddingHorizontal = 8
Me.RibbonTabItem3.Name = "RibbonTabItem3"
Me.RibbonTabItem3.Panel = Me.RibbonPanel3
Me.RibbonTabItem3.Text = "其他工具"
'
'Office2007StartButton1
'
Me.Office2007StartButton1.AutoExpandOnClick = True
Me.Office2007StartButton1.CanCustomize = False
Me.Office2007StartButton1.HotTrackingStyle = DevComponents.DotNetBar.eHotTrackingStyle.Image
Me.Office2007StartButton1.Image = CType(resources.GetObject("Office2007StartButton1.Image"), System.Drawing.Image)
Me.Office2007StartButton1.ImagePaddingHorizontal = 2
Me.Office2007StartButton1.ImagePaddingVertical = 2
Me.Office2007StartButton1.Name = "Office2007StartButton1"
Me.Office2007StartButton1.ShowSubItems = False
Me.Office2007StartButton1.SubItems.AddRange(New DevComponents.DotNetBar.BaseItem() {Me.ItemContainer1})
Me.Office2007StartButton1.Text = "&File"
'
'ItemContainer1
'
'
'ItemContainer1.BackgroundStyle
'
Me.ItemContainer1.BackgroundStyle.Class = "RibbonFileMenuContainer"
Me.ItemContainer1.LayoutOrientation = DevComponents.DotNetBar.eOrientation.Vertical
Me.ItemContainer1.MinimumSize = New System.Drawing.Size(0, 0)
Me.ItemContainer1.Name = "ItemContainer1"
Me.ItemContainer1.SubItems.AddRange(New DevComponents.DotNetBar.BaseItem() {Me.ItemContainer2, Me.ItemContainer5})
'
'ItemContainer2
'
'
'ItemContainer2.BackgroundStyle
'
Me.ItemContainer2.BackgroundStyle.Class = "RibbonFileMenuTwoColumnContainer"
Me.ItemContainer2.ItemSpacing = 0
Me.ItemContainer2.MinimumSize = New System.Drawing.Size(0, 0)
Me.ItemContainer2.Name = "ItemContainer2"
Me.ItemContainer2.SubItems.AddRange(New DevComponents.DotNetBar.BaseItem() {Me.ItemContainer3, Me.ItemContainer4})
'
'ItemContainer3
'
'
'ItemContainer3.BackgroundStyle
'
Me.ItemContainer3.BackgroundStyle.Class = "RibbonFileMenuColumnOneContainer"
Me.ItemContainer3.LayoutOrientation = DevComponents.DotNetBar.eOrientation.Vertical
Me.ItemContainer3.MinimumSize = New System.Drawing.Size(120, 0)
Me.ItemContainer3.Name = "ItemContainer3"
Me.ItemContainer3.SubItems.AddRange(New DevComponents.DotNetBar.BaseItem() {Me.BtnLockUp, Me.BtnClose, Me.BtnCloseAll, Me.BtnUserManage, Me.BtnSystemSet})
'
'BtnLockUp
'
Me.BtnLockUp.ButtonStyle = DevComponents.DotNetBar.eButtonStyle.ImageAndText
Me.BtnLockUp.Image = CType(resources.GetObject("BtnLockUp.Image"), System.Drawing.Image)
Me.BtnLockUp.ImagePaddingHorizontal = 8
Me.BtnLockUp.Name = "BtnLockUp"
Me.BtnLockUp.SubItemsExpandWidth = 24
Me.BtnLockUp.Text = "锁定"
'
'BtnClose
'
Me.BtnClose.ButtonStyle = DevComponents.DotNetBar.eButtonStyle.ImageAndText
Me.BtnClose.Image = CType(resources.GetObject("BtnClose.Image"), System.Drawing.Image)
Me.BtnClose.ImagePaddingHorizontal = 8
Me.BtnClose.Name = "BtnClose"
Me.BtnClose.SubItemsExpandWidth = 24
Me.BtnClose.Text = "关闭当前"
'
'BtnCloseAll
'
Me.BtnCloseAll.BeginGroup = True
Me.BtnCloseAll.ButtonStyle = DevComponents.DotNetBar.eButtonStyle.ImageAndText
Me.BtnCloseAll.Image = CType(resources.GetObject("BtnCloseAll.Image"), System.Drawing.Image)
Me.BtnCloseAll.ImagePaddingHorizontal = 8
Me.BtnCloseAll.Name = "BtnCloseAll"
Me.BtnCloseAll.SubItemsExpandWidth = 24
Me.BtnCloseAll.Text = "关闭所有"
'
'BtnUserManage
'
Me.BtnUserManage.BeginGroup = True
Me.BtnUserManage.ButtonStyle = DevComponents.DotNetBar.eButtonStyle.ImageAndText
Me.BtnUserManage.Image = CType(resources.GetObject("BtnUserManage.Image"), System.Drawing.Image)
Me.BtnUserManage.ImagePaddingHorizontal = 8
Me.BtnUserManage.Name = "BtnUserManage"
Me.BtnUserManage.SubItemsExpandWidth = 24
Me.BtnUserManage.Text = "用户管理"
'
'BtnSystemSet
'
Me.BtnSystemSet.ButtonStyle = DevComponents.DotNetBar.eButtonStyle.ImageAndText
Me.BtnSystemSet.Image = CType(resources.GetObject("BtnSystemSet.Image"), System.Drawing.Image)
Me.BtnSystemSet.ImagePaddingHorizontal = 8
Me.BtnSystemSet.Name = "BtnSystemSet"
Me.BtnSystemSet.SubItemsExpandWidth = 24
Me.BtnSystemSet.Text = "系统设置"
'
'ItemContainer4
'
'
'ItemContainer4.BackgroundStyle
'
Me.ItemContainer4.BackgroundStyle.Class = "RibbonFileMenuColumnTwoContainer"
Me.ItemContainer4.LayoutOrientation = DevComponents.DotNetBar.eOrientation.Vertical
Me.ItemContainer4.MinimumSize = New System.Drawing.Size(180, 0)
Me.ItemContainer4.Name = "ItemContainer4"
Me.ItemContainer4.SubItems.AddRange(New DevComponents.DotNetBar.BaseItem() {Me.ButtonItem6, Me.ButtonItem15, Me.labelItem8, Me.BtnDepartment, Me.BtnClass, Me.BtnSpecialty, Me.BtnCurricula, Me.BtnBooks})
'
'ButtonItem6
'
Me.ButtonItem6.ButtonStyle = DevComponents.DotNetBar.eButtonStyle.ImageAndText
Me.ButtonItem6.Image = CType(resources.GetObject("ButtonItem6.Image"), System.Drawing.Image)
Me.ButtonItem6.ImagePaddingHorizontal = 8
Me.ButtonItem6.Name = "ButtonItem6"
Me.ButtonItem6.SubItems.AddRange(New DevComponents.DotNetBar.BaseItem() {Me.BtnStudentInfo, Me.BtnStudentDuty, Me.BtnStudentGrade, Me.BtnStudentHostel})
Me.ButtonItem6.SubItemsExpandWidth = 24
Me.ButtonItem6.Text = "学生管理"
'
'BtnStudentInfo
'
Me.BtnStudentInfo.Image = CType(resources.GetObject("BtnStudentInfo.Image"), System.Drawing.Image)
Me.BtnStudentInfo.ImagePaddingHorizontal = 8
Me.BtnStudentInfo.Name = "BtnStudentInfo"
Me.BtnStudentInfo.Text = "学生基本信息管理"
'
'BtnStudentDuty
'
Me.BtnStudentDuty.Image = CType(resources.GetObject("BtnStudentDuty.Image"), System.Drawing.Image)
Me.BtnStudentDuty.ImagePaddingHorizontal = 8
Me.BtnStudentDuty.Name = "BtnStudentDuty"
Me.BtnStudentDuty.Text = "学生职务管理"
'
'BtnStudentGrade
'
Me.BtnStudentGrade.Image = CType(resources.GetObject("BtnStudentGrade.Image"), System.Drawing.Image)
Me.BtnStudentGrade.ImagePaddingHorizontal = 8
Me.BtnStudentGrade.Name = "BtnStudentGrade"
Me.BtnStudentGrade.Text = "学生成绩管理"
'
'BtnStudentHostel
'
Me.BtnStudentHostel.Image = CType(resources.GetObject("BtnStudentHostel.Image"), System.Drawing.Image)
Me.BtnStudentHostel.ImagePaddingHorizontal = 8
Me.BtnStudentHostel.Name = "BtnStudentHostel"
Me.BtnStudentHostel.Text = "学生宿舍管理"
'
'ButtonItem15
'
Me.ButtonItem15.ButtonStyle = DevComponents.DotNetBar.eButtonStyle.ImageAndText
Me.ButtonItem15.Image = CType(resources.GetObject("ButtonItem15.Image"), System.Drawing.Image)
Me.ButtonItem15.ImagePaddingHorizontal = 8
Me.ButtonItem15.Name = "ButtonItem15"
Me.ButtonItem15.SubItems.AddRange(New DevComponents.DotNetBar.BaseItem() {Me.BtnTeacherInfo, Me.BtnTeacherDuty, Me.BtnTeacherPay})
Me.ButtonItem15.SubItemsExpandWidth = 24
Me.ButtonItem15.Text = "教师管理"
'
'BtnTeacherInfo
'
Me.BtnTeacherInfo.Image = CType(resources.GetObject("BtnTeacherInfo.Image"), System.Drawing.Image)
Me.BtnTeacherInfo.ImagePaddingHorizontal = 8
Me.BtnTeacherInfo.Name = "BtnTeacherInfo"
Me.BtnTeacherInfo.Text = "教师基本信息管理"
'
'BtnTeacherDuty
'
Me.BtnTeacherDuty.Image = CType(resources.GetObject("BtnTeacherDuty.Image"), System.Drawing.Image)
Me.BtnTeacherDuty.ImagePaddingHorizontal = 8
Me.BtnTeacherDuty.Name = "BtnTeacherDuty"
Me.BtnTeacherDuty.Text = "教师职务管理"
'
'BtnTeacherPay
'
Me.BtnTeacherPay.Image = CType(resources.GetObject("BtnTeacherPay.Image"), System.Drawing.Image)
Me.BtnTeacherPay.ImagePaddingHorizontal = 8
Me.BtnTeacherPay.Name = "BtnTeacherPay"
Me.BtnTeacherPay.Text = "教师工资管理"
'
'labelItem8
'
Me.labelItem8.BorderSide = DevComponents.DotNetBar.eBorderSide.Bottom
Me.labelItem8.BorderType = DevComponents.DotNetBar.eBorderType.Etched
Me.labelItem8.CanCustomize = False
Me.labelItem8.Name = "labelItem8"
Me.labelItem8.Stretch = True
'
'BtnDepartment
'
Me.BtnDepartment.ButtonStyle = DevComponents.DotNetBar.eButtonStyle.ImageAndText
Me.BtnDepartment.Image = CType(resources.GetObject("BtnDepartment.Image"), System.Drawing.Image)
Me.BtnDepartment.ImagePaddingHorizontal = 8
Me.BtnDepartment.Name = "BtnDepartment"
Me.BtnDepartment.SubItemsExpandWidth = 24
Me.BtnDepartment.Text = "系部管理"
'
'BtnClass
'
Me.BtnClass.ButtonStyle = DevComponents.DotNetBar.eButtonStyle.ImageAndText
Me.BtnClass.Image = CType(resources.GetObject("BtnClass.Image"), System.Drawing.Image)
Me.BtnClass.ImagePaddingHorizontal = 8
Me.BtnClass.Name = "BtnClass"
Me.BtnClass.SubItemsExpandWidth = 24
Me.BtnClass.Text = "班级管理"
'
'BtnSpecialty
'
Me.BtnSpecialty.ButtonStyle = DevComponents.DotNetBar.eButtonStyle.ImageAndText
Me.BtnSpecialty.Image = CType(resources.GetObject("BtnSpecialty.Image"), System.Drawing.Image)
Me.BtnSpecialty.ImagePaddingHorizontal = 8
Me.BtnSpecialty.Name = "BtnSpecialty"
Me.BtnSpecialty.SubItemsExpandWidth = 24
Me.BtnSpecialty.Text = "专业管理"
'
'BtnCurricula
'
Me.BtnCurricula.ButtonStyle = DevComponents.DotNetBar.eButtonStyle.ImageAndText
Me.BtnCurricula.Image = CType(resources.GetObject("BtnCurricula.Image"), System.Drawing.Image)
Me.BtnCurricula.ImagePaddingHorizontal = 8
Me.BtnCurricula.Name = "BtnCurricula"
Me.BtnCurricula.Text = "课程管理"
'
'BtnBooks
'
Me.BtnBooks.ButtonStyle = DevComponents.DotNetBar.eButtonStyle.ImageAndText
Me.BtnBooks.Image = CType(resources.GetObject("BtnBooks.Image"), System.Drawing.Image)
Me.BtnBooks.ImagePaddingHorizontal = 8
Me.BtnBooks.Name = "BtnBooks"
Me.BtnBooks.SubItemsExpandWidth = 24
Me.BtnBooks.Text = "教材管理"
'
'ItemContainer5
'
'
'ItemContainer5.BackgroundStyle
'
Me.ItemContainer5.BackgroundStyle.Class = "RibbonFileMenuBottomContainer"
Me.ItemContainer5.HorizontalItemAlignment = DevComponents.DotNetBar.eHorizontalItemsAlignment.Right
Me.ItemContainer5.MinimumSize = New System.Drawing.Size(0, 0)
Me.ItemContainer5.Name = "ItemContainer5"
Me.ItemContainer5.SubItems.AddRange(New DevComponents.DotNetBar.BaseItem() {Me.BtnLogout, Me.BtnExit})
'
'BtnLogout
'
Me.BtnLogout.ButtonStyle = DevComponents.DotNetBar.eButtonStyle.ImageAndText
Me.BtnLogout.ColorTable = DevComponents.DotNetBar.eButtonColor.OrangeWithBackground
Me.BtnLogout.Image = CType(resources.GetObject("BtnLogout.Image"), System.Drawing.Image)
Me.BtnLogout.ImagePaddingHorizontal = 8
Me.BtnLogout.Name = "BtnLogout"
Me.BtnLogout.SubItemsExpandWidth = 24
Me.BtnLogout.Text = "注销"
'
'BtnExit
'
Me.BtnExit.ButtonStyle = DevComponents.DotNetBar.eButtonStyle.ImageAndText
Me.BtnExit.ColorTable = DevComponents.DotNetBar.eButtonColor.OrangeWithBackground
Me.BtnExit.Image = CType(resources.GetObject("BtnExit.Image"), System.Drawing.Image)
Me.BtnExit.ImagePaddingHorizontal = 8
Me.BtnExit.Name = "BtnExit"
Me.BtnExit.SubItemsExpandWidth = 24
Me.BtnExit.Text = "退出系统"
'
'QatCustomizeItem1
'
Me.QatCustomizeItem1.Name = "QatCustomizeItem1"
'
'SkinUI1
'
Me.SkinUI1.Active = True
Me.SkinUI1.Button = True
Me.SkinUI1.Caption = True
Me.SkinUI1.CheckBox = True
Me.SkinUI1.ComboBox = True
Me.SkinUI1.ContextMenu = True
Me.SkinUI1.DisableTag = 999
Me.SkinUI1.Edit = True
Me.SkinUI1.GroupBox = True
Me.SkinUI1.ImageList = Nothing
Me.SkinUI1.MaiMenu = True
Me.SkinUI1.Panel = True
Me.SkinUI1.Progress = True
Me.SkinUI1.RadioButton = True
Me.SkinUI1.ScrollBar = True
Me.SkinUI1.SkinFile = "I:\Visual Studio Projects\SchoolManage\Office 2007-OFFICE07.skn"
Me.SkinUI1.SkinSteam = Nothing
Me.SkinUI1.Spin = True
Me.SkinUI1.StatusBar = True
Me.SkinUI1.SystemMenu = True
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -