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

سوال در مورد Activity_KeyPress؟


arfan2x

سوال

سلام خدمت دوستان گرامی وقتتون بخیر.

چه طوری میشه از یه اکتیویتی به ساب خاصی از اکتیویتی دیگه رفت؟

مثلا کدهای زیر رو درنظر بگیرید:

Sub Activity_Create(FirstTime As Boolean)
	
	
	fasl1
	
End Sub

Sub fasl1
	Activity.LoadLayout("lbakhsh2")
	tst = 1
	
	If File.Exists(File.DirInternal , "etelaat.db") = False Then
	File.Copy(File.DirAssets , "etelaat.db" , File.DirInternal , "etelaat.db")
	End If

	
	Sql1.Initialize(File.DirInternal , "etelaat.db",True)

	Dim stron As String
	cur = Sql1.ExecQuery("SELECT * FROM etelaat Where Fasl = 1")
	
	For i = 0 To cur.RowCount -1
		cur.Position = i
		stron = cur.GetString("Onvan")
		ListView2.AddSingleLine2(stron, cur.GetInt("ID"))
	Next
	
	ListView2.Height = 82.5416666666667%y
	ListView2.ScrollingBackgroundColor = Colors.Transparent
	ListView2.SingleLineLayout.Label.Height = 75dip
	ListView2.SingleLineLayout.ItemHeight = 75dip
	ListView2.SingleLineLayout.Label.TextColor = Colors.RGB(209,255,48)
	ListView2.SingleLineLayout.Label.Gravity = Gravity.CENTER
	ListView2.SingleLineLayout.Label.Typeface = Typeface.LoadFromAssets("sshiraz.ttf")
	ListView2.SingleLineLayout.Label.TextSize = 17
	
	Dim img As BitmapDrawable
	img.Initialize (LoadBitmap(File.DirAssets , "bg-safar.png"))
	
	ListView2.SingleLineLayout.Background = img

	
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub


Sub ListView2_ItemClick (Position As Int, Value As Object)
	
	Activity.RemoveAllViews
	zirbakhsh1
	
End Sub

Sub zirbakhsh1
		
	tst = 2
	Activity.LoadLayout("lbakhsh1")
	
	Sql1.Initialize(File.DirInternal , "etelaat.db",True)
	Dim stron As String
	cur = Sql1.ExecQuery("SELECT * FROM etelaat where Zirbaxsh1 = 1")
	
	For i = 0 To cur.RowCount -1
		cur.Position = i
		stron = cur.GetString("Onvan")
		ListView1.AddSingleLine2(stron,cur.GetInt("ID"))
	Next
	

End Sub

Sub ListView1_ItemClick (Position As Int, Value As Object)
	
	ff = Position
	Activity.RemoveAllViews
	zirbakhsh2
	
	
End Sub

Sub zirbakhsh2
	

	Activity.LoadLayout("lbakhsh4")
	
	If ff = 0 Then
		Main.bak = 40
		Sql1.Initialize(File.DirInternal , "etelaat.db",True)
		Dim stron As String
		cur = Sql1.ExecQuery("SELECT loqat,id FROM alefba1")
	
		For i = 0 To cur.RowCount -1
			cur.Position = i
			stron = cur.GetString("loqat")
			ListView4.AddSingleLine2(stron,cur.GetInt("id"))
		Next
	

	else If ff = 1 Then
		Main.bak = 50
		Activity.LoadLayout("lbakhsh3")
		
		Dim stron As String
		cur = Sql1.ExecQuery("SELECT [tedade horuf],id FROM alefba1 WHERE id BETWEEN 1 AND 15")
	
		For i = 0 To cur.RowCount -1
			cur.Position = i
			stron = cur.GetString("tedade horuf")
			ListView3.AddSingleLine2(stron,cur.GetInt("id"))
		Next


	End If
	
End Sub

می خوام وقتی دکمه بک گوشی رو زدم و به این اکتیویتی اومد به جای اجرای کدهای ساب fasl1 

کدهای ساب zirbakhsh2 اجرا بشن. امیدوارم منظورم رو رسونده باشم.

لطفاً کدهاش رو بنویسید. تشکر

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

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

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

در 2 ساعت قبل، arfan2x گفته است :

خب بفرمابید چطور از این متد استفاده کنم

لطفا بیشتر توضیح بدید

شما اگ بیسیکتونو وا میکردید و متد رو مینوشتین متوجه میشدین که دوچیز ازتون میخواد یکی اسم اکتیویتی ک ساب توشه و دومی هم اسم ساب که باید به صورت استرینگ بدید بهش :)

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

سلامی دوباره.

آقا من همه فصل ها (6 فصل) و زیرفصلهای کتابم رو که 4 یا 5 زیرفصل دارن رو تو یه اکتیویتی کدهاش رو نوشتم و واسه نشون دادن مطالب همه فصلها یه اکتیویتی دیگه رو در نظر گرفتم.

حالا مشکلم با Activity_KeyPress اکتیویتی مطالب هست. (واسه همین هم عنوان سوالم رو اونجور گذاشتم)

به این ترتیب که وقتی بک گوشی رو می زنم به اون زیرفصل آخری که کلیک شده بود برنمی گرده و می ره به قسمت فصل ها.

 

تو قسمت Activity_KeyPress چه کدی رو بنویسم که از هر زیرفصلی که کلیک شده بود و به اکتیویتی مطالب اومده بود اگه بک رو زدیم دوباره برگرده به همون زیرفصل.

شرمنده زیاد سوال می کنم بنده مبتدی هستم.

با CallSub هم نشد

 

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

بایگانی شده

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

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

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