دخیره عکس با نام های مختلف

[mamix 2]

سلام و درود

من از کد زیر برای ذخیره عکس تو حافظه گوشی استفاده می کنم.ولی مثلا از بین 20 تا عکس هر بار که روی باتن کلیک میشه فقط یک عکس دخیره میشه با نام bitmap

من می خوام هر عکس که روی باتن زدم با نام دیگه ذخیره بشه مثلا bitmap1,bitmap2 ,...

ممنون میشم راهنمایی کنید

Sub bsave_Click
    a.Initialize3(ImageView1.Bitmap)
   Dim out As OutputStream
   out = File.OpenOutput(File.DirRootExternal, "&bitmap&.png", False)
   a.WriteToStream(out, 100, "PNG")
   out.Close
ToastMessageShow("عکس در حافظه گوشی ذخیره شد",False)
End Sub

[پژمان نیکروان 6,055]

خب شما این کدی که نوشتی معلومه که همه با یک اسم ذخیره میشن با هر بار کلیک.

شما بیا یه متغیر تو گلوبال تعریف کن:

dim b as Int

و برای باتون این کد رو بنویس:

Sub bsave_Click
b=b+1
       a.Initialize3(ImageView1.Bitmap)
   Dim out As OutputStream
   out = File.OpenOutput(File.DirRootExternal, "bitmap"&b&".png", False)
   a.WriteToStream(out, 100, "PNG")
   out.Close
   ToastMessageShow("عکس در حافظه گوشی ذخیره شد",False)
End Sub

هربار به b یکی اضافه میکنه و به این صورت ذخیره میشه:

bitmap1

bitmap2

bitmap3

و...