مشکل در اسکرول ویو

[majid08 266]

سلام

من یه اسکرول ویو دارم و یه دیتابیس 5 عدد متن با ایدی در دیتابیس هست

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

میخام اگه ر. اولی کلیک شد یه کاری انجام بده مثلا بره به اکتیویتی

و رو دومی کلیک شد خارج شه

؟؟

کمک کنید لطفا

متشکرم

[majid08 266]

 

داخل همون حلقه فور که داره باتون اد میشه ، باید i رو بدید به تگ باتونتون:

button1.tag=i

بعد واسه اینکه بفهمید روی کدوم کلیک شده ، توی رویداد کلیک باتون:

Sub button1_Click
	Dim b As Button
	b=Sender
	
	If b=0 Then
		رو اولی کلیک شد
		else if b=1 Then
			روی دومی
			Else If b=3 Then
				روی سومی کلیک شد
	End If
End Sub

سلام

ارور میده

B4A version: 5.02
Parsing code.    (0.02s)
Compiling code.    (0.10s)
Compiling layouts code.    (0.03s)
Generating R file.    (0.13s)
Compiling generated Java code.    Error
B4A line: 186
If b=0 Then
javac 1.7.0_79
src\ir\b\GroupFinder\home.java:573: error: inconvertible types
if ((_b).equals((android.widget.Button)(0))) { 
                                       ^
  required: Button
  found:    int

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

شما کدهات رو قرار بده ببینیم چیکار کردی....

[shahab.es 5,429]

سلام

اینو فک کنم گیر داده

Sub button1_Click
	Dim b As Button
	b=Sender
	
	If b.tag=0 Then
		رو اولی کلیک شد
		else if b.tag=1 Then
			روی دومی
			Else If b.tag=3 Then
				روی سومی کلیک شد
	End If
End Sub

کلمه تگ رو اضافه کن مثله بالا، ببین نتیجه میده یا نه

[majid08 266]

شما کدهات رو قرار بده ببینیم چیکار کردی....

Dim cur As Cursor
	
	cur=s90.ExecQuery("SELECT * From menu ")
	Dim h As Int
	h=2%y
	For i = 0 To cur.RowCount-1
	cur.Position=i
	
	Dim Btn As Button
	Btn.Initialize("Btn")
	Btn.Text=cur.GetString("name")
	Btn.Tag=i+1
	
	Btn.TextColor=Colors.Black
	Btn.Typeface=Typeface.LoadFromAssets("Yekan.ttf")
	Btn.TextSize = 11
	
	
	Btn.Gravity=Gravity.CENTER
	
	ScrollView2.Panel.AddView(Btn,0,h,69%x,8%y)
	
	h=h+8%y
	
	Next
	cur.Close





Sub Btn_Click
Dim b As Button
	b=Sender

	If b=0 Then ToastMessageShow("تست",False)	
End Sub

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

If b=0 Then ToastMessageShow("تست",False)

این دقیقا چیه؟؟؟

جای این ، اینو بذارید:

ToastMessageShow(b.tag,False)

درضمن اونجا هم نیاز نیست i رو +i بکنید.

[porya 959]

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

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

داخل همون حلقه فور که داره باتون اد میشه ، باید i رو بدید به تگ باتونتون:

button1.tag=i

بعد واسه اینکه بفهمید روی کدوم کلیک شده ، توی رویداد کلیک باتون:

Sub button1_Click
	Dim b As Button
	b=Sender
	
	If b=0 Then
		رو اولی کلیک شد
		else if b=1 Then
			روی دومی
			Else If b=3 Then
				روی سومی کلیک شد
	End If
End Sub

[porya 959]

دوستان شرمنده اصلا حواسم نبود که رو باتن لود کردن...