frmsendmsg.vb

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

'发送信息窗体的状态
Public Enum SendMsgStatus
  Send
  Reply
  Broadcast
End Enum

Public Class frmSendMsg
  Inherits System.Windows.Forms.Form

  Protected m_smsStat As SendMsgStatus = SendMsgStatus.Send '窗体状态：发送，回复，广播
  Protected m_iDeptReplyId As Int16 = 0 '被回复的部门ID
  Protected m_iReplyInfoId As Long = 0  '被回复的信息ID

#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 mnuOperate As System.Windows.Forms.MenuItem
  Public WithEvents mnuSendInfo As System.Windows.Forms.MenuItem
  Public WithEvents ln1 As System.Windows.Forms.MenuItem
  Public WithEvents mnuReturn As System.Windows.Forms.MenuItem
  Public WithEvents mnuHelp As System.Windows.Forms.MenuItem
  Public WithEvents mnuHelpInfo As System.Windows.Forms.MenuItem
  Friend WithEvents ColumnHeader1 As System.Windows.Forms.ColumnHeader
  Public WithEvents pic As System.Windows.Forms.Panel
  Public WithEvents labTitle As System.Windows.Forms.Label
  Public WithEvents labTitle2 As System.Windows.Forms.Label
  Public WithEvents grpInput As System.Windows.Forms.GroupBox
  Friend WithEvents rtxtContent As System.Windows.Forms.RichTextBox
  Friend WithEvents dptProcLimeTime As System.Windows.Forms.DateTimePicker
  Public WithEvents txtReceiveDept As System.Windows.Forms.TextBox
  Public WithEvents cboDept As System.Windows.Forms.ComboBox
  Public WithEvents txtSendDept As System.Windows.Forms.TextBox
  Public WithEvents txtAddresser As System.Windows.Forms.TextBox
  Public WithEvents txtAddresserTel As System.Windows.Forms.TextBox
  Public WithEvents cmdSend As System.Windows.Forms.Button
  Public WithEvents cmdCancel As System.Windows.Forms.Button
  Public WithEvents labSendDept As System.Windows.Forms.Label
  Public WithEvents labAddresser As System.Windows.Forms.Label
  Public WithEvents labAddresserTel As System.Windows.Forms.Label
  Public WithEvents labLimitTime As System.Windows.Forms.Label
  Public WithEvents labContent As System.Windows.Forms.Label
  Public WithEvents labReceiveDept As System.Windows.Forms.Label
  Public WithEvents grpDeptList As System.Windows.Forms.GroupBox
  Friend WithEvents lsvDept As System.Windows.Forms.ListView
  Public WithEvents cmdSelectedClear As System.Windows.Forms.Button
  Public WithEvents cmdSelectedAll As System.Windows.Forms.Button
  Public WithEvents labReceiveList As System.Windows.Forms.Label
  Friend WithEvents ColorDialog1 As System.Windows.Forms.ColorDialog
  Friend WithEvents GenericToolbar1 As FontStyleToolbar.GenericToolbar
  Friend WithEvents panInput As System.Windows.Forms.Panel
  <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
    Me.MainMenu1 = New System.Windows.Forms.MainMenu
    Me.mnuOperate = New System.Windows.Forms.MenuItem
    Me.mnuSendInfo = New System.Windows.Forms.MenuItem
    Me.ln1 = New System.Windows.Forms.MenuItem
    Me.mnuReturn = New System.Windows.Forms.MenuItem
    Me.mnuHelp = New System.Windows.Forms.MenuItem
    Me.mnuHelpInfo = New System.Windows.Forms.MenuItem
    Me.ColumnHeader1 = New System.Windows.Forms.ColumnHeader
    Me.pic = New System.Windows.Forms.Panel
    Me.labTitle = New System.Windows.Forms.Label
    Me.labTitle2 = New System.Windows.Forms.Label
    Me.grpInput = New System.Windows.Forms.GroupBox
    Me.panInput = New System.Windows.Forms.Panel
    Me.GenericToolbar1 = New FontStyleToolbar.GenericToolbar
    Me.rtxtContent = New System.Windows.Forms.RichTextBox
    Me.dptProcLimeTime = New System.Windows.Forms.DateTimePicker
    Me.txtReceiveDept = New System.Windows.Forms.TextBox
    Me.cboDept = New System.Windows.Forms.ComboBox
    Me.txtSendDept = New System.Windows.Forms.TextBox
    Me.txtAddresser = New System.Windows.Forms.TextBox
    Me.txtAddresserTel = New System.Windows.Forms.TextBox
    Me.cmdSend = New System.Windows.Forms.Button
    Me.cmdCancel = New System.Windows.Forms.Button
    Me.labSendDept = New System.Windows.Forms.Label
    Me.labAddresser = New System.Windows.Forms.Label
    Me.labAddresserTel = New System.Windows.Forms.Label
    Me.labLimitTime = New System.Windows.Forms.Label
    Me.labContent = New System.Windows.Forms.Label
    Me.labReceiveDept = New System.Windows.Forms.Label
    Me.grpDeptList = New System.Windows.Forms.GroupBox
    Me.lsvDept = New System.Windows.Forms.ListView
    Me.cmdSelectedClear = New System.Windows.Forms.Button
    Me.cmdSelectedAll = New System.Windows.Forms.Button
    Me.labReceiveList = New System.Windows.Forms.Label
    Me.ColorDialog1 = New System.Windows.Forms.ColorDialog
    Me.pic.SuspendLayout()
    Me.grpInput.SuspendLayout()
    Me.panInput.SuspendLayout()
    Me.grpDeptList.SuspendLayout()
    Me.SuspendLayout()
    '
    'MainMenu1
    '
    Me.MainMenu1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mnuOperate, Me.mnuHelp})
    '
    'mnuOperate
    '
    Me.mnuOperate.Index = 0
    Me.mnuOperate.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mnuSendInfo, Me.ln1, Me.mnuReturn})
    Me.mnuOperate.Text = "操作(&O)"
    '
    'mnuSendInfo
    '
    Me.mnuSendInfo.Index = 0
    Me.mnuSendInfo.Shortcut = System.Windows.Forms.Shortcut.CtrlS
    Me.mnuSendInfo.Text = "立即发送(&S)"
    '
    'ln1
    '
    Me.ln1.Index = 1
    Me.ln1.Text = "-"
    '
    'mnuReturn
    '
    Me.mnuReturn.Index = 2
    Me.mnuReturn.Shortcut = System.Windows.Forms.Shortcut.CtrlR
    Me.mnuReturn.Text = "返回(&R)"
    '
    'mnuHelp
    '
    Me.mnuHelp.Index = 1
    Me.mnuHelp.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mnuHelpInfo})
    Me.mnuHelp.Text = "帮助(&H)"
    '
    'mnuHelpInfo
    '
    Me.mnuHelpInfo.Index = 0
    Me.mnuHelpInfo.Shortcut = System.Windows.Forms.Shortcut.CtrlH
    Me.mnuHelpInfo.Text = "帮助文档(&H)"
    '
    'ColumnHeader1
    '
    Me.ColumnHeader1.Text = "收件部门"
    '
    'pic
    '
    Me.pic.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
                Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
    Me.pic.BackColor = System.Drawing.Color.FromArgb(CType(128, Byte), CType(128, Byte), CType(128, Byte))
    Me.pic.Controls.Add(Me.labTitle)
    Me.pic.Controls.Add(Me.labTitle2)
    Me.pic.Cursor = System.Windows.Forms.Cursors.Default
    Me.pic.ForeColor = System.Drawing.SystemColors.WindowText
    Me.pic.Location = New System.Drawing.Point(2, 4)
    Me.pic.Name = "pic"
    Me.pic.RightToLeft = System.Windows.Forms.RightToLeft.No
    Me.pic.Size = New System.Drawing.Size(716, 24)
    Me.pic.TabIndex = 25
    Me.pic.TabStop = True
    '
    'labTitle
    '
    Me.labTitle.AutoSize = True
    Me.labTitle.BackColor = System.Drawing.Color.Transparent
    Me.labTitle.Cursor = System.Windows.Forms.Cursors.Default
    Me.labTitle.Font = New System.Drawing.Font("宋体", 10.5!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
    Me.labTitle.ForeColor = System.Drawing.Color.White
    Me.labTitle.Location = New System.Drawing.Point(10, 4)
    Me.labTitle.Name = "labTitle"
    Me.labTitle.RightToLeft = System.Windows.Forms.RightToLeft.No
    Me.labTitle.Size = New System.Drawing.Size(49, 19)
    Me.labTitle.TabIndex = 24
    Me.labTitle.Text = "新信息"
    '
    'labTitle2
    '
    Me.labTitle2.AutoSize = True
    Me.labTitle2.BackColor = System.Drawing.Color.Transparent
    Me.labTitle2.Cursor = System.Windows.Forms.Cursors.Default
    Me.labTitle2.Font = New System.Drawing.Font("宋体", 10.5!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
    Me.labTitle2.ForeColor = System.Drawing.SystemColors.ControlText
    Me.labTitle2.Location = New System.Drawing.Point(12, 6)
    Me.labTitle2.Name = "labTitle2"
    Me.labTitle2.RightToLeft = System.Windows.Forms.RightToLeft.No
    Me.labTitle2.Size = New System.Drawing.Size(49, 19)
    Me.labTitle2.TabIndex = 23
    Me.labTitle2.Text = "新信息"
    '
    'grpInput
    '
    Me.grpInput.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
                Or System.Windows.Forms.AnchorStyles.Left) _
                Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
    Me.grpInput.BackColor = System.Drawing.SystemColors.Control
    Me.grpInput.Controls.Add(Me.panInput)
    Me.grpInput.Controls.Add(Me.dptProcLimeTime)
    Me.grpInput.Controls.Add(Me.txtReceiveDept)
    Me.grpInput.Controls.Add(Me.cboDept)
    Me.grpInput.Controls.Add(Me.txtSendDept)
    Me.grpInput.Controls.Add(Me.txtAddresser)
    Me.grpInput.Controls.Add(Me.txtAddresserTel)
    Me.grpInput.Controls.Add(Me.cmdSend)
    Me.grpInput.Controls.Add(Me.cmdCancel)
    Me.grpInput.Controls.Add(Me.labSendDept)
    Me.grpInput.Controls.Add(Me.labAddresser)
    Me.grpInput.Controls.Add(Me.labAddresserTel)
    Me.grpInput.Controls.Add(Me.labLimitTime)
    Me.grpInput.Controls.Add(Me.labContent)
    Me.grpInput.Controls.Add(Me.labReceiveDept)
    Me.grpInput.ForeColor = System.Drawing.SystemColors.ControlText
    Me.grpInput.Location = New System.Drawing.Point(2, 28)
    Me.grpInput.Name = "grpInput"
    Me.grpInput.RightToLeft = System.Windows.Forms.RightToLeft.No
    Me.grpInput.Size = New System.Drawing.Size(522, 406)
    Me.grpInput.TabIndex = 24
    Me.grpInput.TabStop = False
    '
    'panInput
    '
    Me.panInput.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
                Or System.Windows.Forms.AnchorStyles.Left) _
                Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
    Me.panInput.Controls.Add(Me.GenericToolbar1)
    Me.panInput.Controls.Add(Me.rtxtContent)
    Me.panInput.Location = New System.Drawing.Point(17, 154)
    Me.panInput.Name = "panInput"
    Me.panInput.Size = New System.Drawing.Size(485, 192)
    Me.panInput.TabIndex = 24
    '
    'GenericToolbar1
    '
    Me.GenericToolbar1.AttathedTextBox = Me.rtxtContent
    Me.GenericToolbar1.Location = New System.Drawing.Point(0, -1)
    Me.GenericToolbar1.Name = "GenericToolbar1"
    Me.GenericToolbar1.Size = New System.Drawing.Size(485, 23)
    Me.GenericToolbar1.TabIndex = 24