آموزش قرار دادن عکس به عنوان پس زمینه در B4A

سلام

ابتدا کتابخانه Reflector را تیک بزنید و سپس ساب زیر را اضافه کنید:

Sub SetBackground(Pic As Bitmap)
    Try
        Dim b As Int
        b = Msgbox2("آیا مایل هستید عکس انتخاب شده به عنوان تصویر پس زمینه تنظیم گردد؟","","بلی","خیر","",Null)
        If b = DialogResponse.POSITIVE Then
            Dim r As Reflector
            r.Target = r.RunStaticMethod("android.app.WallpaperManager", "getInstance", _
            Array As Object(r.GetContext), Array As String("android.content.Context"))
            r.RunMethod4("setBitmap", Array As Object(Pic), Array As String("android.graphics.Bitmap"))
            ToastMessageShow("عملیات با موفقیت انجام شد!",True)
        End If
    Catch
        ToastMessageShow("خطا!",True)
    End Try
End Sub

همان طور که پیداست باید از این Sub استفاده کنید.