تغییر آهنگ زنگ

[Alireza.Ghafari 2,104]

سلام دوستان گرامی

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

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

[sganji 678]

با سلام

تو میتونی از کدهای زیر استفاده کنی:

[color=blue][font=&amp]Dim[/font][/color][color=black][font=&amp] r [/font][/color][color=blue][font=&amp]As [/font][/color][color=darkcyan][font=&amp]RingtoneManager[/font][/color]
[color=blue][font=&amp]Dim[/font][/color][color=black][font=&amp] u [/font][/color][color=blue][font=&amp]As [/font][/color][color=darkcyan][font=&amp]String[/font][/color]
[color=#6600CC][font=&amp]i[/font][/color][color=black][font=&amp] = [/font][/color][color=blue][font=&amp]Msgbox2[/font][/color][color=black][font=&amp]([/font][/color][color=maroon][font=&amp]"می خوای آهنگ رو به عنوان آهنگ زنگ شود؟"[/font][/color][color=black][font=&amp],[/font][/color][color=maroon][font=&amp]"اخطار"[/font][/color][color=black][font=&amp],[/font][/color][color=maroon][font=&amp]"آری"[/font][/color][color=black][font=&amp],[/font][/color][color=maroon][font=&amp]"خیر"[/font][/color][color=black][font=&amp],[/font][/color][color=maroon][font=&amp]""[/font][/color][color=black][font=&amp],[/font][/color][color=blue][font=&amp]Null[/font][/color][color=black][font=&amp])[/font][/color]
[color=blue][font=&amp]If [/font][/color][color=#6600CC][font=&amp]i[/font][/color][color=black][font=&amp] = [/font][/color][color=blue][font=&amp]DialogResponse[/font][/color][color=black][font=&amp].POSITIVE [/font][/color][color=blue][font=&amp]Then[/font][/color]
[color=blue][font=&amp]ToastMessageShow[/font][/color][color=black][font=&amp]([/font][/color][color=maroon][font=&amp]"آهنگ به عنوان آهنگ زنگ انتخاب شد"[/font][/color][color=black][font=&amp],[/font][/color][color=blue][font=&amp]True[/font][/color][color=black][font=&amp])[/font][/color]
[color=black][font=&amp] u = r.AddToMediaStore([/font][/color][color=blue][font=&amp]File[/font][/color][color=black][font=&amp].DirRootExternal, [/font][/color][color=maroon][font=&amp]"audio_0001.mp3"[/font][/color][color=black][font=&amp], [/font][/color][color=maroon][font=&amp]"22"[/font][/color][color=black][font=&amp], [/font][/color][color=blue][font=&amp]True[/font][/color][color=black][font=&amp], [/font][/color][color=blue][font=&amp]True[/font][/color][color=black][font=&amp], [/font][/color][color=blue][font=&amp]True[/font][/color][color=black][font=&amp], [/font][/color][color=blue][font=&amp]True[/font][/color][color=black][font=&amp])[/font][/color]
[color=black][font=&amp]r.SetDefault(r.TYPE_RINGTONE, u)[/font][/color]
[color=blue][font=&amp]File[/font][/color][color=black][font=&amp].Copy([/font][/color][color=blue][font=&amp]File[/font][/color][color=black][font=&amp].DirAssets , [/font][/color][color=maroon][font=&amp]"audio_0001.mp3"[/font][/color][color=black][font=&amp] , [/font][/color][color=blue][font=&amp]File[/font][/color][color=black][font=&amp].DirRootExternal , [/font][/color][color=maroon][font=&amp]"/audio_0001.mp3"[/font][/color][color=black][font=&amp])[/font][/color]
[color=blue][font=&amp]End[/font][/color][color=blue][font=&amp]If[/font][/color]