سورس گرفتن اسکرین شات از صفحه نمایش در b4a

[MR.B4A 227]

کافیه فقط این دستورات رو داخل رویدادی که میخواهید به وسیله اون اسکرین شات بگیرید، کپی کنید.

s=DateTime.Now
	
	Dim Obj1, Obj2 As Reflector
	Dim bmp As Bitmap
	Dim c As Canvas
	Obj1.Target = Obj1.GetActivityBA
	Obj1.Target = Obj1.GetField("vg")
	bmp.InitializeMutable(Activity.Width, Activity.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, s&".png", False)
	bmp.WriteToStream(Out, 100, "PNG")
	Out.Close

	mp.Load(File.DirAssets,"shot.mp3")
	mp.Play
  
  	show_flash_effect
  
	ToastMessageShow(File.Combine(File.DirRootExternal, s&".png")& "در این آدرس ذخیره شده",False)

و تمام