toolwnd.vb

三汇CTI示例程序源码

        Me.label14.TabIndex = 22
        Me.label14.Text = "nTimeY"
        '
        'm_txtTimeX
        '
        Me.m_txtTimeX.Location = New System.Drawing.Point(96, 192)
        Me.m_txtTimeX.Name = "m_txtTimeX"
        Me.m_txtTimeX.Size = New System.Drawing.Size(40, 21)
        Me.m_txtTimeX.TabIndex = 21
        Me.m_txtTimeX.Text = ""
        '
        'label13
        '
        Me.label13.Location = New System.Drawing.Point(32, 192)
        Me.label13.Name = "label13"
        Me.label13.Size = New System.Drawing.Size(48, 21)
        Me.label13.TabIndex = 20
        Me.label13.Text = "nTimeX"
        '
        'm_txtTo
        '
        Me.m_txtTo.Location = New System.Drawing.Point(248, 160)
        Me.m_txtTo.Name = "m_txtTo"
        Me.m_txtTo.Size = New System.Drawing.Size(40, 21)
        Me.m_txtTo.TabIndex = 19
        Me.m_txtTo.Text = ""
        '
        'label12
        '
        Me.label12.Location = New System.Drawing.Point(184, 160)
        Me.label12.Name = "label12"
        Me.label12.Size = New System.Drawing.Size(48, 21)
        Me.label12.TabIndex = 18
        Me.label12.Text = "szTo"
        '
        'm_txtToY
        '
        Me.m_txtToY.Location = New System.Drawing.Point(96, 160)
        Me.m_txtToY.Name = "m_txtToY"
        Me.m_txtToY.Size = New System.Drawing.Size(40, 21)
        Me.m_txtToY.TabIndex = 17
        Me.m_txtToY.Text = ""
        '
        'label11
        '
        Me.label11.Location = New System.Drawing.Point(32, 160)
        Me.label11.Name = "label11"
        Me.label11.Size = New System.Drawing.Size(48, 21)
        Me.label11.TabIndex = 16
        Me.label11.Text = "nToY"
        '
        'm_txtToX
        '
        Me.m_txtToX.Location = New System.Drawing.Point(248, 128)
        Me.m_txtToX.Name = "m_txtToX"
        Me.m_txtToX.Size = New System.Drawing.Size(40, 21)
        Me.m_txtToX.TabIndex = 15
        Me.m_txtToX.Text = ""
        '
        'label10
        '
        Me.label10.Location = New System.Drawing.Point(184, 128)
        Me.label10.Name = "label10"
        Me.label10.Size = New System.Drawing.Size(48, 21)
        Me.label10.TabIndex = 14
        Me.label10.Text = "nToX"
        '
        'm_txtSub
        '
        Me.m_txtSub.Location = New System.Drawing.Point(96, 128)
        Me.m_txtSub.Name = "m_txtSub"
        Me.m_txtSub.Size = New System.Drawing.Size(40, 21)
        Me.m_txtSub.TabIndex = 13
        Me.m_txtSub.Text = ""
        '
        'label9
        '
        Me.label9.Location = New System.Drawing.Point(32, 128)
        Me.label9.Name = "label9"
        Me.label9.Size = New System.Drawing.Size(48, 21)
        Me.label9.TabIndex = 12
        Me.label9.Text = "szSub"
        '
        'm_txtSubY
        '
        Me.m_txtSubY.Location = New System.Drawing.Point(248, 96)
        Me.m_txtSubY.Name = "m_txtSubY"
        Me.m_txtSubY.Size = New System.Drawing.Size(40, 21)
        Me.m_txtSubY.TabIndex = 11
        Me.m_txtSubY.Text = ""
        '
        'label8
        '
        Me.label8.Location = New System.Drawing.Point(184, 96)
        Me.label8.Name = "label8"
        Me.label8.Size = New System.Drawing.Size(48, 21)
        Me.label8.TabIndex = 10
        Me.label8.Text = "nSubY"
        '
        'm_txtSubX
        '
        Me.m_txtSubX.Location = New System.Drawing.Point(96, 96)
        Me.m_txtSubX.Name = "m_txtSubX"
        Me.m_txtSubX.Size = New System.Drawing.Size(40, 21)
        Me.m_txtSubX.TabIndex = 9
        Me.m_txtSubX.Text = ""
        '
        'label7
        '
        Me.label7.Location = New System.Drawing.Point(32, 96)
        Me.label7.Name = "label7"
        Me.label7.Size = New System.Drawing.Size(48, 21)
        Me.label7.TabIndex = 8
        Me.label7.Text = "nSubX"
        '
        'm_txtFromY
        '
        Me.m_txtFromY.Location = New System.Drawing.Point(248, 64)
        Me.m_txtFromY.Name = "m_txtFromY"
        Me.m_txtFromY.Size = New System.Drawing.Size(40, 21)
        Me.m_txtFromY.TabIndex = 7
        Me.m_txtFromY.Text = ""
        '
        'label6
        '
        Me.label6.Location = New System.Drawing.Point(184, 64)
        Me.label6.Name = "label6"
        Me.label6.Size = New System.Drawing.Size(48, 21)
        Me.label6.TabIndex = 6
        Me.label6.Text = "nFromY"
        '
        'm_txtFromX
        '
        Me.m_txtFromX.Location = New System.Drawing.Point(96, 64)
        Me.m_txtFromX.Name = "m_txtFromX"
        Me.m_txtFromX.Size = New System.Drawing.Size(40, 21)
        Me.m_txtFromX.TabIndex = 5
        Me.m_txtFromX.Text = ""
        '
        'label5
        '
        Me.label5.Location = New System.Drawing.Point(32, 64)
        Me.label5.Name = "label5"
        Me.label5.Size = New System.Drawing.Size(48, 21)
        Me.label5.TabIndex = 4
        Me.label5.Text = "nFromX"
        '
        'm_txtFrom
        '
        Me.m_txtFrom.Location = New System.Drawing.Point(248, 32)
        Me.m_txtFrom.Name = "m_txtFrom"
        Me.m_txtFrom.Size = New System.Drawing.Size(40, 21)
        Me.m_txtFrom.TabIndex = 3
        Me.m_txtFrom.Text = ""
        '
        'label4
        '
        Me.label4.Location = New System.Drawing.Point(184, 32)
        Me.label4.Name = "label4"
        Me.label4.Size = New System.Drawing.Size(48, 21)
        Me.label4.TabIndex = 2
        Me.label4.Text = "szFrom"
        '
        'm_txtRow
        '
        Me.m_txtRow.Location = New System.Drawing.Point(96, 32)
        Me.m_txtRow.Name = "m_txtRow"
        Me.m_txtRow.Size = New System.Drawing.Size(40, 21)
        Me.m_txtRow.TabIndex = 1
        Me.m_txtRow.Text = ""
        '
        'label3
        '
        Me.label3.Location = New System.Drawing.Point(32, 32)
        Me.label3.Name = "label3"
        Me.label3.Size = New System.Drawing.Size(48, 21)
        Me.label3.TabIndex = 0
        Me.label3.Text = "nRow"
        '
        'ToolWnd
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(392, 460)
        Me.Controls.Add(Me.groupBox2)
        Me.Controls.Add(Me.groupBox1)
        Me.MaximizeBox = False
        Me.MinimizeBox = False
        Me.Name = "ToolWnd"
        Me.Text = "ToolWnd"
        Me.groupBox1.ResumeLayout(False)
        Me.groupBox2.ResumeLayout(False)
        Me.ResumeLayout(False)

    End Sub

