Sub Copia_Click
Dim r As Reflector
r.Target = r.GetContext
Log(r.Target)
r.Target = r.RunMethod2("getSystemService", "clipboard", "java.lang.String") 'CipboardManager
Log(r.Target)
Log(r.RunMethod2("setText",EditText1.Text,"java.lang.CharSequence"))
End Sub
Sub Incolla_Click
Dim r As Reflector
r.Target = r.GetContext
Log(r.Target)
r.Target = r.RunMethod2("getSystemService", "clipboard", "java.lang.String") 'CipboardManager
Log(r.Target)
If r.RunMethod("hasText") Then
EditText2.Text=r.RunMethod("getText")
Log(r.RunMethod("getText"))
Else
ToastMessageShow("Error : No texto",True)
End If
End Sub