ساخت برنامه تغییر بک گراند یا تصویر زمینه

[mrmb 7]

سلام، من میخواهم یه برنامه بسازم که با کلیک روی یک دکمه بک گراند یا تصویر زمینه گوشی عوض بشه! ببینید اشکال کد زیر چیست؟

Sub bt2_Click
	Dim i As Int
	i = Msgbox2("آیا میخواهید این تصویر به عنوان پس زمینه گوشی شما انتخاب شود؟","تصویر زمینه","بله","","خیر",LoadBitmap(File.DirAssets,"ex.png"))
	If i = DialogResponse.POSITIVE Then
	ToastMessageShow("تصویر زمینه تعویض شد!",False)
	Return 
	
	End If
End Sub

[Milad-Mohammadi 401]

اشکال کد اینه که اصلا کددی برای تغییر تصویر زمینه ننوشتید:|

فقط یه toast  نمایش داده میشه

[Mr Mansour 329]

Sub bt2_Click

Dim i As Int

i = Msgbox2("آیا میخواهید این تصویر به عنوان پس زمینه گوشی شما انتخاب شود؟","تصویر زمینه","بله","","خیر",LoadBitmap(File.DirAssets,"ex.png"))

If i = DialogResponse.POSITIVE Then

st.setWallpaper(LoadBitmap(File.DirAssets, "test.jpg"))

ToastMessageShow("تصویر زمینه تعویض شد!",False)

Return

End If

End Sub