Hola Séneca:
Aparte de los dos ejemplos que te han dado lo puedes implementar tu, creas ese panel y lo haces invisible, luego detectas cuando te mueven el dedo por ejemplo en el activity
Sub Process_Globals
Dim XInicial = 0 As Float
End sub
Sub Globals
Dim PanelLateral As Panel
End sub
Sub Activity_Create(FirstTime As Boolean)
Activity.Color = Colors.Blue
PanelLateral.Initialize("PanelLateral")
Activity.AddView(PanelLateral,100%x,0,50%x,100%y)
PanelLateral.Visible = False
PanelLateral.Color = Colors.Red
End sub
Sub Activity_Touch (Action As Int, X As Float, Y As Float)
' con esto puedes comprobar cuando pulsan antes de arrastrar y coger X
If Action= Activity.ACTION_DOWN Then
' Puedes verificar si te estan pulsando al borde (por ejemplo al 5%)
if X > 95%x then
Xinicial = X
else
Xinicial = 0
end if
End If
' Con esto detectas cuando mueven
If Action = Activity.ACTION_MOVE Then
if X < Xinicial then
' Mueves el panel cuando desplazan el dedo a la izquierda
PanelLateral.Visible = True
PanelLateral.left = X ' o puedes darle un valor para que se mueva mas lento
End if
End If
If Action = Activity.ACTION_UP Then
' Aqui dejas de mover el panel y si quieres lo centras donde quieras o los pones a 0
XInicial =0
End if
End Sub
Sub PanelLateral_Click
PanelLateral.Visible= False
End Sub
Esto es solo para que cojas la idea y que veas que no es tan dificil, prueba ese código y veras que funciona. Si quieres moverlo arriba y abajo emplea la Y (tendras que descontar el punto de entrada para que no salte)
Ahh, y podrás darle la altura a tu panel que quieras
La propiedad Touch tambien la tienes en los Paneles por si debajo tienes otro panel en vez del Activity
Saludos