تغییر رنگ ناتیفیکیشین بار

[KSDKING 44]

سلام دوستان من دوباره با سوالات مبتدیم اومدم

.........................................................

دوستان تو بیسیک میشه رنگ نوتیفیکیشن بار(حالا نمیدونم اسمشو درست گفتم یا نه حالا به بزرگی خودتون ببخشید) رو تغییر داد؟(عکس زیر رو ببینید)

photo

[امین شاهدی 5,765]

Sub Activity_Create(FirstTime As Boolean)
	
	SetStatusBarColor(Colors.Blue)
	SetNavigationBarColor(Colors.Blue)

	....

برای استاتوس بار:

Sub SetStatusBarColor(color As Int)
   Dim p As Phone
   If p.SdkVersion >= 21 Then
     Dim jo As JavaObject
     jo.InitializeContext
     Dim window As JavaObject = jo.RunMethodJO("getWindow", Null)
     window.RunMethod("addFlags", Array (0x80000000))
     window.RunMethod("clearFlags", Array (0x04000000))
     window.RunMethod("setStatusBarColor", Array(color))
   End If
End Sub

برای نویگیشن بار (پایین صفحه) :

Sub SetNavigationBarColor(color As Int)
   Dim p As Phone
   If p.SdkVersion >= 21 Then
     Dim jo As JavaObject
     jo.InitializeContext
     Dim window As JavaObject = jo.RunMethodJO("getWindow", Null)
     window.RunMethod("addFlags", Array (0x80000000))
     window.RunMethod("clearFlags", Array (0x04000000))
     window.RunMethod("setNavigationBarColor", Array(color))
   End If
End Sub

[mohsenaa 32]

آیا انروید زیر پنج رو هم ساپپورت می کنه ؟؟؟؟

[Aligharehdaghli 18]

در در 1395/04/24, 23:15:49، امین شاهدی گفته است :

 

خب برادر من میبینی که به همون کدی گیر میده که تو اون یکی تغییر دادم دیگه تو اینم همینو تغییر بده یه خط کده ها

دوست عزیز چطوری میشه هر دوتاشو شیشه ای کرد ب تعریفی دیگه شفاف یا الفاشو صفر کرد ؟ هم استاتوس بار هم نویگیشن بار هر دو تا

[Negan 1,300]

استاتوس باره وقتی اپ کامپتو راه بندازین توی ریسورس های تم یک مقدار هست به اسم color primary  که dark  هستش و مقدار اون میشه رنگ استاتوس بار و روی اندروید پنج به بالا جواب میده !

[mohsenaa 32]

up (ببخشید اسپم دادم )

[dostmobile 329]

ساده ترین روش رو میگم بهتون بدون نیاز به متریال

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

SetApplicationAttribute(android:theme,"@android:style/Theme.Holo.Light.NoActionBar.TranslucentDecor")

[KSDKING 44]

ممنون از همگی مشکل رفع شد.

Sent from my SM-A710F using Tapatalk

[sadegh_nordeh77 0]

عالی

[حمید زارع 331]

واسه من به کتابخونه phone گیر میده

فکر کنم ورژنم پایین باشه

version : 2.28

 

درسته ؟

 

اگه ورژن بالاتر وجود داره یکی از دئستان بزاره ...

[امین شاهدی 5,765]

آیا انروید زیر پنج رو هم ساپپورت می کنه ؟؟؟؟

 

خیر

 

 

واسه من به کتابخونه phone گیر میده

فکر کنم ورژنم پایین باشه

version : 2.28

 

درسته ؟

 

اگه ورژن بالاتر وجود داره یکی از دئستان بزاره ...

 

بله واسه من 2.28

[حمید زارع 331]

تصویر خطا ...

B4A version: 5.80
Parsing code.    (0.60s)
Compiling code.    Error
Error compiling program.
Error description: Current declaration does not match previous one.
Previous: {Type=Parse,Rank=0, RemoteObject=True}
Current: {Type=Phone,Rank=0, RemoteObject=True}
Occurred on line: 1216
   Dim p As Phone

[امین شاهدی 5,765]

مقدار sdk رو با جاوا آبجکت نوشتم واستون از این کد استفاده کنید : 

Sub SetStatusBarColor(color As Int)
Dim Build As JavaObject
Dim SdkInt As Int = Build.InitializeStatic("android.os.Build.VERSION").GetField("SDK_INT")
   If SdkInt >= 21 Then
     Dim jo As JavaObject
     jo.InitializeContext
     Dim window As JavaObject = jo.RunMethodJO("getWindow", Null)
     window.RunMethod("addFlags", Array (0x80000000))
     window.RunMethod("clearFlags", Array (0x04000000))
     window.RunMethod("setStatusBarColor", Array(color))
   End If
End Sub

[حمید زارع 331]

ممنون جناب شاهدی به خاطر پاسخگویی فوق سریعتون

به این ساب هم گیر میده

Sub SetNavigationBarColor(color As Int)
   Dim p As Phone
   If p.SdkVersion >= 21 Then
     Dim jo As JavaObject
     jo.InitializeContext
     Dim window As JavaObject = jo.RunMethodJO("getWindow", Null)
     window.RunMethod("addFlags", Array (0x80000000))
     window.RunMethod("clearFlags", Array (0x04000000))
     window.RunMethod("setNavigationBarColor", Array(color))
   End If
End Sub

[حمید زارع 331]

آقای شاهدی این کد رنگ استاتوس بار و ... را عوض نکرد

[امین شاهدی 5,765]

آقای شاهدی این کد رنگ استاتوس بار و ... را عوض نکرد

کدارو تست کردم روی اندروید ۵ به بالا کار کرد

[امین شاهدی 5,765]

 

ممنون جناب شاهدی به خاطر پاسخگویی فوق سریعتون

به این ساب هم گیر میده

Sub SetNavigationBarColor(color As Int)
   Dim p As Phone
   If p.SdkVersion >= 21 Then
     Dim jo As JavaObject
     jo.InitializeContext
     Dim window As JavaObject = jo.RunMethodJO("getWindow", Null)
     window.RunMethod("addFlags", Array (0x80000000))
     window.RunMethod("clearFlags", Array (0x04000000))
     window.RunMethod("setNavigationBarColor", Array(color))
   End If
End Sub

 

خب برادر من میبینی که به همون کدی گیر میده که تو اون یکی تغییر دادم دیگه تو اینم همینو تغییر بده یه خط کده ها