#Region Project Attributes
#MainFormWidth: 310
#MainFormHeight: 600
#End Region
Sub Process_Globals
Private fx As JFX
Private MainForm As Form
Private WebView1 As WebView
Private mTimer As Timer
End Sub
Sub AppStart (Form1 As Form, Args() As String)
MainForm = Form1
MainForm.RootPane.LoadLayout("TelView") 'Load the layout file.
MainForm.Show
mTimer.Initialize("RefreshWebView", 30000)
RefreshWebView_Tick
End Sub
'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
Private Sub RefreshWebView_Tick
WebView1.LoadUrl ("http://192.168.100.1/myfritz")
End Sub