انتخاب آهنگ به عنوان رینگتون در b4a

[mohammad jamalian]

با سلام
می خواستم بپرسم چگونه یک آهنگ رو می شود به عنوان زنگ گوشی درآورد؟
با تشکر.
لطفا جواب بدید.

[mohammad jamalian]

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


Dim r As RingtoneManager
Dim u As String
Dim i As Int

بعد هم از کاربر سوال می کنیم:


i = Msgbox2("آیا می خواهید این سرود رو به عنوان آهنگ گوشی خود انتخاب کنید؟","اخطار","آری","خیر","",Null)

بعد اگر جواب مثبت بود به روش زیر عمل می کنیم:


If i = DialogResponse.POSITIVE Then
ToastMessageShow("آهنگ انتخاب شد",True)
u = r.AddToMediaStore(File.DirRootExternal,"sourodemeli-qadimitsb_113971.lite.mp3","22",True,True,True,True)
r.SetDefault(r.TYPE_RINGTONE,u)
File.Copy(File.DirAssets , "sourodemeli-qadimitsb_113971.lite.mp3" , File.DirRootExternal , "/sourodemeli-qadimitsb_113971.lite.mp3")
End If