Dim Auto1 As AutoCompleteEditText
Dim ImageView1 As ImageView
Dim Button1 As Button
Dim Button2 As Button
Dim Button3 As Button
Dim Button4 As Button
Dim Label1 As Label
Dim Label2 As Label
Dim Label3 As Label
Dim Label4 As Label
Dim timer1 As Timer
Dim Img2 As ImageView
End Sub
Sub Activity_KeyPress (KeyCode As Int) As Boolean 'Return True to consume the event
Dim Answ As Int
Dim txt As String
Select KeyCode
Case KeyCodes.KEYCODE_BACK
Answ = Msgbox2("Confermare uscita","ATTENZIONE","Si", "", "No", Null)
If Answ = DialogResponse.NEGATIVE Then
Return True
Else
Activity.Finish
Return False
End If
End Select
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("home")
Auto1.Initialize("Auto1")
Activity.AddView(Auto1,10dip,10dip,300dip,70dip)
Dim nomi () As String
nomi = Array As String ("terme","grand","italia","polo","president","branca","maria","albergo","hotel","stelle","congressi")
Auto1.SetItems(nomi)
timer1.Initialize("timer1",5000)
timer1.Enabled=True
Img2.Visible=True
Img2.BringToFront
End Sub
Sub timer1_tick
Img2.Visible=False
timer1.Enabled=False
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub Button4_Click
Msgbox("3735254716","info")
End Sub
Sub Button3_Click
Msgbox("[email protected]","info")
End Sub
Sub Button2_Click
StartActivity(estero)
End Sub
Sub Button1_Click
StartActivity(italia)
End Sub