رفتن به مطلب
  • 0

مشکل با cursor.position


mahdig502

سوال

سلام دوستان 

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

 

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

این کدهام:

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 را با هربار کلیک نشون میداد 

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

 

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

 

لینک ارسال
به اشتراک گذاری در سایت های دیگر

3 پاسخ به این سوال تاکنون داده شده است

ارسال های توصیه شده

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

 

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

 

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

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


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 بود مثلا دعای کمیل رو لود کن

لینک ارسال
به اشتراک گذاری در سایت های دیگر

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

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

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

فهمیدید؟ :DD:

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

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

:gol:

لینک ارسال
به اشتراک گذاری در سایت های دیگر

بایگانی شده

این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.

مهمان
این موضوع برای عدم ارسال قفل گردیده است.
  • کاربران آنلاین در این صفحه   0 کاربر

    • هیچ کاربر عضوی،در حال مشاهده این صفحه نیست.
×
×
  • اضافه کردن...