لینک دار کردن دکمه های تابع For

[parsixa 35]

سلام ،

میخواییم به هر دکمه که توسط تابع فور تکرار شدن و عدد هر پنل رو از 1 تا 7 نشون میدن یه لینک صفحه اینترنتی و یا لینک رفتن به یک اکتیویتی رو بدیم ..

دقیقا چه تغییری باید توی سورس انجام بدیم ؟؟

اینم کد قسمت Activity_Create

[/b]Sub Activity_Create(FirstTime As Boolean)	Activity.LoadLayout("frmmain")
Dim stop As Int
stop = 0
Dim a1(7) As String
sv1.Panel.Color = Colors.Transparent
a1 = Array As String("Link7","Link6","Link5","Link4","Link3","Link2","Link")
	For i = 0 To 7
		 Dim p1 As Panel
		 p1.Initialize("")
		 sv1.Panel.AddView(p1,0,stop,100%x,100dip)
		 stop = stop + 100dip
		 p1.LoadLayout("frmitem")
		 btnnumber.Tag = a1(i)
		 btnnumber.Text = i + 1
		 lblfrom.Text = a1(i)
	Next
	sv1.Panel.Height = stop



End Sub
[b]

اینم کد قسمت btnnumber_Click

[/b]Sub btnnumber_Click
Dim p1 As Button
p1 = Sender
ToastMessageShow(p1.Tag,False)
End Sub
[b]

از توضیحتون پیشاپیش ممنون

[parsixa 35]

کسی جواب نمیده ؟؟؟؟؟؟؟؟؟

اگه منظورمو متوجه نشدین و یا توضیح دادنش یکم وقت گیره میتونید فقط بگید چطور دکمه اضافه کنم ک توی اسکرول ویو قرار بگیره ؟؟؟؟

هیچ جا توی انجمنتون آموزش اختصاصی مخصوص خود اسکرول ویو رو ندیدم ... لطفا توضیح بدید

[مجید آرتا 5,874]

خب این 2 خط کد مربوط به اسم لیبل و دکمس :

             btnnumber.Text = i + 1
            lblfrom.Text = a1(i)

مال دکمه اسمش به اینصورت در میاد :

1

2

3

4

.

.

و مال لیبل هم

Link

Link2

Link3

.

.

.

و واسه رفتم به لینک مورد نظر اول کتابخونه Phone رو اضافه و بک PhoneIntents تعریف میکنیم و کد دکمه میشه این :

Sub btnnumber_Click
Dim p As PhoneIntents
   Dim p1 As Button
   p1 = Sender
   StartActivity(p.OpenBrowser(p1.Tag))
End Sub

[parsixa 35]

خب این 2 خط کد مربوط به اسم لیبل و دکمس :

             btnnumber.Text = i + 1
            lblfrom.Text = a1(i)

مال دکمه اسمش به اینصورت در میاد :

1

2

3

4

.

.

و مال لیبل هم

Link

Link2

Link3

.

.

.

و واسه رفتم به لینک مورد نظر اول کتابخونه Phone رو اضافه و بک PhoneIntents تعریف میکنیم و کد دکمه میشه این :

Sub btnnumber_Click
Dim p As PhoneIntents
   Dim p1 As Button
   p1 = Sender
   StartActivity(p.OpenBrowser(p1.Tag))
End Sub

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

یخ مقدار یادم مونده از یه کد ک ای دی دکمه رو مینوشتی بعد میگفتی ک چکار کنه

یکم بیشتر توضیح بدید

خب ما چندین دکمه داریم