اضافه کردن flothing action button به custom list view

[amir mahdizadeh 109]

سلام خدمت همه عزیزان

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

FloatingActionButton1.AttachToListView(listview1)

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

ممنون از همه دوستان

[amir mahdizadeh 109]

ممنون از پاسختون دوست عزیز اما من که اسکرول ویو ندارم این ساب رو چطور بنویسم؟

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

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

شما به جای scrollview1 اون eventy که باش کاستوم لیست ویوتون رو اینشیالایز کردین بدین

[amir mahdizadeh 109]

داداش اخه کاستوم لیست ویو فقط یه ساب داره اونم

item click هست

و پیزی تحت عنوان اسکرول ویو چنج نداره

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

دوست عزیز شما منظورتون از کاستوم لیست ویو چیه دقیقا؟؟؟

ما تو بیسیک یه کتابخونه داریم به ااسم customlistview از همین استفاده میکنین؟

[amir mahdizadeh 109]

بله خودشه از همین استفاده میکنم

Dim clv As CustomListView

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

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

اون سابی که بالا نوشتم رو به اکتیویتیتون اضافه کنید فقط دقت کنید به جای scrollview نام اون event ی که باش customlistview رو اینشیالایز کردین بدین مشکلی نباید باشه

[amir mahdizadeh 109]

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

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

به جای ScrollView1_ScrollChanged بنویسید ScrollView1_position ببینید حل میشه یا نه اگه نشد بگو سورس بزارم

[amir mahdizadeh 109]

دوست عزیز این رو هم گذاشتم اما متاسفانه این هم جواب نداد و اتفاق خاصی نیوفتاد

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

این سورس رو ببینید

 

float.zip

[amir mahdizadeh 109]

سلام بابت سورس ممنون عزیز اما زمانی که اسکرول میکنیم FAB محو نمیشه

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

خیر دوست عزیز امکان attach کردن نیست ولی میتونید به شکل زیر خودتون اون رو پیاده کنید

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

البته اول متغیر mLastScrollY رو توی گلوبال تعریف و مقدار صفر بش بدین

Sub ScrollView1_ScrollChanged(Position As Int)
	If Abs(Position - mLastScrollY) > 3dip Then
		If Position > mLastScrollY Then
			Fab1.Hide(True)
		Else
			Fab1.Show(True)
		End If
	End If
	mLastScrollY = Position
End Sub