سلام. من چندتا آپ ساختم تو همشون از کد زیر استفاده کردم و مشکلی نداشتم . تمام اشیا تو پنل عکشون گرفته میشد بدون مشکل :
Sub SavePanel(Sv As View,sDir As String,sFilename As String) As Bitmap
Dim o1, o2 As Reflector
Dim bmp As Bitmap
Dim C As Canvas
o1.Target = o1.GetActivityBA
o1.Target = o1.GetField("vg")
bmp.InitializeMutable(Sv.Width+20, Sv.Height+20)
C.Initialize2(bmp)
Dim args(1) As Object
Dim types(1) As String
o2.Target = C
o2.Target = o2.GetField("canvas")
args(0) = o2.Target
types(0) = "android.graphics.Canvas"
o1.RunMethod4("draw", args, types)
Dim Out As OutputStream
Out = File.OpenOutput(sDir, sFilename, False)
bmp.WriteToStream(Out, 100, "PNG")
Out.Close
End Sub
Sub starter_btn2_Click
SavePanel(aks_pnl,File.DirRootExternal,"Samlpe.png")
end sub
ولی از صبح تاحالا هرکاری میکنم فقط پنل خالی رو میگیره و ذخیره میکنه!! دوتا ایمیج ویو و یه باتون دارم تو پنل. انگار نه انگار .
سوال
vistamobile 1,700
سلام. من چندتا آپ ساختم تو همشون از کد زیر استفاده کردم و مشکلی نداشتم . تمام اشیا تو پنل عکشون گرفته میشد بدون مشکل :
Sub SavePanel(Sv As View,sDir As String,sFilename As String) As Bitmap Dim o1, o2 As Reflector Dim bmp As Bitmap Dim C As Canvas o1.Target = o1.GetActivityBA o1.Target = o1.GetField("vg") bmp.InitializeMutable(Sv.Width+20, Sv.Height+20) C.Initialize2(bmp) Dim args(1) As Object Dim types(1) As String o2.Target = C o2.Target = o2.GetField("canvas") args(0) = o2.Target types(0) = "android.graphics.Canvas" o1.RunMethod4("draw", args, types) Dim Out As OutputStream Out = File.OpenOutput(sDir, sFilename, False) bmp.WriteToStream(Out, 100, "PNG") Out.Close End Sub Sub starter_btn2_Click SavePanel(aks_pnl,File.DirRootExternal,"Samlpe.png") end subولی از صبح تاحالا هرکاری میکنم فقط پنل خالی رو میگیره و ذخیره میکنه!! دوتا ایمیج ویو و یه باتون دارم تو پنل. انگار نه انگار .
لینک ارسال
به اشتراک گذاری در سایت های دیگر
4 پاسخ به این سوال تاکنون داده شده است
ارسال‌های توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.