دریافتFan Menu

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

مشاهده فایل

Fan Menu

---

منوی نسبتا زیبا و بدرد بخور

 

---

• ارسال کننده
  مجید آرتا
• ارسال
  ۱۹/۰۷/۰۶
• دسته
  سورس

 

[See 0]

سلام 

چطوری میشه هر کدوم از تب ها اسم متفاوتی داشته باشند

[See 0]

هیچکس جواب من رو نمیده

[Salar82 919]

سلام؛ بفرما:

	Dim poItem As FanMenuItem
	poItem.Text = "Some Title"

 

[mahfelsoft 130]

ببخشید میشه بگید توی رویداد کلید چطور برای هر آیتمی کلیک بزارید .

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

If ItemID = "1" Then 
end if

 

[Salar82 919]

سلام

آی دی هر آیتم رو چطور مشخص میکنین؟

اگر میشه کدهاتون رو قرار بدین.

[mahfelsoft 130]

در 8 ساعت قبل، Salar82 گفته است :

سلام

آی دی هر آیتم رو چطور مشخص میکنین؟

اگر میشه کدهاتون رو قرار بدین.

Private Sub FanMenu_Click(ItemID As String)
	ToastMessageShow("Clicked: " & ItemID, False)

	
	If ItemID = "1" Then

	startactivity(net)
		Else
	ToastMessageShow("اتصال اینترنت خود را بررسی نمایید ...",False)
	End If

 

[Salar82 919]

اگه میشه کدهای اد کردن هر آیتمتون هم بذارید.

احتمالا اونجا مشکل هست

[mahfelsoft 130]

در 33 دقیقه قبل، Salar82 گفته است :

اگه میشه کدهای اد کردن هر آیتمتون هم بذارید.

احتمالا اونجا مشکل هست

متوجه شدم چرا اینطوریه ...

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

If ItemID = "Item1" Then

	startactivity(net)
end if


"یعنی به جای عدد1 باید بنویسید 
iTem1