Sub screenshot
'if file exist the delete first
If File.Exists(File.DirInternal, "small.png") = True Then
File.Delete(File.DirInternal, "small.png")
End If
Dim Obj1, Obj2 As Reflector
Dim bmp As Bitmap
Dim c As Canvas
Obj1.Target = Obj1.GetActivityBA
Obj1.Target = Obj1.GetField("vg")
bmp.InitializeMutable(Panel1.left + Panel1.Width, Panel1.Top + Panel1.Height)
c.Initialize2(bmp)
Dim args(1) As Object
Dim types(1) As String
Obj2.Target = c
Obj2.Target = Obj2.GetField("canvas")
args(0) = Obj2.Target
types(0) = "android.graphics.Canvas"
Obj1.RunMethod4("draw", args, types)
Dim Out As OutputStream
Out = File.OpenOutput(File.DirInternal, "small.png", False)
bmp.WriteToStream(Out, 50, "PNG")
Out.Close
'draw from image to canvas
Dim canvas1 As Canvas
canvas1.Initialize(cardb2)
Dim scrt As Rect
scrt.Initialize(panel1.left, panel1.top, panel1.left + panel1.Width, panel1.Top + panel1.Height)
Dim rectPanel1 As Rect
rectPanel1.Initialize(0, 0,cardb2.Width, cardb2.Height)
canvas1.DrawBitmap(LoadBitmap(File.DirInternal, "small.png"), scrt , rectPanel1)
cardb2.Invalidate
End Sub