اسکرول کردن Button

[amirs 2]

سلام دوستان بنده میخوام 200 تا دکمه رو اسکرول کنم چطوری باید این کار رو انجام بدم

[Kazem Forghani 2,927]

سلام

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

http://s7.picofile.com/file/8258959626/ScrollView.7z.html

[amirs 2]

یه اسکرول ویو قرار میدی و دکمه ها رو توش بذار .اول اسکرول ویو بعدش دکمه

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

[Amir - B 184]

1-اسکرول ویو اینیشیالایز میکنید (اینیشیالایز 2 )

scroll.Initialize2(223dip,"scroll")

2- اسکرول ویو رو به اکتیویتی ادد میکنید .

Activity.AddView(scroll,0,0,100%x,100%y)

3- در حلقه فور باتن رو اینیشیالایز میکنیم . 

For i=0 To 199
    
    Dim button1 As Button
    button1.Initialize("button1")
    
    
Next 

4-در حلقه فور باتن ها رو به اسکرول ویو ادد میکنیم 

For i=0 To 199
    
    Dim button1 As Button
    button1.Initialize("button1")
    
    scroll.Panel.AddView(button1,0,height,100%x,15%y)
Next 

5- .  - یک متغیر از نوع int تعریف میکنیم . برای این که در هر باری که حلقه میچرخه و باتن جدیدی رو میخواد ادد کنه ، باتن جدید پایین تر از باتن قبلی قرار بگیره . مقداری که به height اضافه میشه کمی بیشتر از مقدار ارتفاع باتن هاست . چون میخواییم کمی بین باتن ها فاصله باشه .

 

Dim height As Int = 0

For i=0 To 199
	
	Dim button1 As Button
	button1.Initialize("button1")
	
	scroll.Panel.AddView(button1,0,height,100%x,15%y)
	height = height+17%y
Next

6- ارتفاع پنل اسکرول ویو رو برابر height قرار میدیم . در نهایت کدها به صورت زیردر میاد

Dim scroll As ScrollView
scroll.Initialize2(223dip,"scroll")
Activity.AddView(scroll,0,0,100%x,100%y)


Dim height As Int = 0

For i=0 To 199
    
    Dim button1 As Button
    button1.Initialize("button1")
    
    scroll.Panel.AddView(button1,0,height,100%x,15%y)
    height = height+17%y
Next

scroll.Panel.Height = height  

سعی کنید با کد نویسی جلو برید نه با دیزاینر .

[amirs 2]

سلام

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

http://s7.picofile.com/file/8258959626/ScrollView.7z.html

یه مشکلی هست شما 20 تا دکمه گذاشتید ولی موقع اجرا 15 تا دکمه رو نشون میده

[amirs 2]

1-اسکرول ویو اینیشیالایز میکنید (اینیشیالایز 2 )

scroll.Initialize2(223dip,"scroll")

2- اسکرول ویو رو به اکتیویتی ادد میکنید .

Activity.AddView(scroll,0,0,100%x,100%y)

3- در حلقه فور باتن رو اینیشیالایز میکنیم . 

For i=0 To 199
    
    Dim button1 As Button
    button1.Initialize("button1")
    
    
Next 

4-در حلقه فور باتن ها رو به اسکرول ویو ادد میکنیم 

For i=0 To 199
    
    Dim button1 As Button
    button1.Initialize("button1")
    
    scroll.Panel.AddView(button1,0,height,100%x,15%y)
Next 

5- .  - یک متغیر از نوع int تعریف میکنیم . برای این که در هر باری که حلقه میچرخه و باتن جدیدی رو میخواد ادد کنه ، باتن جدید پایین تر از باتن قبلی قرار بگیره . مقداری که به height اضافه میشه کمی بیشتر از مقدار ارتفاع باتن هاست . چون میخواییم کمی بین باتن ها فاصله باشه .

 

Dim height As Int = 0

For i=0 To 199
	
	Dim button1 As Button
	button1.Initialize("button1")
	
	scroll.Panel.AddView(button1,0,height,100%x,15%y)
	height = height+17%y
Next

6- ارتفاع پنل اسکرول ویو رو برابر height قرار میدیم . در نهایت کدها به صورت در میاد

Dim scroll As ScrollView
scroll.Initialize2(223dip,"scroll")
Activity.AddView(scroll,0,0,100%x,100%y)


Dim height As Int = 0

For i=0 To 199
    
    Dim button1 As Button
    button1.Initialize("button1")
    
    scroll.Panel.AddView(button1,0,height,100%x,15%y)
    height = height+17%y
Next

scroll.Panel.Height = height  

سعی کنید با کد نویسی جلو برید نه با دیزاینر .

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

[Amir - B 184]

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

 

 

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

 

. 

Sub Activity_Create(FirstTime As Boolean)
Dim scroll As ScrollView
scroll.Initialize2(223dip,"scroll")
Activity.AddView(scroll,0,0,100%x,100%y)


Dim height As Int = 0

For i=0 To 199
	
	Dim button1 As Button
	button1.Initialize("button1")
	
	scroll.Panel.AddView(button1,0,height,100%x,15%y)
	height = height+17%y
	button1.Tag = i
Next

scroll.Panel.Height = height
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub
Sub button1_Click
	Dim button2 As Button
	button2 = Sender
	button2.Color = Colors.Blue
End Sub

[101011 50]

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

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

بعد باتن هاتون رو بسازید .میتونید این باتن ها رو با استفاده از متن های خاص از دیتابیس بگیرید و یا با هر روش و متنی که دوست دارید بسازی(توجه کنید که برای راحتی کار از حلقه فور استفاده کنید بهتره والا باید دونه به دونه باتن بسازید)

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

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

موفق باشید

[bakhtiaran 84]

سلام دوستان بنده میخوام 200 تا دکمه رو اسکرول کنم چطوری باید این کار رو انجام بدم

یه اسکرول ویو قرار میدی و دکمه ها رو توش بذار .اول اسکرول ویو بعدش دکمه