#B4a
مربی انلاین💕

دوستان سال نو شما مبارک

هیچ دعایی نمیکنم بجز
امید وارم تو این ۱۴۰۱ موجودات بی نام و نشان به اسم مسئول کشور،هدایت بشن و در غیر این صورت به عذابی دردناک گرفتار بشن.

برای همه آرزوی سلامتی میکنم
امیدوارم تو این سال جدید برکتتون زیاد،مهرتون زیاد،دعوا تبدیل به دوستی و آشتی بشه❤️

اینم عیدی شما 😀

رمز:آدرس کانال

release v11.50

فقط سرعت اجرارو ببینید.

https://t.me/Basic4Android_SourceCode

یه تکه کدی زدم برای مخفی کردن پنل:

به این صورت که شما ممکنه در یه اکتیویتی 100 تا پنل داشته باشید
و ممکنه با کلید بک بخواهید چک کنید کدوم پنل اول بسته بشه
برای این کار اکثرا از این روش استفاده میکنن

If panel.IsInitialized=True Then
If panel.Visible=True Then
panel.Visible=False
Return True
End If
End If



خب این کد برای 2 تا پنل جواب میده ولی اگه 50 یا بیشتر در یک کتییویتی پنل داشته باشید چی؟؟


خب اومدیم یه متغیر لیست تعریف کردیم در
Sub Globals
به این صورت
Dim keyback As List

و کد زیرو در اکتیویتی مورد نظر بزارید

Sub key_back(panel As Panel)
If keyback.IsInitialized=False Then
keyback.Initialize
End If
If keyback.Size>0 Then
Dim view As Panel=keyback.Get(keyback.Size-1)
panel.Elevation=appcompat.GetElevation(view)+1
End If
keyback.Add(panel)
End Sub

حالا فرض مثال شما یه باتن دارید و با کلیک بر روی باتن میخواهید یه پنل p1 باز بشه
به این صورت
b_click
p1.visible=true
key_back(p1)
end sub


و حالا

Sub activity_KeyUp (KeyCode As Int) As Boolean
If KeyCode=KeyCodes.KEYCODE_BACK Then



If keyback.IsInitialized=True Then
For i=0 To keyback.Size-1
Dim view As Panel=keyback.Get((keyback.Size-1)-i)
view.Visible=False
keyback.RemoveAt(keyback.IndexOf(view))
Return True
Next
End If

Return false
end if
end sub

خب شما با این روش هزار تا پنل هم در یک اکتیویتی داشته باشید دیگه با این کد براحتی میتونید پنلو ببندید



منتظر تکه کدهای دیگه باشید

https://t.me/Basic4Android_SourceCode

#b4a
#game

یه دیزاین بریم؟؟😉
https://t.me/Basic4Android_SourceCode

نمونه دیگه😄

موقع کد نویسی از اینا گوش بدین 😄

خیلی از دوستان پیام دادن برای کد نویسی دیزاین سمت اکتیویتی
کسانی که موافقند یه جلسه ای بزاریم روزی نیم ساعت برای آموزش پیشرفته کد نویسی دیزاین سمت اکتیویتی اعلام حضور کنن تا با انی دسک بریم به یاد گیری این موضوع

#SeekBar
پیشرفته
برای b4a

https://t.me/Basic4Android_SourceCode