رفتن به مطلب

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


araad1993

ارسال های توصیه شده

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

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

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

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

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

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

که من بهتون پیشنهاد میکنم تو سرویس ماژول 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

تمام شد 

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

  • 7 ماه بعد...

بایگانی شده

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

  • کاربران آنلاین در این صفحه   0 کاربر

    • هیچ کاربر عضوی،در حال مشاهده این صفحه نیست.
×
×
  • اضافه کردن...