Sub Process_Globals
Dim phone1 As Phone
Dim previousVolume As Int
End Sub
Sub Globals
End Sub
Sub Activity_Create(FirstTime As Boolean)
End Sub
Sub Activity_Resume
previousVolume = phone1.GetVolume(phone1.VOLUME_RING)
phone1.SetVolume(phone1.VOLUME_RING, 0, False)
End Sub
Sub Activity_Pause (UserClosed As Boolean)
phone1.SetVolume(phone1.VOLUME_RING, previousVolume, False)
End Sub
Sub Activity_KeyPress (KeyCode As Int) As Boolean 'return true if you want to consume the event
Select KeyCode
Case KeyCodes.KEYCODE_VOLUME_UP
Log("Up")
Return True
Case KeyCodes.KEYCODE_VOLUME_DOWN
Log("Down")
Return True
End Select
End Sub