سوالی درباره سورس رینگتون (آقای پژمان نیکروان)

[qasem 249]

دوستان اگه بخوام شرط بذارم که If msg = DialogResponse.POSITIVE  بیا آهنگ را برای زنگ گوشی تنظیم کن و اگه If msg = DialogResponse.NEGATIVE بود بیا آهنگ را برای زنگ پیام قرار بده و اگه  msg = DialogResponse.CANCEL  بیا بعنوان هشدار قرار بده ، چیکار باید بکنم ؟  اگه کدهاشو کامل بزارید ممنون میشم.

 

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

[Alireza.Ghafari 2,104]

درود 

خدمت شما :

	Dim s As Int
	s=Msgbox2("آهنگ فوق جایگزین شود ؟","تغییر زنگ خور","بله","خیر","",Null)
	If s=DialogResponse.POSITIVE Then
	File.Copy(File.DirAssets,"Test.mp3",File.DirRootExternal,"Test.mp3")
    Dim ring = rm.AddToMediaStore(File.DirRootExternal,"Test.mp3","Test",False,False,True,True) As String
        rm.SetDefault(rm.TYPE_RINGTONE,ring)
ToastMessageShow("صدای زنگ تغییر کرد!",False)
End If

در ضمن به کتابخانه phone نیاز دارید : 

Dim rm As RingtoneManager

موفق باشید

[qasem 249]

آقای غفاری عزیز لطف کردید پاسخ دادید.

 

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

متشکرم

[Alireza.Ghafari 2,104]

آقای غفاری عزیز لطف کردید پاسخ دادید.

 

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

متشکرم

خواهش میکنم عزیزم

اینکاری رو که میفرمایید از نظر بنده بهتر با inpumenu انجام بدید و برای رویداد هر آیتم از menu دستور مورد نظر که مربوط به تغییر هشدار پیامک زنگ و... می باشد قرار بدید. آموزش و سورس تمام چیز هایی که گفتم خدمتتون هم در انجمن موجوده جستوجو کنید به نتیجه می رسید.

موفق باشید

[salar_blackdroid 408]

برادر غفاری نظر کارشناسی رو محبت کردن گفتن ولی اگه منظورتون

 

با Msgbox هست ، این کد رو الان نوشتم ، تستش کنید ببینید کارتون رو

 

را میندازه ؟؟!!

Dim rng As RingtoneManager
	Dim i As Int
	i = Msgbox2("Please Select ...","...","Ring","Cancel","SMS",Null)
	Dim ss  = rng.AddToMediaStore(File.DirRootExternal,"yourfilename","Ring",False,True,True,True) As String
	If i = DialogResponse.POSITIVE Then
	rng.SetDefault(rng.TYPE_RINGTONE,ss)
	ToastMessageShow("Was Set For RING",False)
	Else
	If i = DialogResponse.NEGATIVE Then
	rng.SetDefault(rng.TYPE_NOTIFICATION,ss)
	ToastMessageShow("Was Set For SMS",False)
	End If
	End If

موفق باشید ./