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

آموزش تنظیم نور صفحه گوشی در B4A

سلام

1 -  برای این کار ابتدا کتابخانه phone را تیک زده و سپس، یک متغیر از نوع Phone تعریف کنید. مانند زیر :

Dim p As Phone

3 - در هر Sub یا رویدادی که مدنظرتان بود کد زیر را بنویسید:

p.SetScreenBrightness(1)

کد بالا نور صفحه را تا آخرین حد تنظیم می کند.

شما می توانید از 0 تا 1 یک عدد اعشاری انتخاب کنید. مثلا: 0.1 ، 0.6 ، 0.8 و ... همچنین اگر مقدار را روی -1 بگذارید نور صفحه اتوماتیک می شود.