Basic4android 反射库-调用RunStaticMethod返回错误
我正在尝试使用反射库调用MotionEvent.Acquire方法。 但到目前为止，我还不是很成功。我尝试的每件事都会导致同样的错误。。。 这里我的代码来自一个按钮点击：Basic4android 反射库-调用RunStaticMethod返回错误,basic4android,Basic4android,我正在尝试使用反射库调用MotionEvent.Acquire方法。 但到目前为止，我还不是很成功。我尝试的每件事都会导致同样的错误。。。 这里我的代码来自一个按钮点击： Dim upTime As Long Dim ev As Object Dim args(12) As Object Dim types(12) As String upTime = Obj1.RunStaticMethod("android.os.SystemClock", "uptimeMillis", Null, Nu
Dim upTime As Long
Dim ev As Object
Dim args(12) As Object
Dim types(12) As String
upTime = Obj1.RunStaticMethod("android.os.SystemClock", "uptimeMillis", Null, Null)
'public static MotionEvent obtain (Long downTime, Long eventTime, Int action, Float x, Float y, Float pressure, Float size, Int metaState, Float xPrecision, Float yPrecision, Int deviceId, Int edgeFlags)
'Since: API Level 1
'Create a new MotionEvent, filling in all of the basic values that define the motion.
'Parameters:
'downTime The time (in ms) when the user originally pressed down To start a stream of position events. This must be obtained from uptimeMillis().
args(0) = upTime
types(0) = "java.lang.long"
'eventTime The the time (in ms) when this specific event was generated. This must be obtained from uptimeMillis().
args(1) = upTime
types(1) = "java.lang.long"
'action The kind of action being performed, such As ACTION_DOWN.
args(2) = "1" 'MotionEvent.ACTION_UP
types(2) = "java.lang.int"
'x The X coordinate of this event.
args(3) = "50.0"
types(3) = "java.lang.float"
'y The Y coordinate of this event.
args(4) = "20.0"
types(4) = "java.lang.float"
'pressure The current pressure of this event. The pressure generally ranges from 0 (no pressure at all) To 1 (normal pressure), however values higher than 1 may be generated depending on the calibration of the input device.
args(5) = "1.0"
types(5) = "java.lang.float"
'size A scaled value of the approximate size of the area being pressed when touched with the finger. The actual value in pixels corresponding To the finger touch Is normalized with a device specific range of values AND scaled To a value between 0 AND 1.
args(6) = "1.0"
types(6) = "java.lang.float"
'metaState The state of any meta / modifier keys that were in effect when the event was generated.
args(7) = "0"
types(7) = "java.lang.int"
'xPrecision The precision of the X coordinate being reported.
args(8) = "1.0"
types(8) = "java.lang.float"
'yPrecision The precision of the Y coordinate being reported.
args(9) = "1.0"
types(9) = "java.lang.float"
'deviceId The id For the device that this event came from. An id of zero indicates that the event didn't come from a physical device; other numbers are arbitrary and you shouldn't depend on the values.
args(10) = "0"
types(10) = "java.lang.int"
'edgeFlags A bitfield indicating which edges, If any, were touched by this MotionEvent.
args(11) = "0"
types(11) = "java.lang.int"
'call methode
***ev = Obj2.RunStaticMethod("android.view.MotionEvent", "obtain", args, types)***
Dim args1(1) As Object
Dim types1(1) As String
args1(0) = ev
types1(0) = "android.view.MotionEvent"
Obj2.Target = Activity
Obj2.RunStaticMethod("android.view.View","dispatchTouchEvent",args1,types1)
Sub Activity_Create(FirstTime As Boolean)
Dim me As Object
me = ObtainMotionEvent(1000, 1000, 1, 100, 100, 500, 500, 0, 100, 100, 0, 0)
Log(me)
End Sub
Sub ObtainMotionEvent(DownTime As Long, EventTime As Long, Action As Int, _
X As Float, Y As Float, Pressure As Float, Size As Float, MetaState As Int, _
XPrecision As Float, YPrecision As Float, DeviceId As Int, EdgeFlags As Int) As Object
Dim r As Reflector
Dim f, i As String
f = "java.lang.float"
i = "java.lang.int"
l = "java.lang.long"
Return r.RunStaticMethod("android.view.MotionEvent", "obtain", _
Array As Object(DownTime, EventTime, Action, X, Y, Pressure, Size, MetaState, _
XPrecision, YPrecision, DeviceId, EdgeFlags), _
Array As String(l, l, i, f, f, f, f, i, f, f, i, i))
End Sub
谢谢你提供的答案。这是可行的，但与我的呼叫有什么区别吗？您传递的是字符串而不是数字：args（6）=“1.0”这应该是：args（6）=1我也看到了手势库，但它没有帮助。我想解决的问题是，如果用户在任何视图（编辑字段）上以手势开始，他应该能够滚动页面（leftToright）。但是现在，如果他这样做，视图（例如编辑字段）将被激活，并且移动操作不会发生。
Sub Activity_Create(FirstTime As Boolean)
Dim me As Object
me = ObtainMotionEvent(1000, 1000, 1, 100, 100, 500, 500, 0, 100, 100, 0, 0)
Log(me)
End Sub
Sub ObtainMotionEvent(DownTime As Long, EventTime As Long, Action As Int, _
X As Float, Y As Float, Pressure As Float, Size As Float, MetaState As Int, _
XPrecision As Float, YPrecision As Float, DeviceId As Int, EdgeFlags As Int) As Object
Dim r As Reflector
Dim f, i As String
f = "java.lang.float"
i = "java.lang.int"
l = "java.lang.long"
Return r.RunStaticMethod("android.view.MotionEvent", "obtain", _
Array As Object(DownTime, EventTime, Action, X, Y, Pressure, Size, MetaState, _
XPrecision, YPrecision, DeviceId, EdgeFlags), _
Array As String(l, l, i, f, f, f, f, i, f, f, i, i))
End Sub