مشکل با عکس گرفتن از پنل

[alinoori 123]

سلام دوستان

من تو برنامم میخوام از پنل و ویوهایی که توشه عکس بگیرم 

ولی مشکل اینه که از پنل و اکتیویتی با هم عکس میگیره .پنل من هم وسط اکتیویتیه و از اطاف فاصله داره 

من  نمیخوام اکتیوتی هم جزو عکس باشه و میخوام فقط از پنل عکس گرفته بشه 

راهی داره ؟

اینم کدام

Sub but_click
	
		PanelCapture(ppa)


      Dim Obj1, Obj2 As Reflector
Dim bmp As Bitmap


Dim c As Canvas
Dim now, i As Long
Dim dt As String
DateTime.DateFormat = "yyMMddHHmmss"
now = DateTime.now
dt = DateTime.Date(now) 
Obj1.Target = Obj1.GetActivityBA
Obj1.Target = Obj1.GetField("vg")
bmp.InitializeMutable(ppa.left + ppa.Width+10%x, ppa.Top + ppa.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.DirRootExternal&"/axax", dt & ".png", False)



bmp.WriteToStream(Out, 100, "PNG")
Out.Close
	
	
	
End Sub



'
Sub PanelCapture(pnl As Panel)

Dim Obj1, Obj2 As Reflector
Dim bmp As Bitmap
Dim c As Canvas
Obj1.Target = Obj1.GetActivityBA
Obj1.Target = Obj1.GetField("vg")
bmp.InitializeMutable(50%x, 50%y)   
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)


End Sub