ساخت نوتیفیکیشن حرفه ای بسیار ساده

[araad1993 5]

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

من چند روز پیش خیلی دنبال کد برای ساخت نوتیفیکیشن بودم بزور پیدا کردم 

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

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

بریم سراغ اموزش

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

که من بهتون پیشنهاد میکنم تو سرویس ماژول Start بنویس تا با اجرا برنامه لود بشه

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

Sub Globals
    Dim n As Notification
End Sub

حالا تو قسمت اکتیویتی کرید

کد های زیرو قرار میدیم
 

Sub Activity_Create(FirstTime As Boolean)
	n.Initialize   'دستور به استارت متغییر معرفی شده
	n.Icon = "icon"      'نام ایکونی که میخواید تو نوتیفیکیشنتون بالا بیاد   من که خودم از ایکون برنامه استفاده کردم
	n.Light = True   'تم نوتیفیکیشن 
	n.SetInfo("Title","این متن است",Me)
	n.Sound = True   'میگه در زمان اعلام نوتیفیکیشن ایا صدا ام داشته باشه که بصورت شرطی میگید اره یا نه
	n.Vibrate = True    'میگه در زمان اعلام نوتیفیکیشن ایا ویبره ام داشته باشه که بصورت شرطی میگید اره یا نه
	n.Notify(1)      'بعضیا میخان برای هر اکتیویتی یه نوتیفیکیشن بزارن برای این که  و یا میخان یه دکمه برای خاموش کردن نوتیفیکیشنی مخصوص بسازن واسه همین باید به هر نوتیفیکیشن یه ایدی مجزا داد 
	   
End Sub

فرض کنیم میخاید با زدن یه دکمه نوتیفیکیشن غیرفعال بشه

Sub btn1_Click
	n.Cancel(1)
End Sub

تمام شد 

البته اینم بگما دستور کنسل رو تو سرویس ماژول نزارید تو یه اکتیویتی مورد نظر بزارید

[Abol 5]

بسم ا... الرحمن الرحیم

خدایا شکرت

انشاء ا...

امام زمان ظهور کند

و

شما یار او باشید

بسیار ممنون.