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

مشکل گالری


naser sahami

سوال

با سلام خدمت دوستان آقا من یه کدی دارم مثل شکل زیر من میخوام  تو دوتا اکتیویتی جدا چندتا عکس لود کنم ولی جواب نمیده مثلا hame=3و axnow=20یعنی 20و21و22 را بخوان ولی تو عکس های بعدی و قبلی موندم  این  کدجواب نمیده .کد را توجه کنید

Sub Globals
	'These global variables will be redeclared each time the activity is created.
	'These variables can only be accessed from this module.
Dim p As PinchZoomAndMove 
	Private axn As ImageView
	Private sav As ImageView
	Private badi As ImageView
	Private qabl As ImageView
		Dim hame As Int 
	Dim axnow As Int 
	Private share1 As ImageView
	Private btninfo As ImageView
	
End Sub

Sub Activity_Create(FirstTime As Boolean)
	'Do not forget to load the layout file created with the visual designer. For example:
	Activity.LoadLayout("axha")
    p.Initialize(axn,"img1","img",1,2.5,3,False,Me)
    p.CanZoom=True
	p.CanMove =True
 hame=3
	axnow=20 
		axn.Bitmap =LoadBitmap(File.DirAssets ,axnow&".jpg")
	
	If File.Exists(File.DirRootExternal ,"/سوتی های تصویری/")=False Then 
	File.MakeDir (File.DirRootExternal ,"سوتی های تصویری")
	End If
Sub qabl_Click
	If axnow=1 Then
	axnow=hame
	Else
	axnow=axnow-1
	End If
	axn.Bitmap =LoadBitmap(File.DirAssets ,axnow&".jpg") 
End Sub
Sub badi_Click
	
	If axnow=hame Then
	axnow=1
	Else
	If axnow<hame Then
	axnow=axnow+1
	End If
	End If
	axn.Bitmap =LoadBitmap(File.DirAssets ,axnow&".jpg")
End Sub
لینک ارسال
به اشتراک گذاری در سایت های دیگر

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

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

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

بایگانی شده

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

مهمان
این موضوع برای عدم ارسال قفل گردیده است.
  • کاربران آنلاین در این صفحه   0 کاربر

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