arts-pdf split pro 2.0 User Manual

 

 

 

 

Private Sub cmdSplit_Click()  
     
    Dim sMode As String  ' version mode (demo or full)  
    Dim lMode As Long  ' value of the version mode  
    Dim iCounter As Integer       
    Dim lOptionSelected As Long ' value of the split method selected  
    Dim lSplitResult As Long  ' value of the split result  
  
    Dim SplitPro As New ARTSSPLITPROCOMLib.ARTSSplitPro  
      
    'Display version number  
    txtVersionNumber = SplitPro.GetVersionNumber  
      
    'Check if a serial number is entered  
    If txtSerialNo = "" Then  
        sMode = "Demo version"  
    Else  
        'Set the serial number and get the version mode value  
        lMode = SplitPro.SetLicenceKey(txtSerialNo)  
             
        'Assign the version mode value a text description  
        Select Case lMode  
            Case 0  
                 sMode = "Full version"  
            Case 1  
                sMode = "Demo version"  
        End Select  
    End If  
  
    'If overwrite is selected then set the mode  
    If chkOverwriteMode = True Then  
        SplitPro.SetOverwriteMode (bOverwriteMode)  
    End If  
  
    'Check which option is selected on the form  
    For iCounter = 0 To 4  
        If optSplitOption(iCounter).Value = True Then  
            lOptionSelected = iCounter  
        End If  
    Next iCounter  
      
    'Perform the selected method to split  
    Select Case lOptionSelected  
        Case 0  
           lSplitResult = SplitPro.SplitByBookmarks(txtInput, 
txtOutput, txtLowestBookmark, txtHighestBookmark)  
        Case 1  
           lSplitResult = SplitPro.SplitByControlFile(txtInput, 
txtOutput, txtControlFile, chkFullPath)  
        Case 2  
           lSplitResult = SplitPro.SplitByCoordFile(txtInput, 

  Page 43 of 58