arts-pdf split pro 2.0 Manuale Utente
ARTS PDF Split Pro™ Guide
COM Object
8.5. COM Examples
8.5.1. Visual Basic
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,
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,