Sub Globals
'These global variables will be redeclared each time the activity is created.
'These variables can only be accessed from this module.
Dim MyWebViewExtras As WebViewExtras
Dim WebView1 As WebView
Dim p As Phone
Dim adview1 As AdView
Dim lblcisar As Label
Dim pw As PhoneWakeState
Dim lblwebcam As Label
Dim lblwaith As Label
Dim answ As Int
End Sub
Sub Activity_Create(FirstTime As Boolean)
'Do not forget to load the layout file created with the visual designer. For example:
Activity.LoadLayout("partanna")
p.SetScreenOrientation(1)
adview1.Initialize("AdView1","a1510d125a9b52e")
Activity.AddView(adview1, (Activity.Width - 320dip) / 2, Activity.Height - 50dip, 320dip, 50dip)
adview1.LoadAd
adview1.Visible=False
WebView1.SetLayout(0%x,5%y,155%x,55%y)
lblwaith.SetLayout(0%x,0%y,100%x,55%y)
lblcisar.SetLayout(0%x,50%y,100%x,7%y)
lblwebcam.SetLayout(0%x,72%y,100%x,7%y)
'webview1.LoadUrl("http://partannawebcam.dlinkddns.com/snapshot.cgi?user=visitatore1&pwd=partanna")
'WebView1.LoadUrl("http://partannawebcam.dlinkddns.com/monitor.htm?user=visitatore1&pwd=partanna")
WebView1.Height=100%y/2
WebView1.Width=100%x
WebView1.LoadUrl("http://partannawebcam.dlinkddns.com/monitor.htm?user=visitatore1&pwd=partanna")
MyWebViewExtras.addJavascriptInterface(WebView1, "B4A")
End Sub
Sub webview1_PageFinished (Url As String)
'webview1.SetLayout(-51%x,-5%y,155%x,55%y)
lblwaith.Visible=False
End Sub
Sub Activity_Resume
pw.KeepAlive(True)
End Sub
Sub Activity_KeyPress (KeyCode As Int) As Boolean
If KeyCode = KeyCodes.KEYCODE_BACK Then
answ = Msgbox2("Sei sicuro di voler uscire dal programma?","ATTENZIONE !!","SI","","NO",Null)
If answ = DialogResponse.POSITIVE Then
ExitApplication
Return False
Else
End If
End If
Return True
End Sub
Sub Activity_Pause (UserClosed As Boolean)
pw.ReleaseKeepAlive
End Sub
Sub lblcisar_Click
Dim i As Intent
i.Initialize(i.ACTION_VIEW, "http://www.siciliabit.com")
StartActivity (i)
End Sub