Salve da un paio di giorni sono fermo su un intoppo, ho scritto (tentando) una app che dopo aver proposto 4 image ne tocchi una che dopo la ingrandisco aspetto 2 secondi ma non torna dalla sub img_click , va avanti con le altre successive 4 solo se presso in tasto back invece di girare con le successive in automatico. Ho preso spunto da FlickrViewer.b4a
Ho b4a da alcuni giorni.
Grazie tanto
Sub Activity_KeyPress (KeyCode As Int) As Boolean 'return true if you want to consume the event or False if you want STOP
If KeyCode = KeyCodes.KEYCODE_BACK Then Return True
End Sub
Ciao il problema che devo simulare la pressione del tasto back e non controllarlo, in sostanza il tasto deve essere pressato in automatico.
Altrimenti non so come uscirne fuori dalla sub che aspetta questo evento per rilanciare la Sub Activity_Resume per ricominciare a mostrare image
incrementando un indice.
Ciao il problema che devo simulare la pressione del tasto back e non controllarlo, in sostanza il tasto deve essere pressato in automatico.
Altrimenti non so come uscirne fuori dalla sub che aspetta questo evento per rilanciare la Sub Activity_Resume per ricominciare a mostrare image
incrementando un indice.
Facendo girare il programma dopo aver visiualizzato 4 immagini ne selezione con un click uno che viene mostrato in un altra activity e si mette in attesa di un
evento back click. se appunto presso back torna alla Sub Activity_Resume per ricominciare a mostrare altre 4 image e via dicendo. Ora io invece vorrei ottenere dopo
attesa di alcune secondi la pressione del tasto back in automatico, per rilanciare il ciclo.
Puoi effettuare la stessa simulazione con un Timer....
B4X:
Dim timer1 as Timer
'Nella nuova activity nel create
....
timer1.Initialize("timer1", 3000) 'Dura 3 secondi
timer1.Enabled = True
.....
Sub timer1_.....
Activity.Finish
End Sub
In questo modo, apri la nuova finestra mostri l'immagine per 3 secondi e in automatico si chiude la stessa...ritornando alla activity precedente che di conseguenza scatena il resume
Sub Activity_KeyPress (KeyCode As Int) As Boolean 'return true if you want to consume the event or False if you want STOP
If KeyCode = KeyCodes.KEYCODE_BACK Then Return True
End Sub
se metto il codice, per far in modo che torni indietro all'ultima schermata, non funziona.
Sub Activity_KeyPress (KeyCode As Int) As Boolean 'return true if you want to consume the event or False if you want STOP
If KeyCode = KeyCodes.KEYCODE_BACK Then Return True
End Sub
se metto il codice, per far in modo che torni indietro all'ultima schermata, non funziona.
Mi metti queste due log.... i valori tornano uguali ??
B4X:
Sub AStream_NewData (Buffer() As Byte)
DatiLetti = (BytesToString( Buffer, 0, Buffer.Length, "UTF8") )
PrendiValori(DatiLetti)
Log("Valore 1 Orginale: " & DatiLetti)
End Sub
Sub PrendiValori( Contenuto As String )
ValoreGSR = Contenuto.Trim
Log("Valore 2: " & ValoreGSR)
End Sub
In ogni caso per ogni problema diverso dovresti aprire un nuovo thread....sei partito con la simulazione del tasto back...e ora parliamo di altro. Questo anche per facilitare eventuali ricerche da parte dei nostri colleghi.