Sub Process_Globals
Dim rv As RemoteViews
End Sub
Sub Service_Create
rv = ConfigureHomeWidget("Screen", "rv", 30, "My Own Image", True)
End Sub
Sub Service_Start (StartingIntent As Intent)
rv.HandleWidgetEvents(StartingIntent)
Sleep(0)
Service.StopAutomaticForeground
Scrivi
End Sub
Sub rv_RequestUpdate
rv.UpdateWidget
End Sub
Sub rv_Disabled
StopService("")
End Sub
Sub Service_Destroy
End Sub
Sub Scrivi
rv.SetImage("ImageView1", LoadBitmap(File.DirAssets, "poker-chips.png"))
Sleep(100)
rv.UpdateWidget
rv.Settextcolor("label1", Colors.red)
Sleep(100)
rv.updatewidget
End Sub
Sub label1_Click
rv.UpdateWidget
End Sub