نوتیفیکیشن حرفه ای

[mobah 132]

سلام

تو انجمن خیلی سرچ کردم ولی اموزش نوتیفیکیشن حرفه ای وجود نداره.

آموزش   CustomNotification  و آموزش notification builder

کتابخانه های اصلی  اینها هم اگر باشه خوبه

 

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

 

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

 

 

 

 

 

 

 

 

[mobah 132]

یک دنیا ممنون

 

لطفتون رو نمیشه جبران کرد  امام حسین (ع) اجرت بده...

[M-CAP7AIN 537]

با این نرم افزار می تونید ( notification builder ) رو بسازید.

NBDemo.rar

[mobah 132]

مرسی

ولی کد هایی که میده اشتباس  و جواب نمیده

تو برنامه درسته

میشه راهنمایی کنید

مثلا:

نوتیفیکتشن عکس دار 

Dim nb as NotificationBuilder
nb.Initialize
Dim nbBigPictureStyle as NotificationBigPictureStyle
nb.SmallIcon = "icon"
nb.Ticker = "New Demo"
nb.Tag = "some tag"
nb.setActivity(Me)
nb.DefaultLight = True
nb.DefaultVibrate = True
nb.DefaultSound = True
nb.ContentTitle = "Some Title"
nb.ContentText = "Some Text"
nb.SubText = "Some Sub Text"
nb.ShowTime = False
Dim BigPicture As Bitmap
BigPicture.Initialize(File.DirAssets, "BigPicture.png")
nbBigPictureStyle.BigContentTitle = "BigPictureStyle Example"
nbBigPictureStyle.SummaryText = "View More..."
nbBigPictureStyle.BigPicture = BigPicture
nb.SetStyle(nbBigPictureStyle)
nb.AddAction("arrow", "Action1", NotePopup)
nb.AddAction("circle", "Action2", NotePopup)
nb.AddAction2("star", "Action3", ActionService
nb.Notifiy(1)

چهار خط آخر رو خطا میگیره

جای NotePopup اکتیویتی  خودمو دادم و جای سرویس ActionService هم نام سرویس خودم

ولی خطا میده تو Logs

 

 

 

 

 

 

 

[M-CAP7AIN 537]

کدنویسی اینجوری که فایده نداره

1. Ctrl+C
2. Ctrl+V 

 

	Dim nb As NotificationBuilder
	nb.Initialize
	Dim nbBigPictureStyle As NotificationBigPictureStyle
	nbBigPictureStyle.Initialize
	nb.SmallIcon = "icon"
	nb.Ticker = "New Demo"
	nb.Tag = "some tag"
	nb.setActivity(Me)
	nb.DefaultLight = True
	nb.DefaultVibrate = True
	nb.DefaultSound = True
	nb.ContentTitle = "Some Title"
	nb.ContentText = "Some Text"
	nb.SubText = "Some Sub Text"
	nb.ShowTime = False
	Dim BigPicture As Bitmap
	BigPicture.Initialize(File.DirAssets, "BigPicture.jpg")
	nbBigPictureStyle.BigContentTitle = "BigPictureStyle Example"
	nbBigPictureStyle.SummaryText = "View More..."
	nbBigPictureStyle.BigPicture = BigPicture
	nb.SetStyle(nbBigPictureStyle)
	nb.AddAction("arrow",  "Action1",  "1" , Me)
	nb.AddAction("circle", "Action2", "2" , Me)
	nb.AddAction2("star",  "Action3",  "3" , Me)
	nb.Notify(1)