ارور در گرفتن متن inbox پیامک ها b4a

[alimaha 12]

سلام دوستان

من دارم یه برنامه پیامکی می نویسیم که پیام های دریافتی از یک شماره خاص در listview نمایش بدم اما بعد از گرفتن آخرین مقدار ارور می دهد .

چطور باید ارور برطرف کنم ؟
 

 Sub sms3()
   Dim x As SmsMessages
   Dim msg As Sms
   Dim allSmss As List
   allSmss.Initialize
   allSmss = x.GetAll
   For i = 0 To allSmss.Size - 1

   	idd=idd+1
	
       msg = allSmss.Get(idd)
       If msg.Type = x.TYPE_INBOX Then
          If  msg.Address = "09111111111" Then
		   		
              Label3.Text = msg.Body
			    Bodyy=msg.Body
			  If Bodyy.Length=19 Then
			  listadd
			  End If
         End If
       End If
   Next
   End Sub

 

[alimaha 12]

ارور موبایل 

[Salar82 919]

سلام دوست عزیز

idd چه متغیری هست؟

 

من حدس میزنم ارور مربوط به کد زیر باشه:

msg = allSmss.Get(idd)

فرضاً شما 18 آیتم دارین، که میشه از Index صفر تا 17؛ بعد بیاید و هجدهمین ایندکس رو بگیرید؛ ارور IndexOutOfBounds میده.

[alimaha 12]

دقیقا مشکل همین بود . مقدار idd با  i  عوض کردم درست شد
تشکر