form1.vb

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

Public Class Form1
    Inherits System.Windows.Forms.Form

  Dim m_Left, m_Top As Long
  Dim m_Height As Long
  'Dim traymsg As New Utility.TrayMsg

#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 窗体设计器修改此过程。
    '不要使用代码编辑器修改它。
  Friend WithEvents NotifyIcon1 As System.Windows.Forms.NotifyIcon
  Friend WithEvents Button1 As System.Windows.Forms.Button
  Friend WithEvents ToolTip1 As System.Windows.Forms.ToolTip
  Friend WithEvents Timer1 As System.Windows.Forms.Timer
  Friend WithEvents Button2 As System.Windows.Forms.Button
  Friend WithEvents Splitter1 As System.Windows.Forms.Splitter
  Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
  Protected WithEvents Splitter2 As System.Windows.Forms.Splitter
  Friend WithEvents labContent As System.Windows.Forms.Label
  Friend WithEvents labProcLimitTime As System.Windows.Forms.Label
  Friend WithEvents labSendTime As System.Windows.Forms.Label
  Friend WithEvents labAddresserTel As System.Windows.Forms.Label
  Friend WithEvents labAddresser As System.Windows.Forms.Label
  Friend WithEvents labDept As System.Windows.Forms.Label
  Public WithEvents CheckBox1 As System.Windows.Forms.CheckBox
  Public WithEvents _lbl_4 As System.Windows.Forms.Label
  Public WithEvents _lbl_3 As System.Windows.Forms.Label
  Public WithEvents cmdQuery As System.Windows.Forms.Button
  Public WithEvents cmdReturn As System.Windows.Forms.Button
  Public WithEvents chkDeptSend As System.Windows.Forms.CheckBox
  Public WithEvents cboDeptReceive As System.Windows.Forms.ComboBox
  Public WithEvents chkDeptReceive As System.Windows.Forms.CheckBox
  Public WithEvents chkAddresser As System.Windows.Forms.CheckBox
  Public WithEvents _txt_6 As System.Windows.Forms.TextBox
  Public WithEvents cboDeptSend As System.Windows.Forms.ComboBox
  Public WithEvents Label4 As System.Windows.Forms.Label
  Public WithEvents TextBox1 As System.Windows.Forms.TextBox
  Friend WithEvents MainMenu1 As System.Windows.Forms.MainMenu
  <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
    Me.components = New System.ComponentModel.Container
    Me.NotifyIcon1 = New System.Windows.Forms.NotifyIcon(Me.components)
    Me.Button1 = New System.Windows.Forms.Button
    Me.ToolTip1 = New System.Windows.Forms.ToolTip(Me.components)
    Me.Timer1 = New System.Windows.Forms.Timer(Me.components)
    Me.Button2 = New System.Windows.Forms.Button
    Me.Splitter1 = New System.Windows.Forms.Splitter
    Me.GroupBox1 = New System.Windows.Forms.GroupBox
    Me.Splitter2 = New System.Windows.Forms.Splitter
    Me.labContent = New System.Windows.Forms.Label
    Me.labProcLimitTime = New System.Windows.Forms.Label
    Me.labSendTime = New System.Windows.Forms.Label
    Me.labAddresserTel = New System.Windows.Forms.Label
    Me.labAddresser = New System.Windows.Forms.Label
    Me.labDept = New System.Windows.Forms.Label
    Me.CheckBox1 = New System.Windows.Forms.CheckBox
    Me._lbl_4 = New System.Windows.Forms.Label
    Me._lbl_3 = New System.Windows.Forms.Label
    Me.cmdQuery = New System.Windows.Forms.Button
    Me.cmdReturn = New System.Windows.Forms.Button
    Me.chkDeptSend = New System.Windows.Forms.CheckBox
    Me.cboDeptReceive = New System.Windows.Forms.ComboBox
    Me.chkDeptReceive = New System.Windows.Forms.CheckBox
    Me.chkAddresser = New System.Windows.Forms.CheckBox
    Me._txt_6 = New System.Windows.Forms.TextBox
    Me.cboDeptSend = New System.Windows.Forms.ComboBox
    Me.Label4 = New System.Windows.Forms.Label
    Me.TextBox1 = New System.Windows.Forms.TextBox
    Me.MainMenu1 = New System.Windows.Forms.MainMenu
    Me.GroupBox1.SuspendLayout()
    Me.SuspendLayout()
    '
    'NotifyIcon1
    '
    Me.NotifyIcon1.Text = "NotifyIcon1"
    Me.NotifyIcon1.Visible = True
    '
    'Button1
    '
    Me.Button1.Location = New System.Drawing.Point(208, 72)
    Me.Button1.Name = "Button1"
    Me.Button1.Size = New System.Drawing.Size(32, 40)
    Me.Button1.TabIndex = 0
    Me.Button1.Text = "Button1"
    '
    'Timer1
    '
    '
    'Button2
    '
    Me.Button2.Location = New System.Drawing.Point(80, 32)
    Me.Button2.Name = "Button2"
    Me.Button2.Size = New System.Drawing.Size(72, 40)
    Me.Button2.TabIndex = 1
    Me.Button2.Text = "Button2"
    '
    'Splitter1
    '
    Me.Splitter1.Dock = System.Windows.Forms.DockStyle.Top
    Me.Splitter1.Location = New System.Drawing.Point(0, 0)
    Me.Splitter1.Name = "Splitter1"
    Me.Splitter1.Size = New System.Drawing.Size(882, 16)
    Me.Splitter1.TabIndex = 2
    Me.Splitter1.TabStop = False
    '
    'GroupBox1
    '
    Me.GroupBox1.Controls.Add(Me.Splitter2)
    Me.GroupBox1.Location = New System.Drawing.Point(208, 136)
    Me.GroupBox1.Name = "GroupBox1"
    Me.GroupBox1.Size = New System.Drawing.Size(264, 208)
    Me.GroupBox1.TabIndex = 3
    Me.GroupBox1.TabStop = False
    Me.GroupBox1.Text = "GroupBox1"
    '
    'Splitter2
    '
    Me.Splitter2.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
    Me.Splitter2.Location = New System.Drawing.Point(3, 17)
    Me.Splitter2.Name = "Splitter2"
    Me.Splitter2.Size = New System.Drawing.Size(16, 188)
    Me.Splitter2.TabIndex = 0
    Me.Splitter2.TabStop = False
    '
    'labContent
    '
    Me.labContent.AutoSize = True
    Me.labContent.Location = New System.Drawing.Point(88, 216)
    Me.labContent.Name = "labContent"
    Me.labContent.Size = New System.Drawing.Size(54, 17)
    Me.labContent.TabIndex = 51
    Me.labContent.Text = "联系内容"
    '
    'labProcLimitTime
    '
    Me.labProcLimitTime.AutoSize = True
    Me.labProcLimitTime.Location = New System.Drawing.Point(88, 192)
    Me.labProcLimitTime.Name = "labProcLimitTime"
    Me.labProcLimitTime.Size = New System.Drawing.Size(54, 17)
    Me.labProcLimitTime.TabIndex = 50
    Me.labProcLimitTime.Text = "处理时限"
    '
    'labSendTime
    '
    Me.labSendTime.AutoSize = True
    Me.labSendTime.Location = New System.Drawing.Point(88, 176)
    Me.labSendTime.Name = "labSendTime"
    Me.labSendTime.Size = New System.Drawing.Size(54, 17)
    Me.labSendTime.TabIndex = 49
    Me.labSendTime.Text = "发件时间"
    '
    'labAddresserTel
    '
    Me.labAddresserTel.AutoSize = True
    Me.labAddresserTel.Location = New System.Drawing.Point(88, 160)
    Me.labAddresserTel.Name = "labAddresserTel"
    Me.labAddresserTel.Size = New System.Drawing.Size(66, 17)
    Me.labAddresserTel.TabIndex = 48
    Me.labAddresserTel.Text = "发件人电话"
    '
    'labAddresser
    '
    Me.labAddresser.AutoSize = True
    Me.labAddresser.Location = New System.Drawing.Point(88, 136)
    Me.labAddresser.Name = "labAddresser"
    Me.labAddresser.Size = New System.Drawing.Size(42, 17)
    Me.labAddresser.TabIndex = 47
    Me.labAddresser.Text = "发件人"
    '
    'labDept
    '
    Me.labDept.AutoSize = True
    Me.labDept.Location = New System.Drawing.Point(88, 120)
    Me.labDept.Name = "labDept"
    Me.labDept.Size = New System.Drawing.Size(54, 17)
    Me.labDept.TabIndex = 46
    Me.labDept.Text = "发件部门"
    '
    'CheckBox1
    '
    Me.CheckBox1.BackColor = System.Drawing.Color.Transparent
    Me.CheckBox1.Cursor = System.Windows.Forms.Cursors.Default
    Me.CheckBox1.ForeColor = System.Drawing.SystemColors.ControlText
    Me.CheckBox1.Location = New System.Drawing.Point(552, 200)
    Me.CheckBox1.Name = "CheckBox1"
    Me.CheckBox1.RightToLeft = System.Windows.Forms.RightToLeft.No
    Me.CheckBox1.Size = New System.Drawing.Size(181, 21)
    Me.CheckBox1.TabIndex = 63
    Me.CheckBox1.Text = "发件人："
    '
    '_lbl_4
    '
    Me._lbl_4.AutoSize = True
    Me._lbl_4.BackColor = System.Drawing.Color.Transparent
    Me._lbl_4.Cursor = System.Windows.Forms.Cursors.Default
    Me._lbl_4.ForeColor = System.Drawing.SystemColors.ControlText
    Me._lbl_4.Location = New System.Drawing.Point(576, 352)
    Me._lbl_4.Name = "_lbl_4"
    Me._lbl_4.RightToLeft = System.Windows.Forms.RightToLeft.No
    Me._lbl_4.Size = New System.Drawing.Size(171, 17)
    Me._lbl_4.TabIndex = 61
    Me._lbl_4.Text = "本次查询为您找到 0 条记录。"
    Me._lbl_4.Visible = False
    '
    '_lbl_3
    '
    Me._lbl_3.AutoSize = True
    Me._lbl_3.BackColor = System.Drawing.Color.Transparent
    Me._lbl_3.Cursor = System.Windows.Forms.Cursors.Default
    Me._lbl_3.ForeColor = System.Drawing.SystemColors.ControlText
    Me._lbl_3.Location = New System.Drawing.Point(576, 328)
    Me._lbl_3.Name = "_lbl_3"
    Me._lbl_3.RightToLeft = System.Windows.Forms.RightToLeft.No
    Me._lbl_3.Size = New System.Drawing.Size(91, 17)
    Me._lbl_3.TabIndex = 62
    Me._lbl_3.Text = "本次查询完毕。"
    Me._lbl_3.Visible = False
    '
    'cmdQuery
    '
    Me.cmdQuery.BackColor = System.Drawing.Color.White
    Me.cmdQuery.Cursor = System.Windows.Forms.Cursors.Default
    Me.cmdQuery.ForeColor = System.Drawing.SystemColors.ControlText
    Me.cmdQuery.Location = New System.Drawing.Point(568, 392)
    Me.cmdQuery.Name = "cmdQuery"
    Me.cmdQuery.RightToLeft = System.Windows.Forms.RightToLeft.No
    Me.cmdQuery.TabIndex = 59