frmsendmsg3.vb

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

    Me.btnItalic.TabIndex = 28
    '
    'btnBold
    '
    Me.btnBold.FlatStyle = System.Windows.Forms.FlatStyle.Popup
    Me.btnBold.Image = CType(resources.GetObject("btnBold.Image"), System.Drawing.Image)
    Me.btnBold.Location = New System.Drawing.Point(228, 1)
    Me.btnBold.Name = "btnBold"
    Me.btnBold.Size = New System.Drawing.Size(22, 22)
    Me.btnBold.TabIndex = 27
    '
    'dptProcLimeTime
    '
    Me.dptProcLimeTime.Location = New System.Drawing.Point(98, 107)
    Me.dptProcLimeTime.Name = "dptProcLimeTime"
    Me.dptProcLimeTime.Size = New System.Drawing.Size(405, 21)
    Me.dptProcLimeTime.TabIndex = 22
    '
    'txtReceiveDept
    '
    Me.txtReceiveDept.AcceptsReturn = True
    Me.txtReceiveDept.AutoSize = False
    Me.txtReceiveDept.BackColor = System.Drawing.SystemColors.Window
    Me.txtReceiveDept.Cursor = System.Windows.Forms.Cursors.IBeam
    Me.txtReceiveDept.Enabled = False
    Me.txtReceiveDept.ForeColor = System.Drawing.SystemColors.WindowText
    Me.txtReceiveDept.Location = New System.Drawing.Point(98, 40)
    Me.txtReceiveDept.MaxLength = 0
    Me.txtReceiveDept.Name = "txtReceiveDept"
    Me.txtReceiveDept.RightToLeft = System.Windows.Forms.RightToLeft.No
    Me.txtReceiveDept.Size = New System.Drawing.Size(405, 19)
    Me.txtReceiveDept.TabIndex = 1
    Me.txtReceiveDept.Text = ""
    '
    'cboDept
    '
    Me.cboDept.BackColor = System.Drawing.SystemColors.Window
    Me.cboDept.Cursor = System.Windows.Forms.Cursors.Default
    Me.cboDept.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
    Me.cboDept.Enabled = False
    Me.cboDept.ForeColor = System.Drawing.SystemColors.WindowText
    Me.cboDept.ItemHeight = 12
    Me.cboDept.Location = New System.Drawing.Point(98, 39)
    Me.cboDept.Name = "cboDept"
    Me.cboDept.RightToLeft = System.Windows.Forms.RightToLeft.No
    Me.cboDept.Size = New System.Drawing.Size(405, 20)
    Me.cboDept.TabIndex = 2
    Me.cboDept.Visible = False
    '
    'txtSendDept
    '
    Me.txtSendDept.AcceptsReturn = True
    Me.txtSendDept.AutoSize = False
    Me.txtSendDept.BackColor = System.Drawing.SystemColors.Window
    Me.txtSendDept.Cursor = System.Windows.Forms.Cursors.IBeam
    Me.txtSendDept.Enabled = False
    Me.txtSendDept.ForeColor = System.Drawing.SystemColors.WindowText
    Me.txtSendDept.Location = New System.Drawing.Point(98, 17)
    Me.txtSendDept.MaxLength = 10
    Me.txtSendDept.Name = "txtSendDept"
    Me.txtSendDept.RightToLeft = System.Windows.Forms.RightToLeft.No
    Me.txtSendDept.Size = New System.Drawing.Size(405, 20)
    Me.txtSendDept.TabIndex = 0
    Me.txtSendDept.Text = ""
    '
    'txtAddresser
    '
    Me.txtAddresser.AcceptsReturn = True
    Me.txtAddresser.AutoSize = False
    Me.txtAddresser.BackColor = System.Drawing.SystemColors.Window
    Me.txtAddresser.Cursor = System.Windows.Forms.Cursors.IBeam
    Me.txtAddresser.Enabled = False
    Me.txtAddresser.ForeColor = System.Drawing.SystemColors.WindowText
    Me.txtAddresser.Location = New System.Drawing.Point(98, 61)
    Me.txtAddresser.MaxLength = 5
    Me.txtAddresser.Name = "txtAddresser"
    Me.txtAddresser.RightToLeft = System.Windows.Forms.RightToLeft.No
    Me.txtAddresser.Size = New System.Drawing.Size(405, 20)
    Me.txtAddresser.TabIndex = 3
    Me.txtAddresser.Text = ""
    '
    'txtAddresserTel
    '
    Me.txtAddresserTel.AcceptsReturn = True
    Me.txtAddresserTel.AutoSize = False
    Me.txtAddresserTel.BackColor = System.Drawing.SystemColors.Window
    Me.txtAddresserTel.Cursor = System.Windows.Forms.Cursors.IBeam
    Me.txtAddresserTel.ForeColor = System.Drawing.SystemColors.WindowText
    Me.txtAddresserTel.Location = New System.Drawing.Point(98, 84)
    Me.txtAddresserTel.MaxLength = 12
    Me.txtAddresserTel.Name = "txtAddresserTel"
    Me.txtAddresserTel.RightToLeft = System.Windows.Forms.RightToLeft.No
    Me.txtAddresserTel.Size = New System.Drawing.Size(405, 19)
    Me.txtAddresserTel.TabIndex = 4
    Me.txtAddresserTel.Text = ""
    '
    'cmdSend
    '
    Me.cmdSend.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
    Me.cmdSend.BackColor = System.Drawing.SystemColors.Control
    Me.cmdSend.Cursor = System.Windows.Forms.Cursors.Default
    Me.cmdSend.ForeColor = System.Drawing.SystemColors.ControlText
    Me.cmdSend.Location = New System.Drawing.Point(250, 351)
    Me.cmdSend.Name = "cmdSend"
    Me.cmdSend.RightToLeft = System.Windows.Forms.RightToLeft.No
    Me.cmdSend.Size = New System.Drawing.Size(104, 27)
    Me.cmdSend.TabIndex = 8
    Me.cmdSend.Text = "立即发送(&S)"
    '
    'cmdCancel
    '
    Me.cmdCancel.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
    Me.cmdCancel.BackColor = System.Drawing.SystemColors.Control
    Me.cmdCancel.Cursor = System.Windows.Forms.Cursors.Default
    Me.cmdCancel.DialogResult = System.Windows.Forms.DialogResult.Cancel
    Me.cmdCancel.ForeColor = System.Drawing.SystemColors.ControlText
    Me.cmdCancel.Location = New System.Drawing.Point(370, 351)
    Me.cmdCancel.Name = "cmdCancel"
    Me.cmdCancel.RightToLeft = System.Windows.Forms.RightToLeft.No
    Me.cmdCancel.Size = New System.Drawing.Size(104, 27)
    Me.cmdCancel.TabIndex = 9
    Me.cmdCancel.Text = "取消(&C)"
    '
    'labSendDept
    '
    Me.labSendDept.AutoSize = True
    Me.labSendDept.BackColor = System.Drawing.SystemColors.Control
    Me.labSendDept.Cursor = System.Windows.Forms.Cursors.Default
    Me.labSendDept.ForeColor = System.Drawing.SystemColors.ControlText
    Me.labSendDept.Location = New System.Drawing.Point(14, 22)
    Me.labSendDept.Name = "labSendDept"
    Me.labSendDept.RightToLeft = System.Windows.Forms.RightToLeft.No
    Me.labSendDept.Size = New System.Drawing.Size(66, 17)
    Me.labSendDept.TabIndex = 21
    Me.labSendDept.Text = "发件部门："
    '
    'labAddresser
    '
    Me.labAddresser.AutoSize = True
    Me.labAddresser.BackColor = System.Drawing.SystemColors.Control
    Me.labAddresser.Cursor = System.Windows.Forms.Cursors.Default
    Me.labAddresser.ForeColor = System.Drawing.SystemColors.ControlText
    Me.labAddresser.Location = New System.Drawing.Point(14, 65)
    Me.labAddresser.Name = "labAddresser"
    Me.labAddresser.RightToLeft = System.Windows.Forms.RightToLeft.No
    Me.labAddresser.Size = New System.Drawing.Size(54, 17)
    Me.labAddresser.TabIndex = 20
    Me.labAddresser.Text = "发件人："
    '
    'labAddresserTel
    '
    Me.labAddresserTel.AutoSize = True
    Me.labAddresserTel.BackColor = System.Drawing.SystemColors.Control
    Me.labAddresserTel.Cursor = System.Windows.Forms.Cursors.Default
    Me.labAddresserTel.ForeColor = System.Drawing.SystemColors.ControlText
    Me.labAddresserTel.Location = New System.Drawing.Point(14, 86)
    Me.labAddresserTel.Name = "labAddresserTel"
    Me.labAddresserTel.RightToLeft = System.Windows.Forms.RightToLeft.No
    Me.labAddresserTel.Size = New System.Drawing.Size(79, 17)
    Me.labAddresserTel.TabIndex = 19
    Me.labAddresserTel.Text = "发件人电话："
    '
    'labLimitTime
    '
    Me.labLimitTime.AutoSize = True
    Me.labLimitTime.BackColor = System.Drawing.SystemColors.Control
    Me.labLimitTime.Cursor = System.Windows.Forms.Cursors.Default
    Me.labLimitTime.ForeColor = System.Drawing.SystemColors.ControlText
    Me.labLimitTime.Location = New System.Drawing.Point(14, 108)
    Me.labLimitTime.Name = "labLimitTime"
    Me.labLimitTime.RightToLeft = System.Windows.Forms.RightToLeft.No
    Me.labLimitTime.Size = New System.Drawing.Size(66, 17)
    Me.labLimitTime.TabIndex = 18
    Me.labLimitTime.Text = "处理时限："
    '
    'labContent
    '
    Me.labContent.AutoSize = True
    Me.labContent.BackColor = System.Drawing.SystemColors.Control
    Me.labContent.Cursor = System.Windows.Forms.Cursors.Default
    Me.labContent.ForeColor = System.Drawing.SystemColors.ControlText
    Me.labContent.Location = New System.Drawing.Point(14, 132)
    Me.labContent.Name = "labContent"
    Me.labContent.RightToLeft = System.Windows.Forms.RightToLeft.No
    Me.labContent.Size = New System.Drawing.Size(66, 17)
    Me.labContent.TabIndex = 17
    Me.labContent.Text = "联系内容："
    '
    'labReceiveDept
    '
    Me.labReceiveDept.AutoSize = True
    Me.labReceiveDept.BackColor = System.Drawing.SystemColors.Control
    Me.labReceiveDept.Cursor = System.Windows.Forms.Cursors.Default
    Me.labReceiveDept.ForeColor = System.Drawing.SystemColors.ControlText
    Me.labReceiveDept.Location = New System.Drawing.Point(14, 43)
    Me.labReceiveDept.Name = "labReceiveDept"
    Me.labReceiveDept.RightToLeft = System.Windows.Forms.RightToLeft.No
    Me.labReceiveDept.Size = New System.Drawing.Size(66, 17)
    Me.labReceiveDept.TabIndex = 15
    Me.labReceiveDept.Text = "收件部门："
    '
    'grpDeptList
    '
    Me.grpDeptList.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
                Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
    Me.grpDeptList.BackColor = System.Drawing.SystemColors.Control
    Me.grpDeptList.Controls.Add(Me.lsvDept)
    Me.grpDeptList.Controls.Add(Me.cmdSelectedClear)
    Me.grpDeptList.Controls.Add(Me.cmdSelectedAll)
    Me.grpDeptList.Controls.Add(Me.labReceiveList)
    Me.grpDeptList.ForeColor = System.Drawing.SystemColors.ControlText
    Me.grpDeptList.Location = New System.Drawing.Point(523, 19)
    Me.grpDeptList.Name = "grpDeptList"
    Me.grpDeptList.RightToLeft = System.Windows.Forms.RightToLeft.No
    Me.grpDeptList.Size = New System.Drawing.Size(195, 396)
    Me.grpDeptList.TabIndex = 12
    Me.grpDeptList.TabStop = False
    '
    'lsvDept
    '
    Me.lsvDept.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
                Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
    Me.lsvDept.CheckBoxes = True
    Me.lsvDept.Columns.AddRange(New System.Windows.Forms.ColumnHeader() {Me.ColumnHeader1})
    Me.lsvDept.HeaderStyle = System.Windows.Forms.ColumnHeaderStyle.None
    Me.lsvDept.Location = New System.Drawing.Point(4, 38)
    Me.lsvDept.Name = "lsvDept"
    Me.lsvDept.Size = New System.Drawing.Size(184, 301)
    Me.lsvDept.TabIndex = 26
    Me.lsvDept.View = System.Windows.Forms.View.Details
    '
    'ColumnHeader1
    '
    Me.ColumnHeader1.Text = "收件部门"
    '
    'cmdSelectedClear
    '
    Me.cmdSelectedClear.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
    Me.cmdSelectedClear.BackColor = System.Drawing.SystemColors.Control
    Me.cmdSelectedClear.Cursor = System.Windows.Forms.Cursors.Default
    Me.cmdSelectedClear.ForeColor = System.Drawing.SystemColors.ControlText
    Me.cmdSelectedClear.Location = New System.Drawing.Point(101, 351)
    Me.cmdSelectedClear.Name = "cmdSelectedClear"
    Me.cmdSelectedClear.RightToLeft = System.Windows.Forms.RightToLeft.No
    Me.cmdSelectedClear.Size = New System.Drawing.Size(69, 27)
    Me.cmdSelectedClear.TabIndex = 13
    Me.cmdSelectedClear.Text = "全否(&N)"
    '
    'cmdSelectedAll
    '
    Me.cmdSelectedAll.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
    Me.cmdSelectedAll.BackColor = System.Drawing.SystemColors.Control
    Me.cmdSelectedAll.Cursor = System.Windows.Forms.Cursors.Default
    Me.cmdSelectedAll.ForeColor = System.Drawing.SystemColors.ControlText
    Me.cmdSelectedAll.Location = New System.Drawing.Point(26, 351)
    Me.cmdSelectedAll.Name = "cmdSelectedAll"
    Me.cmdSelectedAll.RightToLeft = System.Windows.Forms.RightToLeft.No
    Me.cmdSelectedAll.Size = New System.Drawing.Size(70, 27)
    Me.cmdSelectedAll.TabIndex = 11
    Me.cmdSelectedAll.Text = "全选(&A)"
    '
    'labReceiveList
    '
    Me.labReceiveList.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
    Me.labReceiveList.AutoSize = True
    Me.labReceiveList.BackColor = System.Drawing.SystemColors.Control
    Me.labReceiveList.Cursor = System.Windows.Forms.Cursors.Default
    Me.labReceiveList.ForeColor = System.Drawing.SystemColors.ControlText
    Me.labReceiveList.Location = New System.Drawing.Point(19, 17)
    Me.labReceiveList.Name = "labReceiveList"
    Me.labReceiveList.RightToLeft = System.Windows.Forms.RightToLeft.No
    Me.labReceiveList.Size = New System.Drawing.Size(140, 17)
    Me.labReceiveList.TabIndex = 25
    Me.labReceiveList.Text = "请选择接收本信息的部门"
    '
    'MainMenu1
    '
    Me.MainMenu1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mnuOperate, Me.mnuHelp})
    '
    'mnuOperate
    '