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

[Mohsen27 199]

سلام  خسته نباشید.

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

 If Position + ScrollView1.Height = ScrollView1.Panel.Height Then

            Msgbox("پایان لیست","End")
		 
			
        End If

ولی مسیج باکس رو زیاد میده

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

قبلا همچین تاپیکی بوده ولی جواب درست حصابی داده نشده

ممنون میشم راهنمایی کنین

[sganji 678]

ببین وقتی به پایان میرسه و اونجا میمونه هر لحظه این دستور اجرا میشه

مثلا بعد از مسیج باکس ارتفاع اسکرول رو یکم زیاد کن!(خلاقیت)

[Mohsen27 199]

سلام

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

اقا سپهر اونی ک شما گفتین کار نمیکنه چون ممکنه کاربر دوباره اخر بیاد .

چیکار میشه کرد؟؟

خیلی درگیر این موضوع هستم ولی متاسفانه چیزی پیدا نکردم.

[امین شاهدی 5,765]

If Position + ScrollView1.Height = ScrollView1.Panel.Height Then
        If File.Exists(File.DirInternal,"aa.txt")=False Then
		Msgbox("end","")
		File.WriteString(File.DirInternal,"aa.txt","")
        End If
End Sub

اینجوری استفاده کن

[Mohsen27 199]

ممنون از جوابی ک دادی امین جان

ولی راستش مال من مسیج باکس نیست مسیج باکس رو مثال زدم.

من میخوام وقتی اسکرول به اخر رسید یه صفحه ی دیگه رو دان کنه و توی مولتی پنلی ک ساختم بیاره.

ولی متاسفانه به جای 1 بار دانلود 5 تا 10 بار دانلود میکنه و برای همین میخوام فقط یک بار دانلود کنه و بیاره.

ممنون

[امین شاهدی 5,765]

میتونی یه متغر تغریف کنی بعد بگی اگه 0 بود صفحه بعد رو اضافه کنه و متغر رو 1 قرار بده.

اگه 1 بود دیگه کاری انجام نده یا اصلا یه صفحهی دیگه لود کنه و متغیر رو 2 قرار بده و .......

 

به همین صورت ادامه میدی

[Mohsen27 199]

اقا امین ممنون از جواب شما حل شد

یه سوال دیگه دارم مثلا من میخوام بار دوم ک رسید به اخر برنامه خودش دانلود کنه یعنی مثلا سایت 200 تا صفحه داره و صفحه ی 200 تم رو تو بار 200تم ک اسکرول به اخر میرسه دان کنه

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

[امین شاهدی 5,765]

از طریق همون راه قبلی که گفتم میشه دیگه ... وقتی اسکرول به پایان رسید یکی به مقدار متغیر اضافه شه...

 

بعد بگین وقتی مثلا i=200 بعد فلان کار رو بکنه