Android Question Error in Select format

ivavilagu

Member
Licensed User
I don´t know the cause but I have an error during compilation in line Select KeyCode

"Error description: ',' expected"

B4X:
Sub Activity_KeyPress (KeyCode As Int) As Boolean
    Select KeyCode
        Case KeyCodes.KEYCODE_BACK
            Select intNUM_PANTALLA
                Case 0
                    'Se pulsa atrás en la pantalla 'principal'
                    If (intBackButtonCounter = 0) Then
                        ToastMessageShow("Pulse de nuevo para salir",False)
                          intBackButtonCounter = 1
                           timeBACK.Initialize("timeBACK",3000)
                           timeBACK.Enabled = True
                           Return True
                    Else
                          Activity.Finish
                    End If
                Case 1
                    pantalla_principal                                          'Se pulsa atrás en la pantalla 'referencia'
                    Return True
                Case 2
                    'Se pulsa atrás en la pantalla de datos de referencia
                    CallSubDelayed(Me, "pantalla_referencia")                  'Se hace esta llamada para que ejecute el sub después de hacer el return true
                    Return True                                                 'para que el programa no aborte
                Case 3
                    'Se pulsa atrás en la pantalla 'estudio de tiempos'
                    TIEMPO_PARCIAL.Enabled = False                               'Paramos los relojes de la pantalla 'estudio tiempos'
                    TIEMPO_TOTAL.Enabled = False
                    If (SDPanel.GetSlidingInProgress = True) Then             'Comprobamos si los paneles se están deslizando. En caso afirmativo
                        Return True                                              'evitamos salir de la pantalla para que no se cuelgue el programa
                    Else
                        pantalla_principal
                        Return True
                    End If
            End Select
        Case KeyCodes.KEYCODE_VOLUME_DOWN Then                                    'Ha pulsado la tecla de bajar volumen en la pantalla 'estudio'
            If (intNUM_PANTALLA = 3 AND TIEMPO_PARCIAL.IsInitialized) Then        'Pasamos a tomar el tiempo sin actividad
                agregar_crono(0)                                                
                siguiente_movimiento
                Return True
            End If
        Case KeyCodes.KEYCODE_VOLUME_UP Then                                       'Ha pulsado la tecla de subir volumen en la pantalla 'estudio'
            If (intNUM_PANTALLA = 3 AND TIEMPO_PARCIAL.IsInitialized) Then        'Pasamos de tomar el crono en ese tiempo
                siguiente_movimiento
                Return True
            End If
    End Select
End Sub
 

RandomCoder

Well-Known Member
Licensed User
Try removing the Then statement is the last two Case lines.

B4X:
CaseKeyCodes.KEYCODE_VOLUME_DOWN Then
 
CaseKeyCodes.KEYCODE_VOLUME_UP Then
 

ivavilagu

Member
Licensed User
Ups, I didn´t see that mistake. Thanks!!!!
 
Top