مشکل با cursor.position

[mahdig502 27]

سلام دوستان 

من قبلا یک تاپیک زدم که جواب نگرفتم خودم روش کار کردم ولی الان باز به مشکل خوردم 

 

دوستان من یک باتن دارم که در هرصفحه متن است,(توی اکشن بار هستش) که میخوام تو هر صفحه یک کاری کنه 

این کدهام:

Sub Activity_Create(FirstTime As Boolean)

    Activity.LoadLayout("frm")
    If File.Exists(File.DirInternal,"b.db")=False Then
	File.copy(File.DirAssets,"b.db",File.DirInternal,"b.db")
	End If
	sql1.Initialize(File.DirInternal,"b.db",True)
    cursor3 = sql1.ExecQuery("SELECT id FROM tbl")

End Sub

Sub Button1_Click
Activity.LoadLayout("s")
	label1.Initialize("")
fara.FarakhaniMatn("b.db",sql1,c1,"select * from tbl where id =","1",label1,"txt")
ts.Initialize
ScrollView1.Panel.AddView(label1,0,0,100%x,100%y)
ts.LongText(label1,label1.Text,25,ScrollView1,1.2)	
End Sub
Sub Button2_Click
Activity.LoadLayout("s")
	label1.Initialize("")
fara.FarakhaniMatn("b.db",sql1,c1,"select * from tbl where id =","2",label1,"txt")
ts.Initialize
ScrollView1.Panel.AddView(label1,0,0,100%x,100%y)
ts.LongText(label1,label1.Text,25,ScrollView1,1.2)
End Sub
Sub Button3_Click
Activity.LoadLayout("s")
	label1.Initialize("")
fara.FarakhaniMatn("b.db",sql1,c1,"select * from tbl where id =","3",label1,"txt")
ts.Initialize
ScrollView1.Panel.AddView(label1,0,0,100%x,100%y)
ts.LongText(label1,label1.Text,25,ScrollView1,1.2)
End Sub
Sub Button4_Click
Activity.LoadLayout("s")
	label1.Initialize("")
fara.FarakhaniMatn("b.db",sql1,c1,"select * from tbl where id =","4",label1,"txt")
ts.Initialize
ScrollView1.Panel.AddView(label1,0,0,100%x,100%y)
ts.LongText(label1,label1.Text,25,ScrollView1,1.2)
End Sub
Sub Button5_Click
Activity.LoadLayout("s")
	label1.Initialize("")
fara.FarakhaniMatn("b.db",sql1,c1,"select * from tbl where id =","5",label1,"txt")
ts.Initialize
ScrollView1.Panel.AddView(label1,0,0,100%x,100%y)
ts.LongText(label1,label1.Text,25,ScrollView1,1.2)
End Sub
Sub Button6_Click
Activity.LoadLayout("s")
	label1.Initialize("")
fara.FarakhaniMatn("b.db",sql1,c1,"select * from tbl where id =","6",label1,"txt")
ts.Initialize
ScrollView1.Panel.AddView(label1,0,0,100%x,100%y)
ts.LongText(label1,label1.Text,25,ScrollView1,1.2)
End Sub

Sub btnd_Click
    Dim d As Int
	d = cursor3.GetInt("id")
	cursor3.Position =0
	If d = 1 Then 
	ToastMessageShow("1",True)
	End If
		If d = 2 Then 
	ToastMessageShow("2",True)
	End If
		If d = 3 Then 
	ToastMessageShow("3",True)
	End If
	
End Sub

فرم s همون فرمیه که btnd (باتن مورد نظرم)توش هست 

و فرم frm یک فرم با 6 تا باتن که با کلیک روی هرکدومش یک صفحه متن لود میشه

الان مشکل من cursor3.position هست که نمیدونم مساوی چی قرار بدم

 

اول اومدم cursor3.Position را 0 کردم که فقط 

ToastMessageShow("1",True)

را نشون داد با هرکلیک در هر صفحه 

 

بعد cursor3.Position را در حلقه گذاشتم که ایندفه از توست مسیج شو1 تا 3 را با هربار کلیک نشون میداد 

هرچی هست زیر سر خودش 

 

ممنون میشم کمک کنید یا مشکلشا بگید 

 

[mahdi tahan 723]

من نمدونم چجور راخی رو داری میری ولی اینکارو بکن

 

مثلا میخوای ی چیزی مث مفاتیح گویا درس کنی.

 

تو صفحه اولت یک لیست ویو یا چنتا باتن (هرکدوم که دوس داری)درست میکنی.

و داخل رویداد کلیدشون میای و مثلا ی متغیر رو عدد میدی مثلا

Sub Process_Globals

dim adad as int






End Sub

Sub Button1_Click

adad=1

startavtivity("ac1")

End Sub



Sub Button2_Click

adad=2

startavtivity("ac1")

End Sub

خوب اینطوری مشخص میکنی که رو چه دعای کلید شده

 و بعد داخل اکتیویتی بعدیت شرط میزاری ک اگر adad=1 بود مثلا دعای کمیل رو لود کن

[mahdi tahan 723]

میش واضح تر بگی میخوای چیکار کنی؟

[mahdig502 27]

من میخوام یک باتن بسازم که توی هر صفحه یک اهنگ را دانلود کنه 

اما نمیتونم از باتن share و بوکمارک الگو بگیرم چون باتن من توی هر صفحه یک اهنگ  متفاوت دانلود میکنه 

فهمیدید؟

اگر متوجه نشدید این سرس پروژه 

http://s7.picofile.com/file/8250170392/btnd.rar.html