frmmain.vb

<Visual Basic 数据库开发实例精粹（第二版）>一书首先介绍了Visual Basic(简称VB)开发的技巧和重点技术

Public Class frmMain
    Inherits System.Windows.Forms.Form

  Private m_bShowingAbout As Boolean = False '是否正在显示“关于”信息
  Private m_SearchAction As SearchAction = SearchAction.Show '当前搜索面板的执行动作

#Region " Windows 窗体设计器生成的代码 "

  Public Sub New()
    MyBase.New()

    '该调用是 Windows 窗体设计器所必需的。
    InitializeComponent()

    '在 InitializeComponent() 调用之后添加任何初始化

  End Sub

  '窗体重写 dispose 以清理组件列表。
  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

  '注意: 以下过程是 Windows 窗体设计器所必需的
  '可以使用 Windows 窗体设计器修改此过程。
  '不要使用代码编辑器修改它。
  Public WithEvents MainMenu1 As System.Windows.Forms.MainMenu
  Public WithEvents mnuSystem As System.Windows.Forms.MenuItem
  Public WithEvents ln1 As System.Windows.Forms.MenuItem
  Public WithEvents mnuExit As System.Windows.Forms.MenuItem
  Public WithEvents mnuInfoProc As System.Windows.Forms.MenuItem
  Public WithEvents mnuNewInfo As System.Windows.Forms.MenuItem
  Public WithEvents mnuGetInfo As System.Windows.Forms.MenuItem
  Public WithEvents ln3 As System.Windows.Forms.MenuItem
  Public WithEvents mnuHelp As System.Windows.Forms.MenuItem
  Public WithEvents mnuHelpCHM As System.Windows.Forms.MenuItem
  Public WithEvents ln4 As System.Windows.Forms.MenuItem
  Public WithEvents mnuAbout As System.Windows.Forms.MenuItem
  Friend WithEvents StatusBar1 As System.Windows.Forms.StatusBar
  Friend WithEvents stbPanalNum As System.Windows.Forms.StatusBarPanel
  Friend WithEvents stbInfo As System.Windows.Forms.StatusBarPanel
  Friend WithEvents stdCapsLock As System.Windows.Forms.StatusBarPanel
  Friend WithEvents stbLogo As System.Windows.Forms.StatusBarPanel
  Public WithEvents labTitle As System.Windows.Forms.Label
  Friend WithEvents trvDept As System.Windows.Forms.TreeView
  Public WithEvents Label2 As System.Windows.Forms.Label
  Public WithEvents palPrevTitle As System.Windows.Forms.Panel
  Public WithEvents labPrevTitle As System.Windows.Forms.Label
  Friend WithEvents labLoginedDept As System.Windows.Forms.Label
  Friend WithEvents rtxtContent As System.Windows.Forms.RichTextBox
  Friend WithEvents tbnReceiveAll As System.Windows.Forms.ToolBarButton
  Friend WithEvents tbnNew As System.Windows.Forms.ToolBarButton
  Friend WithEvents tbnReply As System.Windows.Forms.ToolBarButton
  Friend WithEvents tbnBroadcast As System.Windows.Forms.ToolBarButton
  Friend WithEvents cMenuReceive As System.Windows.Forms.ContextMenu
  Friend WithEvents MenuItem1 As System.Windows.Forms.MenuItem
  Friend WithEvents MenuItem2 As System.Windows.Forms.MenuItem
  Friend WithEvents MenuItem3 As System.Windows.Forms.MenuItem
  Friend WithEvents ImgListToolbar As System.Windows.Forms.ImageList
  Friend WithEvents ImgListTreeView As System.Windows.Forms.ImageList
  Friend WithEvents ImgListListViewS As System.Windows.Forms.ImageList
  Friend WithEvents tlvMsgTitle As System.Windows.Forms.TreeListView
  Public WithEvents mnuUserMgr As System.Windows.Forms.MenuItem
  Public WithEvents mnuloginOut As System.Windows.Forms.MenuItem
  Friend WithEvents MenuItem4 As System.Windows.Forms.MenuItem
  Friend WithEvents MenuItem6 As System.Windows.Forms.MenuItem
  Friend WithEvents tbMain As System.Windows.Forms.ToolBar
  Friend WithEvents mnuOnlineSupport As System.Windows.Forms.MenuItem
  Friend WithEvents sp1 As System.Windows.Forms.ToolBarButton
  Friend WithEvents sp2 As System.Windows.Forms.ToolBarButton
  Friend WithEvents sp3 As System.Windows.Forms.ToolBarButton
  Friend WithEvents sp4 As System.Windows.Forms.ToolBarButton
  Friend WithEvents sp5 As System.Windows.Forms.ToolBarButton
  Friend WithEvents tbnDelete As System.Windows.Forms.ToolBarButton
  Friend WithEvents tbnSearch As System.Windows.Forms.ToolBarButton
  Friend WithEvents tbnAbout As System.Windows.Forms.ToolBarButton
  Friend WithEvents tbnSupport As System.Windows.Forms.ToolBarButton
  Friend WithEvents tbnExit As System.Windows.Forms.ToolBarButton
  Friend WithEvents tbnUserMgr As System.Windows.Forms.ToolBarButton
  Public WithEvents mnuReply As System.Windows.Forms.MenuItem
  Public WithEvents mnuDelete As System.Windows.Forms.MenuItem
  Public WithEvents mnuSearch As System.Windows.Forms.MenuItem
  Public WithEvents mnuBroadcast As System.Windows.Forms.MenuItem
  Friend WithEvents splitLeft As System.Windows.Forms.Splitter
  Public WithEvents chkAddresser As System.Windows.Forms.CheckBox
  Public WithEvents Label4 As System.Windows.Forms.Label
  Public WithEvents chkContent As System.Windows.Forms.CheckBox
  Public WithEvents txtKeys As System.Windows.Forms.TextBox
  Public WithEvents cmdSearch As System.Windows.Forms.Button
  Public WithEvents cmdBack As System.Windows.Forms.Button
  Friend WithEvents tmrSearch As System.Windows.Forms.Timer
  Friend WithEvents xplSearch As XPanderControl.XPanderList
  Public WithEvents txtAddresser As System.Windows.Forms.TextBox
  Friend WithEvents chkExcludeReply As System.Windows.Forms.CheckBox
  Public WithEvents labResult As System.Windows.Forms.Label
  Public WithEvents labResult1 As System.Windows.Forms.Label
  Public WithEvents cboDept As System.Windows.Forms.ComboBox
  Friend WithEvents rdiDeptSend As System.Windows.Forms.RadioButton
  Friend WithEvents rdiDeptReceive As System.Windows.Forms.RadioButton
  Friend WithEvents XPanderBaseSearch As XPanderControl.XPander
  Friend WithEvents XPanderAdvSearch As XPanderControl.XPander
  Public WithEvents palLoginInfo As System.Windows.Forms.Panel
  Friend WithEvents splitMsgUp As System.Windows.Forms.Splitter
  <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
    Me.components = New System.ComponentModel.Container
    Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(frmMain))
    Me.MainMenu1 = New System.Windows.Forms.MainMenu
    Me.mnuSystem = New System.Windows.Forms.MenuItem
    Me.mnuUserMgr = New System.Windows.Forms.MenuItem
    Me.ln1 = New System.Windows.Forms.MenuItem
    Me.mnuloginOut = New System.Windows.Forms.MenuItem
    Me.mnuExit = New System.Windows.Forms.MenuItem
    Me.mnuInfoProc = New System.Windows.Forms.MenuItem
    Me.mnuGetInfo = New System.Windows.Forms.MenuItem
    Me.MenuItem4 = New System.Windows.Forms.MenuItem
    Me.mnuNewInfo = New System.Windows.Forms.MenuItem
    Me.mnuReply = New System.Windows.Forms.MenuItem
    Me.mnuBroadcast = New System.Windows.Forms.MenuItem
    Me.mnuDelete = New System.Windows.Forms.MenuItem
    Me.ln3 = New System.Windows.Forms.MenuItem
    Me.mnuSearch = New System.Windows.Forms.MenuItem
    Me.mnuHelp = New System.Windows.Forms.MenuItem
    Me.mnuHelpCHM = New System.Windows.Forms.MenuItem
    Me.ln4 = New System.Windows.Forms.MenuItem
    Me.mnuOnlineSupport = New System.Windows.Forms.MenuItem
    Me.MenuItem6 = New System.Windows.Forms.MenuItem
    Me.mnuAbout = New System.Windows.Forms.MenuItem
    Me.palLoginInfo = New System.Windows.Forms.Panel
    Me.labLoginedDept = New System.Windows.Forms.Label
    Me.labTitle = New System.Windows.Forms.Label
    Me.trvDept = New System.Windows.Forms.TreeView
    Me.ImgListTreeView = New System.Windows.Forms.ImageList(Me.components)
    Me.ImgListListViewS = New System.Windows.Forms.ImageList(Me.components)
    Me.StatusBar1 = New System.Windows.Forms.StatusBar
    Me.stbInfo = New System.Windows.Forms.StatusBarPanel
    Me.stbLogo = New System.Windows.Forms.StatusBarPanel
    Me.stdCapsLock = New System.Windows.Forms.StatusBarPanel
    Me.stbPanalNum = New System.Windows.Forms.StatusBarPanel
    Me.palPrevTitle = New System.Windows.Forms.Panel
    Me.labPrevTitle = New System.Windows.Forms.Label
    Me.Label2 = New System.Windows.Forms.Label
    Me.rtxtContent = New System.Windows.Forms.RichTextBox
    Me.tbMain = New System.Windows.Forms.ToolBar
    Me.tbnReceiveAll = New System.Windows.Forms.ToolBarButton
    Me.sp1 = New System.Windows.Forms.ToolBarButton
    Me.tbnNew = New System.Windows.Forms.ToolBarButton
    Me.tbnReply = New System.Windows.Forms.ToolBarButton
    Me.tbnBroadcast = New System.Windows.Forms.ToolBarButton
    Me.tbnDelete = New System.Windows.Forms.ToolBarButton
    Me.sp2 = New System.Windows.Forms.ToolBarButton
    Me.tbnSearch = New System.Windows.Forms.ToolBarButton
    Me.sp3 = New System.Windows.Forms.ToolBarButton
    Me.tbnUserMgr = New System.Windows.Forms.ToolBarButton
    Me.sp4 = New System.Windows.Forms.ToolBarButton
    Me.tbnAbout = New System.Windows.Forms.ToolBarButton
    Me.tbnSupport = New System.Windows.Forms.ToolBarButton
    Me.sp5 = New System.Windows.Forms.ToolBarButton
    Me.tbnExit = New System.Windows.Forms.ToolBarButton
    Me.ImgListToolbar = New System.Windows.Forms.ImageList(Me.components)
    Me.cMenuReceive = New System.Windows.Forms.ContextMenu
    Me.MenuItem1 = New System.Windows.Forms.MenuItem
    Me.MenuItem2 = New System.Windows.Forms.MenuItem
    Me.MenuItem3 = New System.Windows.Forms.MenuItem
    Me.splitLeft = New System.Windows.Forms.Splitter
    Me.splitMsgUp = New System.Windows.Forms.Splitter
    Me.tlvMsgTitle = New System.Windows.Forms.TreeListView
    Me.xplSearch = New XPanderControl.XPanderList
    Me.XPanderBaseSearch = New XPanderControl.XPander
    Me.rdiDeptSend = New System.Windows.Forms.RadioButton
    Me.rdiDeptReceive = New System.Windows.Forms.RadioButton
    Me.cboDept = New System.Windows.Forms.ComboBox
    Me.chkAddresser = New System.Windows.Forms.CheckBox
    Me.txtAddresser = New System.Windows.Forms.TextBox
    Me.Label4 = New System.Windows.Forms.Label
    Me.labResult = New System.Windows.Forms.Label
    Me.labResult1 = New System.Windows.Forms.Label
    Me.cmdSearch = New System.Windows.Forms.Button
    Me.cmdBack = New System.Windows.Forms.Button
    Me.XPanderAdvSearch = New XPanderControl.XPander
    Me.chkExcludeReply = New System.Windows.Forms.CheckBox
    Me.chkContent = New System.Windows.Forms.CheckBox
    Me.txtKeys = New System.Windows.Forms.TextBox
    Me.tmrSearch = New System.Windows.Forms.Timer(Me.components)
    Me.palLoginInfo.SuspendLayout()
    CType(Me.stbInfo, System.ComponentModel.ISupportInitialize).BeginInit()
    CType(Me.stbLogo, System.ComponentModel.ISupportInitialize).BeginInit()
    CType(Me.stdCapsLock, System.ComponentModel.ISupportInitialize).BeginInit()
    CType(Me.stbPanalNum, System.ComponentModel.ISupportInitialize).BeginInit()
    Me.palPrevTitle.SuspendLayout()
    Me.xplSearch.SuspendLayout()
    Me.XPanderBaseSearch.SuspendLayout()
    Me.XPanderAdvSearch.SuspendLayout()
    Me.SuspendLayout()
    '
    'MainMenu1
    '
    Me.MainMenu1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mnuSystem, Me.mnuInfoProc, Me.mnuHelp})
    '
    'mnuSystem
    '
    Me.mnuSystem.Index = 0
    Me.mnuSystem.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mnuUserMgr, Me.ln1, Me.mnuloginOut, Me.mnuExit})
    Me.mnuSystem.Text = "系统(&S)"
    '
    'mnuUserMgr
    '
    Me.mnuUserMgr.Index = 0
    Me.mnuUserMgr.Shortcut = System.Windows.Forms.Shortcut.CtrlU
    Me.mnuUserMgr.Text = "用户管理(&U)"
    '
    'ln1
    '
    Me.ln1.Index = 1
    Me.ln1.Text = "-"
    '
    'mnuloginOut
    '
    Me.mnuloginOut.Index = 2
    Me.mnuloginOut.Shortcut = System.Windows.Forms.Shortcut.CtrlL
    Me.mnuloginOut.Text = "注销(&L)"
    '
    'mnuExit
    '
    Me.mnuExit.Index = 3
    Me.mnuExit.Shortcut = System.Windows.Forms.Shortcut.CtrlX
    Me.mnuExit.Text = "退出系统(&X)"
    '
    'mnuInfoProc
    '
    Me.mnuInfoProc.Index = 1
    Me.mnuInfoProc.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mnuGetInfo, Me.MenuItem4, Me.mnuNewInfo, Me.mnuReply, Me.mnuBroadcast, Me.mnuDelete, Me.ln3, Me.mnuSearch})
    Me.mnuInfoProc.Text = "信息处理(&P)"
    '
    'mnuGetInfo
    '
    Me.mnuGetInfo.Index = 0
    Me.mnuGetInfo.Shortcut = System.Windows.Forms.Shortcut.CtrlO
    Me.mnuGetInfo.Text = "收取所有(&O)"
    '
    'MenuItem4
    '
    Me.MenuItem4.Index = 1
    Me.MenuItem4.Text = "-"
    '
    'mnuNewInfo
    '
    Me.mnuNewInfo.Index = 2
    Me.mnuNewInfo.Shortcut = System.Windows.Forms.Shortcut.CtrlN
    Me.mnuNewInfo.Text = "撰写(&N)"
    '
    'mnuReply
    '
    Me.mnuReply.Index = 3
    Me.mnuReply.Shortcut = System.Windows.Forms.Shortcut.CtrlR
    Me.mnuReply.Text = "回复信息(&R)"
    '
    'mnuBroadcast
    '
    Me.mnuBroadcast.Index = 4
    Me.mnuBroadcast.Shortcut = System.Windows.Forms.Shortcut.CtrlB
    Me.mnuBroadcast.Text = "发送广播(&B)"
    '
    'mnuDelete
    '
    Me.mnuDelete.Index = 5
    Me.mnuDelete.Shortcut = System.Windows.Forms.Shortcut.CtrlD
    Me.mnuDelete.Text = "删除信息(&D)"
    '
    'ln3
    '
    Me.ln3.Index = 6
    Me.ln3.Text = "-"
    '
    'mnuSearch
    '
    Me.mnuSearch.Index = 7
    Me.mnuSearch.Shortcut = System.Windows.Forms.Shortcut.CtrlQ
    Me.mnuSearch.Text = "查询信息(&Q)"
    '
    'mnuHelp
    '
    Me.mnuHelp.Index = 2
    Me.mnuHelp.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mnuHelpCHM, Me.ln4, Me.mnuOnlineSupport, Me.MenuItem6, Me.mnuAbout})
    Me.mnuHelp.Text = "帮助(&H)"
    '
    'mnuHelpCHM
    '
    Me.mnuHelpCHM.Index = 0
    Me.mnuHelpCHM.Shortcut = System.Windows.Forms.Shortcut.CtrlH
    Me.mnuHelpCHM.Text = "使用帮助(&H)"
    '
    'ln4
    '
    Me.ln4.Index = 1
    Me.ln4.Text = "-"
    '
    'mnuOnlineSupport
    '
    Me.mnuOnlineSupport.Index = 2
    Me.mnuOnlineSupport.Shortcut = System.Windows.Forms.Shortcut.CtrlO
    Me.mnuOnlineSupport.Text = "在线支持(&O)"
    '
    'MenuItem6
    '
    Me.MenuItem6.Index = 3
    Me.MenuItem6.Text = "-"
    '
    'mnuAbout
    '
    Me.mnuAbout.Index = 4
    Me.mnuAbout.Shortcut = System.Windows.Forms.Shortcut.CtrlA
    Me.mnuAbout.Text = "关于(&A)"
    '
    'palLoginInfo
    '
    Me.palLoginInfo.BackColor = System.Drawing.Color.FromArgb(CType(128, Byte), CType(128, Byte), CType(128, Byte))
    Me.palLoginInfo.Controls.Add(Me.labLoginedDept)
    Me.palLoginInfo.Controls.Add(Me.labTitle)
    Me.palLoginInfo.Cursor = System.Windows.Forms.Cursors.Default
    Me.palLoginInfo.Dock = System.Windows.Forms.DockStyle.Top
    Me.palLoginInfo.ForeColor = System.Drawing.SystemColors.WindowText
    Me.palLoginInfo.Location = New System.Drawing.Point(229, 229)
    Me.palLoginInfo.Name = "palLoginInfo"
    Me.palLoginInfo.RightToLeft = System.Windows.Forms.RightToLeft.No
    Me.palLoginInfo.Size = New System.Drawing.Size(547, 22)
    Me.palLoginInfo.TabIndex = 35
    Me.palLoginInfo.TabStop = True