小白用VB开发安卓程序_18回退键处理

B4A工程创建后，没有Activity_KeyPress事件，需要你手工添加的，这一点需要注意。

Sub Activity_KeyPress (KeyCode As Int) As Boolean

    '假如没有这段代码Activity_KeyPress，你点击了退出键，这就是交给系统处理

    If (KeyCode = KeyCodes.KEYCODE_BACK) Then

        If (Msgbox2("是否要退出当前界面?", "", "确定", "取消", "", Null) = DialogResponse.POSITIVE) Then

            'DialogResponse是一个预定义的对象,其中包含了可能的返回值

            'DialogResponse.Positive = -1 '点击确认按钮

            'DialogResponse.CANCEL= -3 '点击取消按钮


            StartActivity( Main )


            'Return False 表示按键信息交给系统处理

            '这个处理由两个步骤组成：

            '1、在系统执行默认的退出键事件之前，先执行我写的代码

            '2、执行系统默认的退出键事件

            Return False


        Else


            'Return True 将告诉系统，当前的退出键已经处理好了

            'Return True 只执行我写的代码，不再去执行系统默认的退出键事件

            Return True


        End If


    End If

End Sub