Spanish GPS EN DISPOSITIVOS

[felixjavierdiaz]

Hola a todos...

Alguien sabe como puedo desde mi app saber si el dispositivo donde esta instalado tiene GPS.


Gracias,

fdm

 

[bgsoft]

Hola:

Prueba esto, aunque ya te adelanto que en algunos dispositivos clonicos puede que no te devuelva algo correcto

If SaberFunciones("android.hardware.location.gps") Then
    Msgbox("Si existe GPS", "")
Else
    Msgbox("No existe GPS","")
End If
   

Sub SaberFunciones(Funciones As String) As Boolean

  Dim r As Reflector
  r.Target = r.GetContext
  r.Target = r.RunMethod("getPackageManager")
  Return r.RunMethod2("hasSystemFeature", Funciones, "java.lang.String")
   
End Sub

Saludos