آموزش قرار دادن عکس به عنوان پس زمینه در 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 استفاده کنید. این ساب یک متغیر از نوع Bitmap بر می گرداند:

SetBackground(LoadBitmap(FileDirAssets,"1.jpg"))

FileDirAssets محلی هست که عکس داخل آن قرار دارد و 1.jpg هم نام عکس هست.

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

SetBackground(ImageView1.Bitmap)