Sub p120_Click'COMPARTIR POR WHATSAPP
If cuadros = 0 Then
ToastMessageShow(ley14, False)
Return
End If
p112_Click
Dim b As Bitmap
Dim c As Canvas
b.InitializeMutable(p200.Width, p200.Height) ' Initialize mutable bitmap to contain size of aView ...
c.Initialize2(b) ' Get bitmap canvas ...
Dim args(1) As Object
Dim types(1) As String
Dim r As Reflector
r.Target = c
args(0) = r.GetField("canvas") ' Get android.graphics.Canvas field ...
types(0) = "android.graphics.Canvas"
' Draw aView content onto the bitmap canvas ...
r.Target = p200
r.RunMethod4("draw", args, types)
If File.Exists(File.DirRootExternal, "superMEME") = True Then
Else
File.MakeDir(File.DirRootExternal, "superMEME")
End If
Dim rp As RuntimePermissions
rp.CheckAndRequest(rp.PERMISSION_WRITE_EXTERNAL_STORAGE)
Wait For Activity_PermissionResult (Permission As String, Result As Boolean)
If Result Then
Dim out As OutputStream
out = File.OpenOutput(File.DirRootExternal & "/superMEME/", "temp321123.jpg", False)
b.WriteToStream(out, 100, "JPEG")
out.Close
Dim compartir As INTENTID
If compartir.IsInitialized = False Then compartir.Initialize
inter
compartir.ShareImage(File.DirRootExternal & "/superMEME/", "temp321123.jpg",True)
'access here
Else
'no permission
End If
End Sub