یک مشکل کوچک مربوط به اسکرول ویو

[ebraeim 8]

سلام

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

ocess_Globals
	'These global variables will be declared once when the application starts.
	'These variables can be accessed from all modules.


Dim megdar As Int

End Sub

Sub Globals
	'These global variables will be redeclared each time the activity is created.
	'These variables can only be accessed from this module.

	
	
	
	Private ScrollView1 As ScrollView
	Private Panel1 As Panel
	Private Label1 As Label
	Dim cur1 As Cursor
	Dim sql1 As SQL
	Dim stop As Int = 3%y
	
	
End Sub

Sub Activity_Create(FirstTime As Boolean)
	'Do not forget to load the layout file created with the visual designer. For example:
	Activity.LoadLayout("list")
ScrollView1.Color = Colors.Transparent
	ScrollView1.Panel.Color = Colors.Transparent
	If File.Exists(File.DirInternal,"a1.db")=False Then
	File.Copy(File.DirAssets,"a1.db",File.DirInternal,"a1.db")
	End If
sql1.Initialize(File.DirInternal,"a1.db",False)
	cur1=sql1.ExecQuery("SELECT * From tab1")
	
	For i = 0 To cur1.RowCount-1
		cur1.Position = i
		Dim p As Panel
		p.Initialize("p")
		ScrollView1.Panel.AddView(p,0,stop,100%x,100%y)
		stop = stop + 35%y
		p.LoadLayout("panlscro")
		Label1.Text = cur1.GetString("titr")
		ScrollView1.Panel.Height = stop
		
		
		
	Next
	
	


End Sub




Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

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

  

		


megdar = 
'می خواهم روی هر آیتمی کلیک شد مقدار این متغیر برابر با    همان شود (مثلا اگه روی آیتم 1 کلیک شد مقدار متغیر 1 شود اگه روی 2 مقدارش 2 شود)
StartActivity("matn")
	Activity.Finish

 

[محمدرضا شاهپیری 5,579]

عزیز شما باید از تگ و سندر استفاده کنید. جستجو کنید یک مینیول آموزش تو سایت هست دربارش