Sub AppStart (Form1 As Form, Args() As String)
MainForm = Form1
MainForm.RootPane.LoadLayout("1") 'Load the layout file.
MainForm.Show
File.Copy(File.DirAssets,"CCF100420160009.tif",File.DirApp,"CCF100420160009.tif")
ImageView1.SetImage(LoadTiff(File.DirApp,"CCF100420160009.tif"))
End Sub
Public Sub LoadTiff(FileDir As String,FileName As String) As Image
Dim BuffImg As JavaObject
Dim ImageIO As JavaObject
Dim SwingFXUtils As JavaObject
ImageIO.InitializeStatic("javax.imageio.ImageIO")
SwingFXUtils.InitializeStatic("javafx.embed.swing.SwingFXUtils")
BuffImg = ImageIO.RunMethod("read",Array(File.Openinput(FileDir,FileName)))
Log(BuffImg)
Return SwingFXUtils.RunMethod("toFXImage",Array(BuffImg,Null))
End Sub