انتقال یک مقدار به یک اکتیویتی دیگر

[mr-edris 186]

سلام

اقا من اموزششش خوندم اما توی کد مشکل دارم

ببینید

این کد من توی ساب گلوبال

Sub Process_Globals
   'These global variables will be declared once when the application starts.
   'These variables can be accessed from all modules.
Dim sql1 As SQL
Dim index As String
index = ""
End Sub

و اینم توی ایتمی که به ایندکس مقدار میده

c = sql1.ExecQuery("Select * from e1 WHERE daste=1")

   For i = 0 To c.rowcount -1
   c.Position = i

       feh.AddTwoLinesAndBitmap(c.GetString("onvan"),"",LoadBitmap(File.DirAssets,"To.png"))
   Next
   feh2.TwoLinesAndBitmap.Label.Gravity = Gravity.CENTER
   feh2.TwoLinesAndBitmap.Label.TextColor = Colors.black
   index = "d1"

حالا میرم به اکتیویتی بعدی

وقتی مینویسم

if index = "d1" then
....
end if

از ایندکس ارور میگیره و میگه تعریف نشده!

[Mohsen27 199]

فک کنم مشکلت از اینه

[color=#000000][color=#0000BB]index [/color][color=#007700]= [/color][color=#DD0000]""[/color][/color]

اینو بپاک ببین درست میشه؟

[mr-edris 186]

نه مشکل از اونجا نیست

[پژمان نیکروان 6,055]

حالا میرم به اکتیویتی بعدی

وقتی مینویسم

if index = "d1" then
....
end if

از ایندکس ارور میگیره و میگه تعریف نشده!

مشکل همینجاست دیگه. چرا مینویسی index ؟ باید اسم اکتیویتی که تو پراسزشش تعریف کردی رو بنویسی بعد یه نقطه بعد اسم متغیر .

یعنی اگه index رو تو اکتیویتی main تعریف کردی باید اینجوری بنویسی:

if Main.index = "d1" then
....
end if

[mr-edris 186]

بابا بلد بابا ایول بابا دمتگرم خخخ