Sub Process_Globals
Private fx As JFX
Private MainForm As Form
Dim imv As ImageView
Dim cirese, pere As Image
End Sub
Sub AppStart (Form1 As Form, Args() As String)
MainForm = Form1
MainForm.RootPane.LoadLayout("Ly1")
MainForm.Show
imv.Initialize("imv")
pere.Initialize("E:\_AndreiINFO\B4J\Projects\Memory\Files", "pere.png")
cirese.Initialize("E:\_AndreiINFO\B4J\Projects\Memory\Files", "cirese.jpg")
imv.SetImage(cirese)
End Sub
Sub Application_Error (Error As Exception, StackTrace As String) As Boolean
Return True
End Sub
Sub b2_MouseClicked (EventData As MouseEvent)
imv.GetImage(pere)
End Sub
Sub b1_MouseClicked (EventData As MouseEvent)
imv.GetImage(cirese)
End Sub