نگه داشتن روی پنل و باز شدن اکتیوتی

[alibaghods908 4]

سلام دوستان نماز و روزه هاتون قبول.

من می خواستم با نگه داشتن روی پنل یه اکتیوتی دیگه باز بشه و با برداشتن دست اون اکتیوتی بسته شه.(مثل اینستاگرام)

ممنون 

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

در در 1398/02/22, 14:57:36، alibaghods908 گفته است :

 

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

[alibaghods908 4]

در 6 دقیقه قبل، محمدرضا شاهپیری گفته است :

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

جناب شاهپیری ممنونم بابت کمکتون.

من یه مولتی پنل دارم ک می خوام با لانگ کلیک کردن روش یا یه اکتیوتی دیگه باز بشه یا یه پنل ظاهر بشه(فرقی نمیکنه).

اینستاگرام رو دیدین؟توی explor با نگه داشتن روی ی عکس اون عکس بزرگ میشه و با برداشتن دست عکس بزرگه میره.ی همچین چیزی می خوام

[alibaghods908 4]

http://s9.picofile.com/file/8360409418/New_folder.rar.html

یه سورس براتون پیوست کردم.که بیشتر متوجه بشین

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

[alibaghods908 4]

دوستان اگر کسی چیزی به ذهنش میرسه بگه.

ممنون

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

در 2 ساعت قبل، alibaghods908 گفته است :

دوستان اگر کسی چیزی به ذهنش میرسه بگه.

ممنون

خدمت شما. دقیقا همون چیزی که میخواین.  tochdetect.zip

[alibaghods908 4]

ممنونم دست شما درد نکنه

[alibaghods908 4]

در 1 ساعت قبل، محمدرضا شاهپیری گفته است :

خدمت شما. دقیقا همون چیزی که میخواین.  tochdetect.zip

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

همون طور ک گفتم من از مولتی پنل استفاده میکنم.

این کد های کلیک پنلم هست.

Sub Panel1_Click
	
	Dim pp As Panel
	pp = Sender
	
	Dim m As Map = pp.Tag
	content = m
  
	
	StartActivity(profilehame)
End Sub

 

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

در 2 ساعت قبل، alibaghods908 گفته است :

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

همون طور ک گفتم من از مولتی پنل استفاده میکنم.

این کد های کلیک پنلم هست.

 

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

Sub Gesture_onSingleTapUp(X As Float, Y As Float, MotionEvent As Object)
	Dim pnl As Panel=Sender
	Dim str As String=pnl.Tag
	Log("tag="&str)
End Sub

 

[alibaghods908 4]

در 13 ساعت قبل، محمدرضا شاهپیری گفته است :

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

Sub Gesture_onSingleTapUp(X As Float, Y As Float, MotionEvent As Object)
	Dim pnl As Panel=Sender
	Dim str As String=pnl.Tag
	Log("tag="&str)
End Sub

 

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

Sub Gesture_onSingleTapUp(X As Float, Y As Float, MotionEvent As Object)
	Dim pnl As Panel=Sender
	Dim m As Map=pnl.Tag
	content = m
	
	StartActivity(profilehame)
End Sub

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

[alibaghods908 4]

در 21 ساعت قبل، محمدرضا شاهپیری گفته است :

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

Sub Gesture_onSingleTapUp(X As Float, Y As Float, MotionEvent As Object)
	Dim pnl As Panel=Sender
	Dim str As String=pnl.Tag
	Log("tag="&str)
End Sub

 

اقا شاهپیری ببینید

اصلا انگار تگ و سندر کار نمیکنه.

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