form1.vb

三汇CTI示例程序源码

        Me.groupBox2.Name = "groupBox2"
        Me.groupBox2.Size = New System.Drawing.Size(240, 256)
        Me.groupBox2.TabIndex = 6
        Me.groupBox2.TabStop = False
        Me.groupBox2.Text = "Fax appending/stopping"
        '
        'button3
        '
        Me.button3.Location = New System.Drawing.Point(48, 200)
        Me.button3.Name = "button3"
        Me.button3.Size = New System.Drawing.Size(128, 23)
        Me.button3.TabIndex = 5
        Me.button3.Text = "SsmFaxStop"
        '
        'm_strAppendFile
        '
        Me.m_strAppendFile.Location = New System.Drawing.Point(16, 88)
        Me.m_strAppendFile.Name = "m_strAppendFile"
        Me.m_strAppendFile.ReadOnly = True
        Me.m_strAppendFile.Size = New System.Drawing.Size(80, 21)
        Me.m_strAppendFile.TabIndex = 4
        '
        'button2
        '
        Me.button2.Location = New System.Drawing.Point(48, 152)
        Me.button2.Name = "button2"
        Me.button2.Size = New System.Drawing.Size(128, 23)
        Me.button2.TabIndex = 3
        Me.button2.Text = "SsmFaxAppendSend"
        '
        'button1
        '
        Me.button1.Location = New System.Drawing.Point(128, 88)
        Me.button1.Name = "button1"
        Me.button1.Size = New System.Drawing.Size(72, 23)
        Me.button1.TabIndex = 2
        Me.button1.Text = "Browse"
        '
        'm_cmbFaxChNo
        '
        Me.m_cmbFaxChNo.Location = New System.Drawing.Point(96, 32)
        Me.m_cmbFaxChNo.Name = "m_cmbFaxChNo"
        Me.m_cmbFaxChNo.Size = New System.Drawing.Size(104, 20)
        Me.m_cmbFaxChNo.TabIndex = 1
        Me.m_cmbFaxChNo.Text = "None"
        '
        'label1
        '
        Me.label1.Location = New System.Drawing.Point(24, 32)
        Me.label1.Name = "label1"
        Me.label1.Size = New System.Drawing.Size(56, 16)
        Me.label1.TabIndex = 0
        Me.label1.Text = "FaxCh ID"
        '
        'radioButton4
        '
        Me.radioButton4.Location = New System.Drawing.Point(224, -77)
        Me.radioButton4.Name = "radioButton4"
        Me.radioButton4.Size = New System.Drawing.Size(104, 30)
        Me.radioButton4.TabIndex = 5
        Me.radioButton4.Text = "Automatic"
        '
        'groupBox1
        '
        Me.groupBox1.Controls.Add(Me.radioButton3)
        Me.groupBox1.Controls.Add(Me.radioButton2)
        Me.groupBox1.Controls.Add(Me.radioButton1)
        Me.groupBox1.Location = New System.Drawing.Point(8, 232)
        Me.groupBox1.Name = "groupBox1"
        Me.groupBox1.Size = New System.Drawing.Size(240, 80)
        Me.groupBox1.TabIndex = 4
        Me.groupBox1.TabStop = False
        Me.groupBox1.Text = "Faxing speed"
        '
        'radioButton3
        '
        Me.radioButton3.Location = New System.Drawing.Point(160, 40)
        Me.radioButton3.Name = "radioButton3"
        Me.radioButton3.Size = New System.Drawing.Size(72, 24)
        Me.radioButton3.TabIndex = 2
        Me.radioButton3.Text = "14400bps"
        '
        'radioButton2
        '
        Me.radioButton2.Location = New System.Drawing.Point(88, 40)
        Me.radioButton2.Name = "radioButton2"
        Me.radioButton2.Size = New System.Drawing.Size(72, 24)
        Me.radioButton2.TabIndex = 1
        Me.radioButton2.Text = "9600bps"
        '
        'radioButton1
        '
        Me.radioButton1.Location = New System.Drawing.Point(16, 40)
        Me.radioButton1.Name = "radioButton1"
        Me.radioButton1.Size = New System.Drawing.Size(72, 24)
        Me.radioButton1.TabIndex = 0
        Me.radioButton1.Text = "4800bps"
        '
        'groupBox5
        '
        Me.groupBox5.Controls.Add(Me.button4)
        Me.groupBox5.Controls.Add(Me.m_txtSetFaxID)
        Me.groupBox5.Controls.Add(Me.m_cmbFaxCh)
        Me.groupBox5.Controls.Add(Me.label5)
        Me.groupBox5.Controls.Add(Me.label4)
        Me.groupBox5.Location = New System.Drawing.Point(240, 424)
        Me.groupBox5.Name = "groupBox5"
        Me.groupBox5.Size = New System.Drawing.Size(216, 136)
        Me.groupBox5.TabIndex = 9
        Me.groupBox5.TabStop = False
        Me.groupBox5.Text = "Fax ID Setting"
        '
        'button4
        '
        Me.button4.Location = New System.Drawing.Point(56, 96)
        Me.button4.Name = "button4"
        Me.button4.Size = New System.Drawing.Size(104, 23)
        Me.button4.TabIndex = 4
        Me.button4.Text = "SsmFaxSetID"
        '
        'm_txtSetFaxID
        '
        Me.m_txtSetFaxID.Location = New System.Drawing.Point(104, 56)
        Me.m_txtSetFaxID.Name = "m_txtSetFaxID"
        Me.m_txtSetFaxID.Size = New System.Drawing.Size(96, 21)
        Me.m_txtSetFaxID.TabIndex = 3
        '
        'm_cmbFaxCh
        '
        Me.m_cmbFaxCh.Location = New System.Drawing.Point(104, 20)
        Me.m_cmbFaxCh.Name = "m_cmbFaxCh"
        Me.m_cmbFaxCh.Size = New System.Drawing.Size(96, 20)
        Me.m_cmbFaxCh.TabIndex = 2
        Me.m_cmbFaxCh.Text = "None"
        '
        'label5
        '
        Me.label5.Location = New System.Drawing.Point(16, 56)
        Me.label5.Name = "label5"
        Me.label5.Size = New System.Drawing.Size(72, 16)
        Me.label5.TabIndex = 1
        Me.label5.Text = "ID setting"
        '
        'label4
        '
        Me.label4.Location = New System.Drawing.Point(24, 24)
        Me.label4.Name = "label4"
        Me.label4.Size = New System.Drawing.Size(64, 16)
        Me.label4.TabIndex = 0
        Me.label4.Text = "FaxCh ID"
        '
        'groupBox3
        '
        Me.groupBox3.Controls.Add(Me.radioButton5)
        Me.groupBox3.Controls.Add(Me.RadioButton6)
        Me.groupBox3.Controls.Add(Me.m_cmbTrkChNo)
        Me.groupBox3.Controls.Add(Me.label2)
        Me.groupBox3.Location = New System.Drawing.Point(240, 232)
        Me.groupBox3.Name = "groupBox3"
        Me.groupBox3.Size = New System.Drawing.Size(216, 112)
        Me.groupBox3.TabIndex = 7
        Me.groupBox3.TabStop = False
        Me.groupBox3.Text = "Fax receiving/transmitting mode"
        '
        'radioButton5
        '
        Me.radioButton5.Location = New System.Drawing.Point(56, 80)
        Me.radioButton5.Name = "radioButton5"
        Me.radioButton5.Size = New System.Drawing.Size(112, 24)
        Me.radioButton5.TabIndex = 3
        Me.radioButton5.Text = "Manual"
        '
        'RadioButton6
        '
        Me.RadioButton6.Location = New System.Drawing.Point(56, 56)
        Me.RadioButton6.Name = "RadioButton6"
        Me.RadioButton6.Size = New System.Drawing.Size(104, 24)
        Me.RadioButton6.TabIndex = 2
        Me.RadioButton6.Text = "Automatic"
        '
        'm_cmbTrkChNo
        '
        Me.m_cmbTrkChNo.Location = New System.Drawing.Point(104, 24)
        Me.m_cmbTrkChNo.Name = "m_cmbTrkChNo"
        Me.m_cmbTrkChNo.Size = New System.Drawing.Size(96, 20)
        Me.m_cmbTrkChNo.TabIndex = 1
        Me.m_cmbTrkChNo.Text = "None"
        '
        'label2
        '
        Me.label2.Location = New System.Drawing.Point(32, 32)
        Me.label2.Name = "label2"
        Me.label2.Size = New System.Drawing.Size(56, 16)
        Me.label2.TabIndex = 0
        Me.label2.Text = "TrunkCh ID"
        '
        'groupBox4
        '
        Me.groupBox4.Controls.Add(Me.checkBox1)
        Me.groupBox4.Controls.Add(Me.m_cmbTrkCh)
        Me.groupBox4.Controls.Add(Me.label3)
        Me.groupBox4.Location = New System.Drawing.Point(240, 344)
        Me.groupBox4.Name = "groupBox4"
        Me.groupBox4.Size = New System.Drawing.Size(216, 80)
        Me.groupBox4.TabIndex = 8
        Me.groupBox4.TabStop = False
        Me.groupBox4.Text = "Recording Setting"
        '
        'checkBox1
        '
        Me.checkBox1.Location = New System.Drawing.Point(80, 48)
        Me.checkBox1.Name = "checkBox1"
        Me.checkBox1.Size = New System.Drawing.Size(64, 24)
        Me.checkBox1.TabIndex = 2
        Me.checkBox1.Text = "Record"
        '
        'm_cmbTrkCh
        '
        Me.m_cmbTrkCh.Location = New System.Drawing.Point(104, 16)
        Me.m_cmbTrkCh.Name = "m_cmbTrkCh"
        Me.m_cmbTrkCh.Size = New System.Drawing.Size(96, 20)
        Me.m_cmbTrkCh.TabIndex = 1
        Me.m_cmbTrkCh.Text = "None"
        '
        'label3
        '
        Me.label3.Location = New System.Drawing.Point(40, 17)
        Me.label3.Name = "label3"
        Me.label3.Size = New System.Drawing.Size(56, 15)
        Me.label3.TabIndex = 0
        Me.label3.Text = "TrunkCh ID"
        '
        'm_TabCtrl
        '
        Me.m_TabCtrl.Controls.Add(Me.tabPage1)
        Me.m_TabCtrl.Controls.Add(Me.tabPage2)
        Me.m_TabCtrl.Controls.Add(Me.tabPage3)
        Me.m_TabCtrl.Controls.Add(Me.tabPage4)
        Me.m_TabCtrl.Location = New System.Drawing.Point(456, 232)
        Me.m_TabCtrl.Name = "m_TabCtrl"
        Me.m_TabCtrl.SelectedIndex = 0
        Me.m_TabCtrl.Size = New System.Drawing.Size(360, 328)
        Me.m_TabCtrl.TabIndex = 10
        '
        'tabPage1
        '
        Me.tabPage1.Controls.Add(Me.m_txtRcvFile)
        Me.tabPage1.Controls.Add(Me.m_txtRcvFile0)
        Me.tabPage1.Controls.Add(Me.label7)
        Me.tabPage1.Controls.Add(Me.label6)
        Me.tabPage1.Controls.Add(Me.button5)
        Me.tabPage1.Location = New System.Drawing.Point(4, 21)
        Me.tabPage1.Name = "tabPage1"
        Me.tabPage1.Size = New System.Drawing.Size(352, 303)
        Me.tabPage1.TabIndex = 0
        Me.tabPage1.Text = "Receive Fax"
        '
        'm_txtRcvFile
        '
        Me.m_txtRcvFile.Location = New System.Drawing.Point(160, 136)
        Me.m_txtRcvFile.Name = "m_txtRcvFile"
        Me.m_txtRcvFile.ReadOnly = True
        Me.m_txtRcvFile.Size = New System.Drawing.Size(80, 21)
        Me.m_txtRcvFile.TabIndex = 4
        '
        'm_txtRcvFile0
        '
        Me.m_txtRcvFile0.Location = New System.Drawing.Point(160, 56)
        Me.m_txtRcvFile0.Name = "m_txtRcvFile0"
        Me.m_txtRcvFile0.Size = New System.Drawing.Size(80, 21)
        Me.m_txtRcvFile0.TabIndex = 3
        '
        'label7
        '
        Me.label7.Location = New System.Drawing.Point(8, 136)
        Me.label7.Name = "label7"
        Me.label7.Size = New System.Drawing.Size(152, 23)
        Me.label7.TabIndex = 2
        Me.label7.Text = "Path for receiving file"
        '
        'label6
        '
        Me.label6.Location = New System.Drawing.Point(24, 64)
        Me.label6.Name = "label6"
        Me.label6.Size = New System.Drawing.Size(120, 16)
        Me.label6.TabIndex = 1
        Me.label6.Text = "File name received"
        '
        'button5
        '
        Me.button5.Location = New System.Drawing.Point(256, 136)
        Me.button5.Name = "button5"
        Me.button5.Size = New System.Drawing.Size(75, 23)
        Me.button5.TabIndex = 0
        Me.button5.Text = "Browse"
        '
        'tabPage2
        '
        Me.tabPage2.Controls.Add(Me.button10)
        Me.tabPage2.Controls.Add(Me.m_BtnDel)
        Me.tabPage2.Controls.Add(Me.m_BtnAdd)
        Me.tabPage2.Controls.Add(Me.m_ListBox)
        Me.tabPage2.Controls.Add(Me.m_txtEndPage)
        Me.tabPage2.Controls.Add(Me.label14)
        Me.tabPage2.Controls.Add(Me.m_txtStartPage)
        Me.tabPage2.Controls.Add(Me.label13)
        Me.tabPage2.Controls.Add(Me.m_btnSendPath)
        Me.tabPage2.Controls.Add(Me.m_txtSendPath)
        Me.tabPage2.Controls.Add(Me.label12)
        Me.tabPage2.Controls.Add(Me.m_btnSendFile)
        Me.tabPage2.Controls.Add(Me.m_txtSendFile)
        Me.tabPage2.Controls.Add(Me.label11)
        Me.tabPage2.Controls.Add(Me.radioButton8)
        Me.tabPage2.Controls.Add(Me.radioButton7)
        Me.tabPage2.Controls.Add(Me.RadioButton9)
        Me.tabPage2.Controls.Add(Me.m_txtCallNo)
        Me.tabPage2.Controls.Add(Me.label10)