مشکل با Thread

[seyed_27 170]

از Thread استفاده کردم اما موقع اجراش میگه sub AddTextItem notfound

اشکال از دستوره؟

AddTextItem یه sub در ماژوله که در خط اول کد ذیل تعریف شده

بجای null ار me هم استفاده کردم همین پیام رو داد و همچنین بجاش clv1 نوشتم باز هم همین شد

http://answercenter.ir/attachments/1645d1429601756-scrolv.zip

این کد رو در مثالی که در بالا ضمیمه کردم استفاده کردم

clv1.Initialize(Me, "clv1")
   ArrayMyThread.Start(Null,"AddTextItem",Array As Object((s.SubString2(10000,20000)),"d"))

[seyed_27 170]

بسمه تعالی

با سلام و خسته نباشی خدمت دوستان

مشکل کد ذیل چیه

هیچ پیام خطایی نمیده اما خروجی ندارم

Sub Globals

Dim myThread As Thread
End Sub

Sub Activity_Create(FirstTime As Boolean)

If myThread.IsInitialized =False Then
myThread.Initialise("myThread")
End If
myThread.Start(Me,"a",Array As Object("3","5"))	
End Sub

Sub a(k As Int, b As Int)  
Dim l As Int 
l=k+b
ToastMessageShow(l , True) 

End Sub

[seyed_27 170]

Thread رو در ماژول مربوطه معرفی و اینیشیال کردم دستورات رو اجرا کردم

اما نمیدونم چرا بعد از چند بار اجرا کردن دیگه اجرا نمیکنه حتی پیام خطا هم نمیده

سیستم رو restart کردم درست نشد adb رو هم ریستارت کردم درست نشد

کدها رو هم اصلا تغییر ندادم

کتابخانه Thread رو هم دوباره کپی کردم گفتم شاید خراب شده باشه اما ....

دردش چیه؟

[مجید آرتا 5,874]

د.ست من این داره میگه که تابع AddTextItem وجود نداره که استارتش کنه.

[seyed_27 170]

میگه که تابع AddTextItem وجود نداره که استارتش کنه.

در صورتی که ابن تابع در ماژول custom list هست

[مجید آرتا 5,874]

توی ماژول CustomList ? *r24*

تابع باید با ترد توی یک ماژول باشند و در غیر اینصورت با ارور کذایی روبرو میشید *r24*