#Region Project Attributes
#MainFormWidth: 600
#MainFormHeight: 600
' #AdditionalJar: jPDFViewer.v2019R1.08.jar
#AdditionalJar: jPDFViewer.jar
#End Region
Sub Process_Globals
Private fx As JFX
Private MainForm As Form
Dim inline As JavaObject
End Sub
Sub AppStart (Form1 As Form, Args() As String)
MainForm = Form1
inline = Me
MainForm.Show
' c:/temp/pdftest.pdf in the following line is the name of the pdf file
'MainForm.RootPane.AddNode(inline.RunMethod("newViewer",Array("c:/temp/pdftest.pdf")),0,0,600,600)
MainForm.RootPane.AddNode(inline.RunMethod("newViewer",Array("https://www.progwhiz.com/tester/testpage.pdf")),0,0,600,600)
' MainForm.RootPane.AddNode(inline.RunMethod("newViewer","https://www.progwhiz.com/tester/testpage.pdf"),0,0,600,600)
End Sub
#if java
import java.net.*;
import java.io.*;
import java.lang.Object;
import java.awt.Component;
import java.awt.Container;
import javax.swing.JComponent;
import javax.swing.JPanel;
import com.qoppa.pdfViewer.PDFViewerBean;
import com.qoppa.pdf.actions.Action;
import com.qoppa.pdf.actions.URLAction;
//import com.qoppa.pdfProcess.PDFDocument;
import com.qoppa.pdf.PDFException;
import javafx.scene.layout.BorderPane;
static PDFViewerBean myViewer;
public static BorderPane newViewer(String pdf){
myViewer = new PDFViewerBean();
try{
URL url = new URL(pdf);
myViewer.loadPDF(url);
}
catch (PDFException pdferr){
System.out.println(pdferr);
}
return new BorderPane(myViewer);
}
#end if
'Return true to allow the default exceptions handler to handle the uncaught exception.
Sub Application_Error (Error As Exception, StackTrace As String) As Boolean
Return True
End Sub