#End Region

    Private Sub button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button1.Click
        Dim strPath As String
        strPath = System.IO.Directory.GetCurrentDirectory()
        Dim FileDialog As System.Windows.Forms.OpenFileDialog = New System.Windows.Forms.OpenFileDialog
        FileDialog.InitialDirectory = strPath
        FileDialog.Filter = "Fax File(*.tif)|*.tif|Tif File(*.fax)|*.fax|Tiff File(*.tiff)|*.tiff|All File(*.*)|*.*"
        FileDialog.FilterIndex = 1
        FileDialog.RestoreDirectory = True

        If (FileDialog.ShowDialog() = Windows.Forms.DialogResult.OK) Then

            m_txtPathFile.Text = FileDialog.FileName

        End If
    End Sub

    Private Sub button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button2.Click
        Dim n As Int32 = fBmp_GetFileAllPage(m_txtPathFile.Text)
        m_txtNumPage.Text = n.ToString()
    End Sub

    Private Sub button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button3.Click
        Dim nRow As Int32 = Int32.Parse(m_txtRow.Text)
        Dim nFromX As Int32 = Int32.Parse(m_txtFromX.Text)
        Dim nFromY As Int32 = Int32.Parse(m_txtFromY.Text)
        Dim strFrom As String = m_txtFrom.Text
        Dim nSubX As Int32 = Int32.Parse(m_txtSubX.Text)
        Dim nSubY As Int32 = Int32.Parse(m_txtSubY.Text)
        Dim strSub As String = m_txtSub.Text
        Dim nToX As Int32 = Int32.Parse(m_txtToX.Text)
        Dim nToY As Int32 = Int32.Parse(m_txtToY.Text)
        Dim strTo As String = m_txtTo.Text
        Dim nTimeX As Int32 = Int32.Parse(m_txtTimeX.Text)
        Dim nTimeY As Int32 = Int32.Parse(m_txtTimeY.Text)
        Dim strTime As String = m_txtTime.Text

        Dim n As Int32 = fBmp_SetHeaderFormat(nRow, nFromX, nFromY, strFrom, nSubX, nSubY, strSub, nToX, nToY, strTo, _
    nTimeX, nTimeY, strTime)
        MessageBox.Show(n.ToString())
    End Sub
End Class