form1.vb

三汇CTI示例程序源码

        Me.tabPage2.Controls.Add(Me.m_cmbFaxCh1)
        Me.tabPage2.Controls.Add(Me.label9)
        Me.tabPage2.Controls.Add(Me.m_cmbTrkCh1)
        Me.tabPage2.Controls.Add(Me.label8)
        Me.tabPage2.Location = New System.Drawing.Point(4, 21)
        Me.tabPage2.Name = "tabPage2"
        Me.tabPage2.Size = New System.Drawing.Size(352, 303)
        Me.tabPage2.TabIndex = 1
        Me.tabPage2.Text = "Send Fax"
        Me.tabPage2.Visible = False
        '
        'button10
        '
        Me.button10.Location = New System.Drawing.Point(64, 272)
        Me.button10.Name = "button10"
        Me.button10.Size = New System.Drawing.Size(216, 23)
        Me.button10.TabIndex = 22
        Me.button10.Text = "Submit task"
        '
        'm_BtnDel
        '
        Me.m_BtnDel.Location = New System.Drawing.Point(248, 240)
        Me.m_BtnDel.Name = "m_BtnDel"
        Me.m_BtnDel.Size = New System.Drawing.Size(75, 23)
        Me.m_BtnDel.TabIndex = 21
        Me.m_BtnDel.Text = "Delete"
        '
        'm_BtnAdd
        '
        Me.m_BtnAdd.Location = New System.Drawing.Point(248, 208)
        Me.m_BtnAdd.Name = "m_BtnAdd"
        Me.m_BtnAdd.Size = New System.Drawing.Size(75, 23)
        Me.m_BtnAdd.TabIndex = 20
        Me.m_BtnAdd.Text = "Add"
        '
        'm_ListBox
        '
        Me.m_ListBox.ItemHeight = 12
        Me.m_ListBox.Location = New System.Drawing.Point(80, 211)
        Me.m_ListBox.Name = "m_ListBox"
        Me.m_ListBox.Size = New System.Drawing.Size(152, 52)
        Me.m_ListBox.TabIndex = 19
        '
        'm_txtEndPage
        '
        Me.m_txtEndPage.Location = New System.Drawing.Point(248, 178)
        Me.m_txtEndPage.Name = "m_txtEndPage"
        Me.m_txtEndPage.Size = New System.Drawing.Size(64, 21)
        Me.m_txtEndPage.TabIndex = 18
        '
        'label14
        '
        Me.label14.Location = New System.Drawing.Point(176, 176)
        Me.label14.Name = "label14"
        Me.label14.Size = New System.Drawing.Size(72, 23)
        Me.label14.TabIndex = 17
        Me.label14.Text = "End page"
        '
        'm_txtStartPage
        '
        Me.m_txtStartPage.Location = New System.Drawing.Point(96, 178)
        Me.m_txtStartPage.Name = "m_txtStartPage"
        Me.m_txtStartPage.Size = New System.Drawing.Size(64, 21)
        Me.m_txtStartPage.TabIndex = 16
        '
        'label13
        '
        Me.label13.Location = New System.Drawing.Point(16, 176)
        Me.label13.Name = "label13"
        Me.label13.Size = New System.Drawing.Size(72, 23)
        Me.label13.TabIndex = 15
        Me.label13.Text = "Start page"
        '
        'm_btnSendPath
        '
        Me.m_btnSendPath.Location = New System.Drawing.Point(248, 144)
        Me.m_btnSendPath.Name = "m_btnSendPath"
        Me.m_btnSendPath.Size = New System.Drawing.Size(75, 23)
        Me.m_btnSendPath.TabIndex = 14
        Me.m_btnSendPath.Text = "Browse"
        '
        'm_txtSendPath
        '
        Me.m_txtSendPath.Location = New System.Drawing.Point(96, 144)
        Me.m_txtSendPath.Name = "m_txtSendPath"
        Me.m_txtSendPath.ReadOnly = True
        Me.m_txtSendPath.Size = New System.Drawing.Size(120, 21)
        Me.m_txtSendPath.TabIndex = 13
        '
        'label12
        '
        Me.label12.Location = New System.Drawing.Point(16, 144)
        Me.label12.Name = "label12"
        Me.label12.Size = New System.Drawing.Size(40, 23)
        Me.label12.TabIndex = 12
        Me.label12.Text = "Path"
        '
        'm_btnSendFile
        '
        Me.m_btnSendFile.Location = New System.Drawing.Point(248, 112)
        Me.m_btnSendFile.Name = "m_btnSendFile"
        Me.m_btnSendFile.Size = New System.Drawing.Size(75, 23)
        Me.m_btnSendFile.TabIndex = 11
        Me.m_btnSendFile.Text = "Browse"
        '
        'm_txtSendFile
        '
        Me.m_txtSendFile.Location = New System.Drawing.Point(96, 112)
        Me.m_txtSendFile.Name = "m_txtSendFile"
        Me.m_txtSendFile.ReadOnly = True
        Me.m_txtSendFile.Size = New System.Drawing.Size(120, 21)
        Me.m_txtSendFile.TabIndex = 10
        '
        'label11
        '
        Me.label11.Location = New System.Drawing.Point(16, 112)
        Me.label11.Name = "label11"
        Me.label11.Size = New System.Drawing.Size(64, 23)
        Me.label11.TabIndex = 9
        Me.label11.Text = "File name"
        '
        'radioButton8
        '
        Me.radioButton8.Location = New System.Drawing.Point(230, 79)
        Me.radioButton8.Name = "radioButton8"
        Me.radioButton8.Size = New System.Drawing.Size(104, 24)
        Me.radioButton8.TabIndex = 8
        Me.radioButton8.Text = "Multi-file_II"
        '
        'radioButton7
        '
        Me.radioButton7.Location = New System.Drawing.Point(120, 80)
        Me.radioButton7.Name = "radioButton7"
        Me.radioButton7.Size = New System.Drawing.Size(104, 24)
        Me.radioButton7.TabIndex = 7
        Me.radioButton7.Text = "Multi-file_I"
        '
        'RadioButton9
        '
        Me.RadioButton9.Location = New System.Drawing.Point(16, 80)
        Me.RadioButton9.Name = "RadioButton9"
        Me.RadioButton9.Size = New System.Drawing.Size(96, 24)
        Me.RadioButton9.TabIndex = 6
        Me.RadioButton9.Text = "Single file"
        '
        'm_txtCallNo
        '
        Me.m_txtCallNo.Location = New System.Drawing.Point(176, 48)
        Me.m_txtCallNo.Name = "m_txtCallNo"
        Me.m_txtCallNo.Size = New System.Drawing.Size(100, 21)
        Me.m_txtCallNo.TabIndex = 5
        '
        'label10
        '
        Me.label10.Location = New System.Drawing.Point(16, 48)
        Me.label10.Name = "label10"
        Me.label10.Size = New System.Drawing.Size(128, 16)
        Me.label10.TabIndex = 4
        Me.label10.Text = "Called party number"
        '
        'm_cmbFaxCh1
        '
        Me.m_cmbFaxCh1.Location = New System.Drawing.Point(240, 16)
        Me.m_cmbFaxCh1.Name = "m_cmbFaxCh1"
        Me.m_cmbFaxCh1.Size = New System.Drawing.Size(64, 20)
        Me.m_cmbFaxCh1.TabIndex = 3
        Me.m_cmbFaxCh1.Text = "None"
        '
        'label9
        '
        Me.label9.Location = New System.Drawing.Point(168, 21)
        Me.label9.Name = "label9"
        Me.label9.Size = New System.Drawing.Size(56, 15)
        Me.label9.TabIndex = 2
        Me.label9.Text = "FaxCh ID"
        '
        'm_cmbTrkCh1
        '
        Me.m_cmbTrkCh1.Location = New System.Drawing.Point(88, 16)
        Me.m_cmbTrkCh1.Name = "m_cmbTrkCh1"
        Me.m_cmbTrkCh1.Size = New System.Drawing.Size(64, 20)
        Me.m_cmbTrkCh1.TabIndex = 1
        Me.m_cmbTrkCh1.Text = "None"
        '
        'label8
        '
        Me.label8.Location = New System.Drawing.Point(16, 21)
        Me.label8.Name = "label8"
        Me.label8.Size = New System.Drawing.Size(72, 15)
        Me.label8.TabIndex = 0
        Me.label8.Text = "TrunkCh ID"
        '
        'tabPage3
        '
        Me.tabPage3.Controls.Add(Me.button14)
        Me.tabPage3.Controls.Add(Me.button13)
        Me.tabPage3.Controls.Add(Me.button12)
        Me.tabPage3.Controls.Add(Me.FileShow)
        Me.tabPage3.Controls.Add(Me.m_txtTargetFile)
        Me.tabPage3.Controls.Add(Me.m_txtDataTime)
        Me.tabPage3.Controls.Add(Me.m_txtFaxSubject)
        Me.tabPage3.Controls.Add(Me.m_txtFaxTo)
        Me.tabPage3.Controls.Add(Me.m_txtFaxFrom)
        Me.tabPage3.Controls.Add(Me.m_txtTifName)
        Me.tabPage3.Controls.Add(Me.label20)
        Me.tabPage3.Controls.Add(Me.label19)
        Me.tabPage3.Controls.Add(Me.label18)
        Me.tabPage3.Controls.Add(Me.label17)
        Me.tabPage3.Controls.Add(Me.label16)
        Me.tabPage3.Controls.Add(Me.label15)
        Me.tabPage3.Location = New System.Drawing.Point(4, 21)
        Me.tabPage3.Name = "tabPage3"
        Me.tabPage3.Size = New System.Drawing.Size(352, 303)
        Me.tabPage3.TabIndex = 2
        Me.tabPage3.Text = "Add Header"
        Me.tabPage3.Visible = False
        '
        'button14
        '
        Me.button14.Location = New System.Drawing.Point(104, 272)
        Me.button14.Name = "button14"
        Me.button14.Size = New System.Drawing.Size(136, 21)
        Me.button14.TabIndex = 15
        Me.button14.Text = "Tool window"
        '
        'button13
        '
        Me.button13.Location = New System.Drawing.Point(104, 240)
        Me.button13.Name = "button13"
        Me.button13.Size = New System.Drawing.Size(136, 21)
        Me.button13.TabIndex = 14
        Me.button13.Text = "fBmp_AddTxtToTif"
        '
        'button12
        '
        Me.button12.Location = New System.Drawing.Point(256, 200)
        Me.button12.Name = "button12"
        Me.button12.Size = New System.Drawing.Size(75, 23)
        Me.button12.TabIndex = 13
        Me.button12.Text = "Browse"
        '
        'FileShow
        '
        Me.FileShow.Location = New System.Drawing.Point(256, 24)
        Me.FileShow.Name = "FileShow"
        Me.FileShow.Size = New System.Drawing.Size(75, 23)
        Me.FileShow.TabIndex = 12
        Me.FileShow.Text = "Browse"
        '
        'm_txtTargetFile
        '
        Me.m_txtTargetFile.Location = New System.Drawing.Point(104, 200)
        Me.m_txtTargetFile.Name = "m_txtTargetFile"
        Me.m_txtTargetFile.Size = New System.Drawing.Size(136, 21)
        Me.m_txtTargetFile.TabIndex = 11
        '
        'm_txtDataTime
        '
        Me.m_txtDataTime.Location = New System.Drawing.Point(104, 162)
        Me.m_txtDataTime.Name = "m_txtDataTime"
        Me.m_txtDataTime.Size = New System.Drawing.Size(136, 21)
        Me.m_txtDataTime.TabIndex = 10
        '
        'm_txtFaxSubject
        '
        Me.m_txtFaxSubject.Location = New System.Drawing.Point(104, 130)
        Me.m_txtFaxSubject.Name = "m_txtFaxSubject"
        Me.m_txtFaxSubject.Size = New System.Drawing.Size(136, 21)
        Me.m_txtFaxSubject.TabIndex = 9
        '
        'm_txtFaxTo
        '
        Me.m_txtFaxTo.Location = New System.Drawing.Point(104, 96)
        Me.m_txtFaxTo.Name = "m_txtFaxTo"
        Me.m_txtFaxTo.Size = New System.Drawing.Size(136, 21)
        Me.m_txtFaxTo.TabIndex = 8
        '
        'm_txtFaxFrom
        '
        Me.m_txtFaxFrom.Location = New System.Drawing.Point(104, 64)
        Me.m_txtFaxFrom.Name = "m_txtFaxFrom"
        Me.m_txtFaxFrom.Size = New System.Drawing.Size(136, 21)
        Me.m_txtFaxFrom.TabIndex = 7
        '
        'm_txtTifName
        '
        Me.m_txtTifName.Location = New System.Drawing.Point(104, 26)
        Me.m_txtTifName.Name = "m_txtTifName"
        Me.m_txtTifName.Size = New System.Drawing.Size(136, 21)
        Me.m_txtTifName.TabIndex = 6
        '
        'label20
        '
        Me.label20.Location = New System.Drawing.Point(16, 200)
        Me.label20.Name = "label20"
        Me.label20.Size = New System.Drawing.Size(48, 23)
        Me.label20.TabIndex = 5
        Me.label20.Text = "Target"
        '
        'label19
        '
        Me.label19.Location = New System.Drawing.Point(16, 160)
        Me.label19.Name = "label19"
        Me.label19.Size = New System.Drawing.Size(72, 23)
        Me.label19.TabIndex = 4
        Me.label19.Text = "Data Time"
        '
        'label18
        '
        Me.label18.Location = New System.Drawing.Point(16, 128)
        Me.label18.Name = "label18"
        Me.label18.Size = New System.Drawing.Size(48, 23)
        Me.label18.TabIndex = 3
        Me.label18.Text = "Subject"
        '
        'label17
        '