📄 frmmanager.vb

📁 一个用vb开发的档案管理程序
💻 VB
📖 第 1 页 / 共 4 页
字号:
12 3 4 下一页
Option Strict Off
Option Explicit On
Imports VB = Microsoft.VisualBasic
Friend Class frmManager
	Inherits System.Windows.Forms.Form
#Region "Windows 窗体设计器生成的代码"
	Public Sub New()
		MyBase.New()
		If m_vb6FormDefInstance Is Nothing Then
			If m_InitializingDefInstance Then
				m_vb6FormDefInstance = Me
			Else
				Try 
					'对于启动窗体，所创建的第一个实例为默认实例。
					If System.Reflection.Assembly.GetExecutingAssembly.EntryPoint.DeclaringType Is Me.GetType Then
						m_vb6FormDefInstance = Me
					End If
				Catch
				End Try
			End If
		End If
		'此调用是 Windows 窗体设计器所必需的。
		InitializeComponent()
		'此窗体是 MDI 子窗体。
		'此代码模拟 VB6 
		'的自动加载和显示
		' MDI 子级的父级
		'的功能。
		Me.MDIParent = 档案管理系统.frmMain.DefInstance.DefInstance
		档案管理系统.frmMain.DefInstance.DefInstance.Show
		'VB6 项目中的 MDI 窗体已将其
		'AutoShowChildren 属性设置为“真”
		'要模拟 VB6 行为，需要
		'在每次加载窗体时自动显示
		'该窗体。如果您不需要此行为，
		'请删除以下代码行
		'UPGRADE_NOTE: 移除下一行代码以阻止窗体自动显示。 单击以获得更多信息：'ms-help://MS.VSCC/commoner/redir/redirect.htm?keyword="vbup2018"'
		Me.Show
	End Sub
	'窗体重写处置，以清理组件列表。
	Protected Overloads Overrides Sub Dispose(ByVal Disposing As Boolean)
		If Disposing Then
			If Not components Is Nothing Then
				components.Dispose()
			End If
		End If
		MyBase.Dispose(Disposing)
	End Sub
	'Windows 窗体设计器所必需的
	Private components As System.ComponentModel.IContainer
	Public ToolTip1 As System.Windows.Forms.ToolTip
	Public WithEvents SliptBar As System.Windows.Forms.PictureBox
	Public WithEvents TreeView As AxComctlLib.AxTreeView
	Public WithEvents picEditFile As System.Windows.Forms.PictureBox
	Public WithEvents _txtFields_3 As System.Windows.Forms.TextBox
	Public WithEvents _txtFields_2 As System.Windows.Forms.TextBox
	Public WithEvents _txtFields_1 As System.Windows.Forms.TextBox
	Public WithEvents _txtFields_0 As System.Windows.Forms.TextBox
	Public WithEvents Line16 As System.Windows.Forms.Label
	Public WithEvents Line15 As System.Windows.Forms.Label
	Public WithEvents Line14 As System.Windows.Forms.Label
	Public WithEvents Line13 As System.Windows.Forms.Label
	Public WithEvents Line12 As System.Windows.Forms.Label
	Public WithEvents Line11 As System.Windows.Forms.Label
	Public WithEvents Line10 As System.Windows.Forms.Label
	Public WithEvents Line9 As System.Windows.Forms.Label
	Public WithEvents Line8 As System.Windows.Forms.Label
	Public WithEvents Line7 As System.Windows.Forms.Label
	Public WithEvents Line6 As System.Windows.Forms.Label
	Public WithEvents Line5 As System.Windows.Forms.Label
	Public WithEvents Line4 As System.Windows.Forms.Label
	Public WithEvents Line3 As System.Windows.Forms.Label
	Public WithEvents Line2 As System.Windows.Forms.Label
	Public WithEvents Line1 As System.Windows.Forms.Label
	Public WithEvents lBottom As System.Windows.Forms.Label
	Public WithEvents lRight As System.Windows.Forms.Label
	Public WithEvents lTop As System.Windows.Forms.Label
	Public WithEvents lLeft As System.Windows.Forms.Label
	Public WithEvents _Label1_3 As System.Windows.Forms.Label
	Public WithEvents _Label1_2 As System.Windows.Forms.Label
	Public WithEvents _Label1_1 As System.Windows.Forms.Label
	Public WithEvents _Label1_0 As System.Windows.Forms.Label
	Public WithEvents lblLine As System.Windows.Forms.Label
	Public WithEvents lblFileCaption As System.Windows.Forms.Label
	Public WithEvents Label2 As System.Windows.Forms.Label
	Public WithEvents ListView As System.Windows.Forms.Panel
	Public WithEvents imlSmallIcons As AxComctlLib.AxImageList
	Public WithEvents imgSplit As System.Windows.Forms.PictureBox
	Public WithEvents Label1 As Microsoft.VisualBasic.Compatibility.VB6.LabelArray
	Public WithEvents txtFields As Microsoft.VisualBasic.Compatibility.VB6.TextBoxArray
	Public WithEvents MnuSearchFile As System.Windows.Forms.MenuItem
	Public WithEvents Line03 As System.Windows.Forms.MenuItem
	Public WithEvents MnuRefresh As System.Windows.Forms.MenuItem
	Public WithEvents MLine2 As System.Windows.Forms.MenuItem
	Public WithEvents MnuFolder As System.Windows.Forms.MenuItem
	Public WithEvents MLine01 As System.Windows.Forms.MenuItem
	Public WithEvents MnuAddFile As System.Windows.Forms.MenuItem
	Public WithEvents MnuModifyFile As System.Windows.Forms.MenuItem
	Public WithEvents MnuDeleteFile As System.Windows.Forms.MenuItem
	Public WithEvents Line502 As System.Windows.Forms.MenuItem
	Public WithEvents MnuOpenFile As System.Windows.Forms.MenuItem
	Public WithEvents MnuControl As System.Windows.Forms.MenuItem
	Public WithEvents MnuReturn As System.Windows.Forms.MenuItem
	Public WithEvents Line601 As System.Windows.Forms.MenuItem
	Public WithEvents MnuExit As System.Windows.Forms.MenuItem
	Public WithEvents MnuReturnX As System.Windows.Forms.MenuItem
	Public MainMenu1 As System.Windows.Forms.MainMenu
	'注意：以下过程是 Windows 窗体设计器所必需的
	'可以使用 Windows 窗体设计器来修改它。
	'不要使用代码编辑器来修改它。
	<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Me.components = New System.ComponentModel.Container()
        Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(frmManager))
        Me.ToolTip1 = New System.Windows.Forms.ToolTip(Me.components)
        Me.picEditFile = New System.Windows.Forms.PictureBox()
        Me.SliptBar = New System.Windows.Forms.PictureBox()
        Me.TreeView = New AxComctlLib.AxTreeView()
        Me.ListView = New System.Windows.Forms.Panel()
        Me._txtFields_3 = New System.Windows.Forms.TextBox()
        Me._txtFields_2 = New System.Windows.Forms.TextBox()
        Me._txtFields_1 = New System.Windows.Forms.TextBox()
        Me._txtFields_0 = New System.Windows.Forms.TextBox()
        Me.Line16 = New System.Windows.Forms.Label()
        Me.Line15 = New System.Windows.Forms.Label()
        Me.Line14 = New System.Windows.Forms.Label()
        Me.Line13 = New System.Windows.Forms.Label()
        Me.Line12 = New System.Windows.Forms.Label()
        Me.Line11 = New System.Windows.Forms.Label()
        Me.Line10 = New System.Windows.Forms.Label()
        Me.Line9 = New System.Windows.Forms.Label()
        Me.Line8 = New System.Windows.Forms.Label()
        Me.Line7 = New System.Windows.Forms.Label()
        Me.Line6 = New System.Windows.Forms.Label()
        Me.Line5 = New System.Windows.Forms.Label()
        Me.Line4 = New System.Windows.Forms.Label()
        Me.Line3 = New System.Windows.Forms.Label()
        Me.Line2 = New System.Windows.Forms.Label()
        Me.Line1 = New System.Windows.Forms.Label()
        Me.lBottom = New System.Windows.Forms.Label()
        Me.lRight = New System.Windows.Forms.Label()
        Me.lTop = New System.Windows.Forms.Label()
        Me.lLeft = New System.Windows.Forms.Label()
        Me._Label1_3 = New System.Windows.Forms.Label()
        Me._Label1_2 = New System.Windows.Forms.Label()
        Me._Label1_1 = New System.Windows.Forms.Label()
        Me._Label1_0 = New System.Windows.Forms.Label()
        Me.lblLine = New System.Windows.Forms.Label()
        Me.lblFileCaption = New System.Windows.Forms.Label()
        Me.Label2 = New System.Windows.Forms.Label()
        Me.imlSmallIcons = New AxComctlLib.AxImageList()
        Me.imgSplit = New System.Windows.Forms.PictureBox()
        Me.Label1 = New Microsoft.VisualBasic.Compatibility.VB6.LabelArray(Me.components)
        Me.txtFields = New Microsoft.VisualBasic.Compatibility.VB6.TextBoxArray(Me.components)
        Me.MainMenu1 = New System.Windows.Forms.MainMenu()
        Me.MnuControl = New System.Windows.Forms.MenuItem()
        Me.MnuSearchFile = New System.Windows.Forms.MenuItem()
        Me.Line03 = New System.Windows.Forms.MenuItem()
        Me.MnuRefresh = New System.Windows.Forms.MenuItem()
        Me.MLine2 = New System.Windows.Forms.MenuItem()
        Me.MnuFolder = New System.Windows.Forms.MenuItem()
        Me.MLine01 = New System.Windows.Forms.MenuItem()
        Me.MnuAddFile = New System.Windows.Forms.MenuItem()
        Me.MnuModifyFile = New System.Windows.Forms.MenuItem()
        Me.MnuDeleteFile = New System.Windows.Forms.MenuItem()
        Me.Line502 = New System.Windows.Forms.MenuItem()
        Me.MnuOpenFile = New System.Windows.Forms.MenuItem()
        Me.MnuReturnX = New System.Windows.Forms.MenuItem()
        Me.MnuReturn = New System.Windows.Forms.MenuItem()
        Me.Line601 = New System.Windows.Forms.MenuItem()
        Me.MnuExit = New System.Windows.Forms.MenuItem()
        CType(Me.TreeView, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.ListView.SuspendLayout()
        CType(Me.imlSmallIcons, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.Label1, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.txtFields, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.SuspendLayout()
        '
        'picEditFile
        '
        Me.picEditFile.BackColor = System.Drawing.Color.FromArgb(CType(224, Byte), CType(224, Byte), CType(224, Byte))
        Me.picEditFile.ForeColor = System.Drawing.SystemColors.ControlText
        Me.picEditFile.Image = CType(resources.GetObject("picEditFile.Image"), System.Drawing.Bitmap)
        Me.picEditFile.Location = New System.Drawing.Point(562, 135)
        Me.picEditFile.Name = "picEditFile"
        Me.picEditFile.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.picEditFile.Size = New System.Drawing.Size(16, 16)
        Me.picEditFile.SizeMode = System.Windows.Forms.PictureBoxSizeMode.AutoSize
        Me.picEditFile.TabIndex = 14
        Me.picEditFile.TabStop = False
        Me.ToolTip1.SetToolTip(Me.picEditFile, "查看、编辑、打印文件")
        Me.picEditFile.Visible = False
        '
        'SliptBar
        '
        Me.SliptBar.BackColor = System.Drawing.Color.FromArgb(CType(192, Byte), CType(255, Byte), CType(192, Byte))
        Me.SliptBar.Cursor = System.Windows.Forms.Cursors.Default
        Me.SliptBar.ForeColor = System.Drawing.Color.Red
        Me.SliptBar.Location = New System.Drawing.Point(216, 1)
        Me.SliptBar.Name = "SliptBar"
        Me.SliptBar.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.SliptBar.Size = New System.Drawing.Size(5, 366)
        Me.SliptBar.TabIndex = 1
        Me.SliptBar.TabStop = False
        Me.SliptBar.Visible = False
        '
        'TreeView
        '
        Me.TreeView.Location = New System.Drawing.Point(6, 13)
        Me.TreeView.Name = "TreeView"
        Me.TreeView.OcxState = CType(resources.GetObject("TreeView.OcxState"), System.Windows.Forms.AxHost.State)
        Me.TreeView.Size = New System.Drawing.Size(218, 340)
        Me.TreeView.TabIndex = 0
        '
        'ListView
        '
        Me.ListView.BackColor = System.Drawing.Color.FromArgb(CType(224, Byte), CType(224, Byte), CType(224, Byte))
        Me.ListView.Controls.AddRange(New System.Windows.Forms.Control() {Me.picEditFile, Me._txtFields_3, Me._txtFields_2, Me._txtFields_1, Me._txtFields_0, Me.Line16, Me.Line15, Me.Line14, Me.Line13, Me.Line12, Me.Line11, Me.Line10, Me.Line9, Me.Line8, Me.Line7, Me.Line6, Me.Line5, Me.Line4, Me.Line3, Me.Line2, Me.Line1, Me.lBottom, Me.lRight, Me.lTop, Me.lLeft, Me._Label1_3, Me._Label1_2, Me._Label1_1, Me._Label1_0, Me.lblLine, Me.lblFileCaption, Me.Label2})
        Me.ListView.Cursor = System.Windows.Forms.Cursors.Default
        Me.ListView.ForeColor = System.Drawing.SystemColors.ControlText
        Me.ListView.Location = New System.Drawing.Point(276, 13)
        Me.ListView.Name = "ListView"
        Me.ListView.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.ListView.Size = New System.Drawing.Size(697, 444)
        Me.ListView.TabIndex = 2
        Me.ListView.TabStop = True
        '
        '_txtFields_3
        '
        Me._txtFields_3.AcceptsReturn = True
        Me._txtFields_3.AutoSize = False
        Me._txtFields_3.BackColor = System.Drawing.Color.FromArgb(CType(224, Byte), CType(224, Byte), CType(224, Byte))
        Me._txtFields_3.BorderStyle = System.Windows.Forms.BorderStyle.None
        Me._txtFields_3.Cursor = System.Windows.Forms.Cursors.IBeam
        Me._txtFields_3.ForeColor = System.Drawing.SystemColors.WindowText
        Me.txtFields.SetIndex(Me._txtFields_3, CType(3, Short))
        Me._txtFields_3.Location = New System.Drawing.Point(124, 293)
        Me._txtFields_3.MaxLength = 50
        Me._txtFields_3.Multiline = True
        Me._txtFields_3.Name = "_txtFields_3"
        Me._txtFields_3.ReadOnly = True
        Me._txtFields_3.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me._txtFields_3.ScrollBars = System.Windows.Forms.ScrollBars.Vertical
        Me._txtFields_3.Size = New System.Drawing.Size(428, 104)
        Me._txtFields_3.TabIndex = 11
        Me._txtFields_3.Text = ""
        '
        '_txtFields_2
        '
        Me._txtFields_2.AcceptsReturn = True
        Me._txtFields_2.AutoSize = False
        Me._txtFields_2.BackColor = System.Drawing.Color.FromArgb(CType(224, Byte), CType(224, Byte), CType(224, Byte))
        Me._txtFields_2.BorderStyle = System.Windows.Forms.BorderStyle.None
        Me._txtFields_2.Cursor = System.Windows.Forms.Cursors.IBeam
        Me._txtFields_2.ForeColor = System.Drawing.SystemColors.WindowText
        Me.txtFields.SetIndex(Me._txtFields_2, CType(2, Short))
        Me._txtFields_2.Location = New System.Drawing.Point(124, 168)
        Me._txtFields_2.MaxLength = 100
        Me._txtFields_2.Multiline = True
        Me._txtFields_2.Name = "_txtFields_2"
        Me._txtFields_2.ReadOnly = True
        Me._txtFields_2.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me._txtFields_2.ScrollBars = System.Windows.Forms.ScrollBars.Vertical
        Me._txtFields_2.Size = New System.Drawing.Size(428, 104)
        Me._txtFields_2.TabIndex = 10
        Me._txtFields_2.Text = ""
        '
        '_txtFields_1
        '
        Me._txtFields_1.AcceptsReturn = True
        Me._txtFields_1.AutoSize = False
        Me._txtFields_1.BackColor = System.Drawing.Color.FromArgb(CType(224, Byte), CType(224, Byte), CType(224, Byte))
        Me._txtFields_1.BorderStyle = System.Windows.Forms.BorderStyle.None
        Me._txtFields_1.Cursor = System.Windows.Forms.Cursors.IBeam
        Me._txtFields_1.ForeColor = System.Drawing.SystemColors.WindowText
        Me.txtFields.SetIndex(Me._txtFields_1, CType(1, Short))
        Me._txtFields_1.Location = New System.Drawing.Point(124, 138)
        Me._txtFields_1.MaxLength = 0
        Me._txtFields_1.Name = "_txtFields_1"
        Me._txtFields_1.ReadOnly = True
        Me._txtFields_1.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me._txtFields_1.Size = New System.Drawing.Size(424, 15)
        Me._txtFields_1.TabIndex = 6
        Me._txtFields_1.Text = ""
        '
        '_txtFields_0
        '
        Me._txtFields_0.AcceptsReturn = True
        Me._txtFields_0.AutoSize = False
        Me._txtFields_0.BackColor = System.Drawing.Color.FromArgb(CType(224, Byte), CType(224, Byte), CType(224, Byte))
        Me._txtFields_0.BorderStyle = System.Windows.Forms.BorderStyle.None
        Me._txtFields_0.Cursor = System.Windows.Forms.Cursors.IBeam
        Me._txtFields_0.ForeColor = System.Drawing.SystemColors.WindowText
        Me.txtFields.SetIndex(Me._txtFields_0, CType(0, Short))
        Me._txtFields_0.Location = New System.Drawing.Point(124, 105)
        Me._txtFields_0.MaxLength = 0
        Me._txtFields_0.Name = "_txtFields_0"
        Me._txtFields_0.ReadOnly = True
        Me._txtFields_0.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me._txtFields_0.Size = New System.Drawing.Size(424, 15)
        Me._txtFields_0.TabIndex = 5
        Me._txtFields_0.Text = ""
        '
        'Line16
        '
        Me.Line16.BackColor = System.Drawing.Color.White
        Me.Line16.Location = New System.Drawing.Point(550, 133)
        Me.Line16.Name = "Line16"
        Me.Line16.Size = New System.Drawing.Size(2, 23)
        Me.Line16.TabIndex = 15
        '
        'Line15
        '
        Me.Line15.BackColor = System.Drawing.Color.White
        Me.Line15.Location = New System.Drawing.Point(550, 101)
        Me.Line15.Name = "Line15"
        Me.Line15.Size = New System.Drawing.Size(2, 24)
        Me.Line15.TabIndex = 16
        '
        'Line14
        '
        Me.Line14.BackColor = System.Drawing.Color.FromArgb(CType(128, Byte), CType(128, Byte), CType(128, Byte))
        Me.Line14.Location = New System.Drawing.Point(120, 289)
        Me.Line14.Name = "Line14"
        Me.Line14.Size = New System.Drawing.Size(432, 1)
12 3 4 下一页
💿 文件大小 1688 K
👤 上传用户 lwsnsfp17
📂 所属分类数据库系统
🏷️ 相关标签

#程序
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -