با سلام خدمت دوستان آقا من یه کدی دارم مثل شکل زیر من میخوام تو دوتا اکتیویتی جدا چندتا عکس لود کنم ولی جواب نمیده مثلا 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
سوال
naser sahami 90
با سلام خدمت دوستان آقا من یه کدی دارم مثل شکل زیر من میخوام تو دوتا اکتیویتی جدا چندتا عکس لود کنم ولی جواب نمیده مثلا 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 پاسخ به این سوال تاکنون داده شده است
ارسالهای توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.