سلام من ی کد زدم برای ساخت گالری عکس ی جورایی میخوام چند تا عکس بزارم این کد ها رو نوشتم ولی ارور میده میشه بگین مشکلش چیه؟
کد:
Soroush:
#Region Activity Attributes
#FullScreen: False
#IncludeTitle: True
#End Region
Sub Process_Globals
'These global variables will be declared once when the application starts.
'These variables can be accessed from all modules.
End Sub
Sub Globals
'These global variables will be redeclared each time the activity is created.
'These variables can only be accessed from this module.
Dim pinch As PinchZoomAndMove
Dim hame As Int
Dim axhala As Int
Private badi As ImageView
Private ImageView1 As ImageView
Private qabli As ImageView
Private Panel1 As Panel
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("shoro")
pinch.Initialize(ImageView1,"image","image",1,2.5,3,False,Me)
pinch.CanZoom=True
pinch.CanMove=False
hame=6
axhala=1
ImageView1.Bitmap=LoadBitmap(File.DirAssets,axhala&".jpg")
If File.Exists(File.DirRootExternal,"/100nokte/")=False Then
File.MakeDir(File.DirRootExternal,"/100nokte/")
End If
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub qabli_Click
If axhala=1 Then
axhala=hame
Else
axhala=axhala-1
End If
ImageView1.Bitmap=LoadBitmap(File.DirAssets,axhala&".jpg")
End Sub
Sub badi_Click
If axhala=hame Then
axhala=1
Else
axhala=axhala+1
End If
ImageView1.Bitmap=LoadBitmap(File.DirAssets,axhala&".jpg")
End Sub
ارور:
Soroush:
B4A version: 6.30
Parsing code. Error
Specified argument was out of the range of valid values.
Parameter name: index
سوال
soroush.p.p 2
سلام من ی کد زدم برای ساخت گالری عکس ی جورایی میخوام چند تا عکس بزارم این کد ها رو نوشتم ولی ارور میده میشه بگین مشکلش چیه؟
کد:
Soroush:
#Region Activity Attributes #FullScreen: False #IncludeTitle: True #End Region Sub Process_Globals 'These global variables will be declared once when the application starts. 'These variables can be accessed from all modules. End Sub Sub Globals 'These global variables will be redeclared each time the activity is created. 'These variables can only be accessed from this module. Dim pinch As PinchZoomAndMove Dim hame As Int Dim axhala As Int Private badi As ImageView Private ImageView1 As ImageView Private qabli As ImageView Private Panel1 As Panel 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("shoro") pinch.Initialize(ImageView1,"image","image",1,2.5,3,False,Me) pinch.CanZoom=True pinch.CanMove=False hame=6 axhala=1 ImageView1.Bitmap=LoadBitmap(File.DirAssets,axhala&".jpg") If File.Exists(File.DirRootExternal,"/100nokte/")=False Then File.MakeDir(File.DirRootExternal,"/100nokte/") End If End Sub Sub Activity_Resume End Sub Sub Activity_Pause (UserClosed As Boolean) End Sub Sub qabli_Click If axhala=1 Then axhala=hame Else axhala=axhala-1 End If ImageView1.Bitmap=LoadBitmap(File.DirAssets,axhala&".jpg") End Sub Sub badi_Click If axhala=hame Then axhala=1 Else axhala=axhala+1 End If ImageView1.Bitmap=LoadBitmap(File.DirAssets,axhala&".jpg") End Sub ارور: Soroush: B4A version: 6.30 Parsing code. Error Specified argument was out of the range of valid values. Parameter name: index
ممنونم
لینک ارسال
به اشتراک گذاری در سایت های دیگر
2 پاسخ به این سوال تاکنون داده شده است
ارسالهای توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.