ساخت نوتیفیکیشن

[amirsghx 13]

سلام و خسته نباشد

می خواستم یک نوتیفکشن بسازم که تا کلیک روش نشه از منو اعلان ها پاک نشه(با زدن دکمه clear از لیست اعلان ها حذف نشه) مثل اعلان های جیمیل .

با تشکر

[مهدی ایزدی 9,203]

درود

سلامت باشید

خدمت شما :

Sub Globals
	Dim noti As Notification
End Sub

Sub Activity_Create(FirstTime As Boolean)
	Activity.LoadLayout("Layout1")
	noti.Initialize
	noti.Icon = "icon"
	noti.Light = True
	noti.OnGoingEvent = True
	noti.autocancel = True
End Sub

Sub Button1_Click
	noti.SetInfo("salam","khoobi",Me)
	noti.Notify(1)
End Sub