ارسال 4 آرگومنت به صفحه دیگه

[chown 11]

می خوام 4 تا آرگومنت رو ببرم به یک لایه دیگه . CallSubDelayed3 فقط میتونه 2 تا آرگومنت ارسال کنه، چطور میشه 4 تا ارسال کرد ؟

ممنون

[مهران محمودی 778]

میتونی از Intent استفاده کنی.

نحوه بازکردن یک اکتیویتی از برناممون (یا هر برنامه ی دیگه) با Intent :

Dim packageName = "b4a.example" As String ' package name e barnamat
Dim activityName = "Ac2".ToLowerCase As String ' esme activity ke mikhay baz koni, bayad hatman ba horufe kochik bashe vase hamin az lowerCase estefade kardam
Dim i As Intent
i.Initialize(i.ACTION_MAIN,"")
i.SetComponent(packageName&"/."&activityName)
StartActivity(i)

حالا میتونی با اضافه کردن Extra به این Intent هر چقدر پارامتر که میخوای ارسال کنی به اکتیویتی مورد نظرت.

گرفتن Intent ارسال شده به اکتیویتی هدف (این کدها در اکتیویتی هدف قرار میگیرن):

Dim i = Activity.GetStartingIntent As Intent

میتونی با توجه به Extraهایی که قرار دادی، اینجا کار خودت رو پیش ببری.

کد کامل ندادم تا خودت کار کنی.

موفق باشی.

[chown 11]

از همون CallSubDelayed3 استفاده کردم 4تا مقدارم رو با هم ترکیب کردم تبدیلشون کردم به 2 تا مقدار و ارسالشون کردم و تو لایه بعدی مقدار رو split کردم و ازش استفاده کرد.

*همینه*