افزایش صدای رسانه به شکل پیشفرض در B4A

[User 97]

سلام وقتتون بخیر.

به شکل پیشفرض در یک برنامه عادی با فشار دادن دکمه افزایش ولوم، صدای زنگ تماس تلفن افزایش پیدا میکنه ؛ چطور میتونم مشابه حالتی که در اکثر بازی ها وجود داره کاری کنم که با فشار دادن دکمه افزایش ولوم ، صدای رسانه تلفن (حتی در شرایطی که هیچ رسانه ای درحال پخش نیست) افزایش پیدا کنه؟

[محمدرضا شاهپیری 5,579]

ub Activity_KeyPress (KeyCode As Int) As Boolean

    Dim PhoneVolume As Phone

    If KeyCode = KeyCodes.KEYCODE_VOLUME_DOWN Then
        If PhoneVolume.GetVolume(PhoneVolume.VOLUME_MUSIC) > 0 Then
            PhoneVolume.SetVolume(PhoneVolume.VOLUME_MUSIC,PhoneVolume.GetVolume(PhoneVolume.VOLUME_MUSIC)-1,True)
        End If   
    End If
    If KeyCode = KeyCodes.KEYCODE_VOLUME_UP Then
        If PhoneVolume.GetVolume(PhoneVolume.VOLUME_MUSIC) < PhoneVolume.GetMaxVolume(PhoneVolume.VOLUME_MUSIC) Then
            PhoneVolume.SetVolume(PhoneVolume.VOLUME_MUSIC,PhoneVolume.GetVolume(PhoneVolume.VOLUME_MUSIC)+1,True)
        End If
    End If
End Sub

کد بالا رو تست کنید