ساخت ناتیفی که دکمه داره

[MR.B4A 151]

سلام به همه

من میخوام وقتی موزیک داره پخش میشه، برنامم ناتیفی بندازه که یه متن و سه تا دکمه داشته باشه.

دوتا از دکمه ها برای عقب و جلو کردن موزیک ( ترک قبلی یا بعدی ) و یکی برای پاز کردن موزیک.

یه سورسی توی سایت مرجع پیدا کردم که این بخشش میاد و تاحدودی چیزی که میخوامو میسازه:

Sub Notification_WithActions
	Dim n As NB6
	n.Initialize("default", Application.LabelName, "DEFAULT").SmallIcon(smiley)
	n.AddButtonAction(smiley, "Action 1", MyReceiver, "action 1")
	Dim cs As CSBuilder
	n.AddButtonAction(Null, cs.Initialize.Color(Colors.Red).Bold.Append("Action 2").PopAll, MyReceiver, "action 2")
	n.DeleteAction(MyReceiver, "delete action")
	n.Build("Actions", "Actions", "tag", Main).Notify(1)
End Sub

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

Sub Process_Globals
	
End Sub

Private Sub Receiver_Receive (FirstTime As Boolean, StartingIntent As Intent)
	If StartingIntent.IsInitialized Then
		Dim cs As CSBuilder
		cs.Initialize.Bold.Size(20).Append($"Action: ${StartingIntent.Action}"$).PopAll
		Log(cs)
		ToastMessageShow(cs, True)
	End If
End Sub

اما این ناتیف دوتا دکمه داره، اما من میخوام سه تا دکمه داشته باشه و داخل کلاس ماژول نوشته شده که من میخوام اون رو توی صفحه اصلیم بنویسم.

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

[محمدرضا شاهپیری 5,616]

در ۱۴۰۳/۱۲/۱۵ در 00:05، MR.B4A گفته است:

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

لطف میکنید

عزیز همه چیش واقعا مشخصه. چیز خاصی نداره

این که کد سرویستونه

#Region  Service Attributes 
	#StartAtBoot: False
	
#End Region

Sub Process_Globals
	
End Sub

Sub Service_Create

End Sub

Sub Service_Start (StartingIntent As Intent)
	Service.StopAutomaticForeground 
	postNotification
End Sub

Sub Service_Destroy

End Sub

Sub postNotification
	Dim n As NB6
	Dim icon As Bitmap=LoadBitmap(File.DirAssets, "job.png")
	n.Initialize("default", Application.LabelName, "DEFAULT").SmallIcon(icon)
	n.AddButtonAction(icon, "play action" , MyReceiver, "actions.play")
	n.Build("Actions", "Actions", "tag", Main).Notify(1)
End Sub

اینم کد رسیور

Sub Process_Globals
	
End Sub


Private Sub Receiver_Receive (FirstTime As Boolean, StartingIntent As Intent)
	If StartingIntent.IsInitialized Then
		Dim action As String=StartingIntent.Action
		If action="actions.play" Then
			'play music
		End If
	End If
End Sub

 

[محمدرضا شاهپیری 5,616]

شما با دستور n.AddButtonAction میتونید هر تعداد دکمه اضافه کنید. مشکل چیه؟

[محمدرضا شاهپیری 5,616]

8 ساعت قبل، MR.B4A گفته است:

سلام استاد.

بله حرف شما صحیح

چه طوری میشه به رویداد کلیک هر دکمه دسترسی داشت؟!

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

n.AddButtonAction(smiley, "Action 1", MyReceiver, "action 1")


Private Sub Receiver_Receive (FirstTime As Boolean, StartingIntent As Intent)
	If StartingIntent.IsInitialized Then
	dim action as String=StartingIntent.Action
     ......
	End If
End Sub

 

[MR.B4A 151]

18 ساعت قبل، محمدرضا شاهپیری گفته است:

شما با دستور n.AddButtonAction میتونید هر تعداد دکمه اضافه کنید. مشکل چیه؟

سلام استاد.

بله حرف شما صحیح

چه طوری میشه به رویداد کلیک هر دکمه دسترسی داشت؟!

[MR.B4A 151]

14 ساعت قبل، محمدرضا شاهپیری گفته است:

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

n.AddButtonAction(smiley, "Action 1", MyReceiver, "action 1")


Private Sub Receiver_Receive (FirstTime As Boolean, StartingIntent As Intent)
	If StartingIntent.IsInitialized Then
	dim action as String=StartingIntent.Action
     ......
	End If
End Sub

 

خب استاد چه طوری براش مشخص کنم که اگه روی فلان دکمه کلیک شد، فلان کارو انجام بده؟!
برنامه اینو چه طوری باید بفهمه؟!

[MR.B4A 151]

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

لطف میکنید

[MR.B4A 151]

up