Prova questo e vedrai che funziona
ciaooooooooooo
'Activity module
Sub Process_Globals
'These global variables will be declared once when the application starts.
'These variables can be accessed from all modules.
'Dim DBCursor As Cursor
Dim DBCursor As Cursor
Dim DBSql As SQL
End Sub
Sub Globals
'These global variables will be redeclared each time the activity is created.
'These variables can only be accessed from this module.
Dim liv As Int = 0
Dim risultato As String
Dim risultato_old As String
Dim cmdimg As Button
Dim cmdvideo As Button
Dim lbltitolo As Label
Dim lbltesto As Label
Dim btn As Button 'dichiaro variabile di tipo button
Dim back As Button
Dim btnhome As Button
Dim elenco_ritroso(100) As String
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("Layout1")
Activity.LoadLayout("paginaprincipale")
If FirstTime Then
'tDir=dtbs.CopyDBFromAssets("datab","","datab",False)
File.Copy(File.DirAssets, "contenuti", File.DirInternal, "contenuti") 'MODIFICATO LUIGI
End If
If DBSql.IsInitialized=False Then
DBSql.Initialize(File.DirInternal,"contenuti",True)
End If
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub cmd_entra_Click
home (Null,0)
End Sub
Sub home (campo As String,livello As Int)
Dim copia As String
risultato = campo
liv=livello
Select Case liv
Case 0
DBCursor = DBSql.ExecQuery("SELECT DISTINCT categoria FROM argomenti")
copia = "categoria"
liv = liv+1
Case 1
DBCursor = DBSql.ExecQuery("SELECT DISTINCT menu FROM argomenti WHERE categoria = '" & risultato & "'")
copia = "menu"
liv = liv+1
Case 2
DBCursor = DBSql.ExecQuery("SELECT DISTINCT sottomenu FROM argomenti WHERE menu = '" & risultato & "'")
copia = "sottomenu"
liv = liv+1
Case 3
DBCursor = DBSql.ExecQuery("SELECT titolo FROM argomenti WHERE sottomenu = '" & risultato & "'")
copia = "titolo"
liv = liv +1
End Select
If DBCursor.RowCount > 0 Then
Dim elenco(DBCursor.RowCount) As String
For x=0 To DBCursor.RowCount - 1
DBCursor.Position=x
elenco(x)= DBCursor.GetString(copia.Trim)
Next
Dim punto As Int = 50
elenco_ritroso(liv-1)=risultato
Activity.RemoveAllViews
'Dim bdw As BitmapDrawable
For i = 0 To elenco.Length - 1
btnhome.Initialize("bnthome")
Activity.AddView(btnhome, 45, punto, Activity.Width/2, 60dip)
btnhome.Text = elenco(i)
btnhome.Tag = liv
punto = punto+80
'elenco= ""
'di seguito il codice x le immagini di sfondo dei bottoni
' bdw.Bitmap = LoadBitmap(Activity.SetBackgroundImage ("palloni.jpg"))
' btnhome(i).Background = bdw
Next
'Dim back As Button
back.Initialize("back")
Activity.AddView(back,10,10,150,60) 'pulsante indietro
back.Text= "Indietro"
back.Tag=liv-1
If liv = 1 Then
back.Visible=False
Else
back.Visible=True
End If
End If
DBCursor.Close
'DBSql.Close
End Sub
Sub bnthome_Click
'evento
btn = Sender 'gli passo il sender dell’oggetto che ha scatenato l’evento
If liv = 4 Then
DBCursor = DBSql.ExecQuery("SELECT * FROM argomenti WHERE titolo = '" & btn.Text & "'")
Activity.RemoveAllViews
Activity.LoadLayout("schermata")
If DBCursor.RowCount > 0 Then
DBCursor.Position = 0
lbltitolo.Text = DBCursor.GetString("titolo")
lbltesto.Text = DBCursor.GetString("testo")
End If
DBCursor.Close
'DBSql.Close
Else
home (btn.text,btn.tag )
End If
End Sub
Sub cmdvideo_Click
End Sub
Sub cmdimg_Click
End Sub
Sub cmdback_Click
liv = liv -1
Activity.RemoveAllViews
home( elenco_ritroso(liv-1),liv-1)
End Sub
Sub back_Click
liv=liv-1
Activity.RemoveAllViews
home( elenco_ritroso(liv-1),liv-1)
End Sub