چگونگی استفاده از KEYCODE_VOLUME_UP و KEYCODE_VOLUME_DOWN

[qasem 249]

سلام دوستان من میخوام از طریق Activity_KeyPress بیام صدای برنامه را زیاد یا کم کنم ، کسی میدونه چه کدی باید بنویسم؟

[AmirGholami 101]

Sub Activity_KeyPress (KeyCode As Int) As Boolean 'ign
	If KeyCode = KeyCodes.KEYCODE_VOLUME_UP Then
		'// Volume Up Codes
	Else if KeyCode = KeyCodes.KEYCODE_VOLUME_DOWN Then
		'// Volume Down Codes
	End If
	Return True
End Sub

ببین این به دردت میخوره

[arash127 488]

بفرما داداش :

Sub Activity_KeyPress (KeyCode As Int) As Boolean
    Try
        If KeyCode=KeyCodes.KEYCODE_VOLUME_DOWN Then
            Dim p As Phone
            If (p.GetVolume(p.VOLUME_MUSIC)-1) < 0 Then
                p.SetVolume(p.VOLUME_MUSIC,0,True)
            Else
                p.SetVolume(p.VOLUME_MUSIC,(p.GetVolume(p.VOLUME_MUSIC)-1),True)
            End If
        End If
        
        If KeyCode=KeyCodes.KEYCODE_VOLUME_UP Then
            Dim p As Phone
            If (p.GetVolume(p.VOLUME_MUSIC)+1) > p.GetMaxVolume(p.VOLUME_MUSIC) Then
                p.SetVolume(p.VOLUME_MUSIC,p.GetMaxVolume(p.VOLUME_MUSIC),True)
            Else
                p.SetVolume(p.VOLUME_MUSIC,(p.GetVolume(p.VOLUME_MUSIC)+1),True)
            End If
        End If
    Catch
        Activity.Finish
    End Try
    Return True
End Sub