رفتن به مطلب
  • 0

ذخیره ماندن عکس برای ورودی های بعدی


peymanparkour

سوال

سلام

این دستوری

[color=#0000BB][i]Sub Activity_Create[/i][/color][color=#007700][i]([/i][/color][color=#0000BB][i]FirstTime [/i][/color][color=#007700][i]As [/i][/color][color=#0000BB][i]Boolean[/i][/color][color=#007700][i])[/i][/color][color=#007700][i]   
If [/i][/color][color=#0000BB][i]File[/i][/color][color=#007700][i].[/i][/color][color=#0000BB][i]Exists[/i][/color][color=#007700][i]([/i][/color][color=#0000BB][i]File[/i][/color][color=#007700][i].[/i][/color][color=#0000BB][i]DirInternal[/i][/color][color=#007700][i], [/i][/color][color=#DD0000][i]"PageNumber.text"[/i][/color][color=#007700][i]) [/i][/color][color=#0000BB][i]Then
       File[/i][/color][color=#007700][i].[/i][/color][color=#0000BB][i]Delete[/i][/color][color=#007700][i]([/i][/color][color=#0000BB][i]File[/i][/color][color=#007700][i].[/i][/color][color=#0000BB][i]DirInternal[/i][/color][color=#007700][i], [/i][/color][color=#DD0000][i]"PageNumber.text"[/i][/color][color=#007700][i])
   [/i][/color][color=#0000BB][i]End [/i][/color][color=#007700][i]If
   [/i][/color][color=#0000BB][i]File[/i][/color][color=#007700][i].[/i][/color][color=#0000BB][i]WriteString[/i][/color][color=#007700][i]([/i][/color][color=#0000BB][i]File[/i][/color][color=#007700][i].[/i][/color][color=#0000BB][i]DirInternal[/i][/color][color=#007700][i], [/i][/color][color=#DD0000][i]"PageNumber.text"[/i][/color][color=#007700][i], [/i][/color][color=#DD0000][i]"1"[/i][/color][color=#007700][i]) 
[/i][/color][i]End Sub  [/i]

[i]Sub Button1_Click[/i]

[color=#007700][i]If [/i][/color][color=#0000BB][i]File[/i][/color][color=#007700][i].[/i][/color][color=#0000BB][i]Exists[/i][/color][color=#007700][i]([/i][/color][color=#0000BB][i]File[/i][/color][color=#007700][i].[/i][/color][color=#0000BB][i]DirInternal[/i][/color][color=#007700][i], [/i][/color][color=#DD0000][i]"PageNumber.text"[/i][/color][color=#007700][i]) [/i][/color][color=#0000BB][i]Then
Dim a [/i][/color][color=#007700][i]As [/i][/color][color=#0000BB][i]String
a [/i][/color][color=#007700][i]= [/i][/color][color=#0000BB][i]File[/i][/color][color=#007700][i].[/i][/color][color=#0000BB][i]ReadString[/i][/color][color=#007700][i]([/i][/color][color=#0000BB][i]File[/i][/color][color=#007700][i].[/i][/color][color=#0000BB][i]DirInternal[/i][/color][color=#007700][i], [/i][/color][color=#DD0000][i]"PageNumber.text"[/i][/color][color=#007700][i])
[/i][/color][color=#0000BB][i]StartActivity[/i][/color][color=#007700][i]([/i][/color][color=#DD0000][i]"Page" [/i][/color][color=#007700][i]& [/i][/color][color=#0000BB][i]a[/i][/color][color=#007700][i])
[/i][/color][color=#0000BB][i]Activity[/i][/color][color=#007700][i].[/i][/color][color=#0000BB][i]Finish
[/i][/color][color=#007700][i]Else
[/i][/color][color=#0000BB][i]ToastMessageShow[/i][/color][color=#007700][i]([/i][/color][color=#DD0000][i]"No result for last page"[/i][/color][color=#007700][i], [/i][/color][color=#0000BB][i]True[/i][/color][color=#007700][i])
[/i][/color][color=#0000BB][i]End [/i][/color][color=#007700][i]If[/i][/color]
[right][i]End Sub[/i][/right]

که تو موضوع ذخیره ماندن شماره اکتیویتی نوشته شد رو

چجوری میشه تو یه اکتیویتی برای مثلا 20 تا عکس که با دستور case نوشته شده و به عکس بعدی میره رو پیاده سازی کرد

لینک ارسال
به اشتراک گذاری در سایت های دیگر

3 پاسخ به این سوال تاکنون داده شده است

ارسال‌های توصیه شده

عزیز واقعاچند بار سوالتو خوندم ولی نمیفهمم متاسفانه

امکان توضیح بیشتر هست؟

لینک ارسال
به اشتراک گذاری در سایت های دیگر

آقا مهران من تو یه اکتیویتی این کد و نوشتم

#Region  Activity Attributes     #FullScreen: true
   #IncludeTitle: false
#End Region


Sub Process_Globals
   '[color=#00ff00]T[/color][color=#00ff00]hese global variables will be declared once when the application starts.
   'These variables can be accessed from all modules.[/color]


End Sub


Sub Globals
   D[color=#0000ff]im b1(21) As Bitmap
   Private imageview1 As ImageView
   Private Button2 As Button
[/color]

End Sub
Sub Activity_Create(FirstTime As Boolean)
   [color=#ff0000]Activity.LoadLayout("page1")[/color]
  [color=#0000ff] b1=Array As[/color] B[color=#0000ff]itmap(LoadBitmap(File.DirAssets,"7_02.jpg"),LoadBitmap(File.DirAssets,"7_03.jpg"),LoadBitmap(File.DirAssets,"7_04.jpg"),LoadBitmap(File.DirAssets,"7_05.jpg"),LoadBitmap(File.DirAssets,"7_06.jpg"),LoadBitmap(File.DirAssets,"7_07.jpg"),LoadBitmap(File.DirAssets,"7_08.jpg"),LoadBitmap(File.DirAssets,"7_09.jpg"),LoadBitmap(File.DirAssets,"7_10.jpg"),LoadBitmap(File.DirAssets,"7_11.jpg"),LoadBitmap(File.DirAssets,"7_12.jpg"),LoadBitmap(File.DirAssets,"7_13.jpg"),LoadBitmap(File.DirAssets,"7_14.jpg"),LoadBitmap(File.DirAssets,"7_15.jpg"),LoadBitmap(File.DirAssets,"7_16.jpg"),LoadBitmap(File.DirAssets,"7_17.jpg"),LoadBitmap(File.DirAssets,"7_18.jpg"),LoadBitmap(File.DirAssets,"7_19.jpg"),LoadBitmap(File.DirAssets,"7_20.jpg"),LoadBitmap(File.DirAssets,"7_21.jpg"),LoadBitmap(File.DirAssets,"7_22.jpg"))
   imageview1.Bitmap=b1(0)[/color]
End Sub
Sub Activity_Resume
   Main.music.Play
End Sub


Sub Activity_pause(userclosed As Boolean)
   If userclosed=False Then
   Main.music.Pause
   End If
End Sub


Sub Activity_KeyPress (keycode As Int) As Boolean                    
  If keycode=KeyCodes.KEYCODE_BACK Then
  StartActivity(Main)  
  Activity.Finish
  End If
End Sub
Sub Button1_Click
       Try[color=#008000]
       Select imageview1.Bitmap
       Case b1(20)
           Button2.Visible=True
           imageview1.Bitmap=b1(19)
       Case b1(19)
           imageview1.Bitmap=b1(18)
       Case b1(18)
           imageview1.Bitmap=b1(17)
       Case b1(17)
           imageview1.Bitmap=b1(16)
       Case b1(16)
           imageview1.Bitmap=b1(15)
       Case b1(15)
           imageview1.Bitmap=b1(14)
       Case b1(14)
           imageview1.Bitmap=b1(13)
       Case b1(13)
           imageview1.Bitmap=b1(12)
       Case b1(12)
           imageview1.Bitmap=b1(11)
       Case b1(11)
           imageview1.Bitmap=b1(10)
       Case b1(10)
           imageview1.Bitmap=b1(9)
       Case b1(9)
           imageview1.Bitmap=b1(8)
       Case b1(8)
           imageview1.Bitmap=b1(7)
       Case b1(7)
           imageview1.Bitmap=b1(6)
       Case b1(6)
           imageview1.Bitmap=b1(5)
       Case b1(5)
           imageview1.Bitmap=b1(4)
       Case b1(4)
           imageview1.Bitmap=b1(3)
       Case b1(3)
           imageview1.Bitmap=b1(2)
       Case b1(2)
           imageview1.Bitmap=b1(1)
       Case b1(1)
           Button1.Visible=False
           imageview1.Bitmap=b1(0)
       End Select[/color]
Catch
   Log("Err")
End Try

End Sub

خب ،حالا میخوام وقتی مثلا تو عکس 12 از برنامه خارج شم بعد وارد برنامه شدم دیگه از اول نیاد و از عکس 12 بیاد

لینک ارسال
به اشتراک گذاری در سایت های دیگر

یه عدد و ذخیره ی اون ، که هر عکسی که باز شد شماره ی اون عدد ذخیره بشه و دفه بعد اون عدد رو فراخوانی کنه

این یه راهشه که فکر میکنم برات راحت تر باشه

لینک ارسال
به اشتراک گذاری در سایت های دیگر

بایگانی شده

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

  • کاربران آنلاین در این صفحه   0 کاربر

    • هیچ کاربر عضوی،در حال مشاهده این صفحه نیست.
×
×
  • اضافه کردن...