显示安卓终端所提供的各种传感器信息，包括类型、测量值、上限值、供应商信息。

[liyy]

Sub Process_Globals
Dim NativeMe As JavaObject
End Sub

Sub Globals

End Sub

Sub Activity_Create(FirstTime As Boolean)
'Do not forget to load the layout file created with the visual designer. For example:
'Activity.LoadLayout("Layout1")
NativeMe.InitializeContext
Dim returnlist As List
returnlist = NativeMe.RunMethod("myDeviceSensors",Null)
For i = 0 To returnlist.Size - 1
Log(returnlist.Get(i))'
Next


End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

 

[hongbii khaw]

Dim p As Phone
Dim Manufacturer As String = p.Manufacturer '厂商
Dim Model as string = p.Model '型号