آموزش ساخت منوی فانتزی در بیسیک فور اندروید
سلام
با یک آموزش ویدئویی دیگه از بیسیک فور اندروید در خدمتتون هستیم، رابط کاربری برنامه یک مساله ی خیلی مهم در برنامه می باشد، اگر برنامه ای که میسازید هر چند از لحاظ امکانات حرفه ای باشد ولی اگر از رابط کاربری خوبی برخوردار نباشد، بازخورد خوبی از کاربران دریافت نمی کنید، به همین منظور در این آموزش یک منوی فانتزی بسیار جالب می سازیم، در ادامه همراه بپرسم باشید.
منوی فانتزی b4a
در این آموزش میخواهیم یک منوی فانتزی متحرک به صورت عمودی بسازیم، این برنامه نیاز به کتابخانه ی خاصی ندارد و فقط به کمی سلیقه نیاز دارد تا آنچه را که در ذهن دارید بتوانید، طراحی کنید.
کاربرد این آموزش فقط در خصوص منو نیست، بلکه شما برنامه نویس عزیز میتوانید با استفاده از سلیقه ی بیشتر، در جاهای دیگری هم از این آموزش استفاده کنید.
مشاهده ی ویدئوی آموزشی:
در پایان کتابخانه + سورس را میتوانید دریافت کنید.
همراه ما باشید با دیگر آموزش ها …
موفق باشید.
دیدگاه ( 2 )
سلم من منو رو طراحی کردم خوب هم هست اما وقتی برای ایمج ویو ها رویداد کلیک مینویسم وقتی از پروژه خروجی میگیرم عما نمی کنه مشکل از چیه؟
#Region Project Attributes
#ApplicationLabel: B4A Example
#VersionCode: 1
#VersionName:
‘SupportedOrientations possible values: unspecified, landscape or portrait.
#SupportedOrientations: unspecified
#CanInstallToExternalStorage: False
#End Region
#Region Activity Attributes
#FullScreen: False
#IncludeTitle: True
#End Region
Sub Process_Globals
End Sub
Sub Globals
‘These global variables will be redeclared each time the activity is created.
‘These variables can only be accessed from this module.
Private anim As AnimationPlus
Private img_menu As ImageView
Private img_set As ImageView
Private img_about As ImageView
Private img_supp As ImageView
Private img_star As ImageView
Private pnl As Panel
Private i As Int=0
Private lbl1 As Label
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout(“main”)
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub img_menu_Click
If i=0 Then
anim.InitializeRotateCenter(“”,10,90,img_menu)
img_menu.SetBackgroundImage(LoadBitmap(File.dirassets,”jj.png”))
anim.Duration=300
anim.Start(img_menu)
anim.PersistAfter=True
pnl.SetVisibleAnimated(0,True)
anim.InitializeTranslate(“”,0,0,150,0)
anim.Duration=150
anim.Start(img_about)
anim.PersistAfter=True
img_about.SetVisibleAnimated(300,True)
anim.InitializeTranslate(“”,0,0,310,0)
anim.Duration=300
anim.Start(img_supp)
anim.PersistAfter=True
img_supp.SetVisibleAnimated(400,True)
anim.InitializeTranslate(“”,0,0,570,0)
anim.Duration=450
anim.Start( img_star)
anim.PersistAfter=True
img_star.SetVisibleAnimated(700,True)
anim.InitializeTranslate(“”,0,0,430,0)
anim.Duration=600
anim.Start( img_set)
anim.PersistAfter=True
img_set.SetVisibleAnimated(800,True)
i=1
Return
End If
”””””””””””””””””””””””””””””””””””””””””””””””””””””””””””””””””””””””’
If i=1 Then
anim.InitializeRotateCenter(“”,10,270,img_menu)
anim.PersistAfter=False
img_menu.SetBackgroundImage(LoadBitmap(File.dirassets,”1.png”))
anim.Duration=300
anim.Start(img_menu)
anim.PersistAfter=False
pnl.SetVisibleAnimated(500,False)
anim.InitializeTranslate(“”,150,0,0,0)
anim.Duration=150
anim.Start(img_about)
img_about.SetVisibleAnimated(300,False)
anim.PersistAfter=False
anim.InitializeTranslate(“”,280,0,0,0)
anim.Duration=300
anim.Start(img_set)
img_set.SetVisibleAnimated(400,False)
anim.PersistAfter=False
anim.InitializeTranslate(“”,620,0,0,0)
anim.Duration=450
anim.Start(img_supp)
img_supp.SetVisibleAnimated(800,False)
anim.PersistAfter=False
anim.InitializeTranslate(“”,430,0,0,0)
anim.Duration=600
anim.Start(img_star)
img_star.SetVisibleAnimated(900,False)
anim.PersistAfter=False
i=0
End If
End Sub
Sub img_about_Click
lbl1.Text=”flower”
End Sub
سلام
لطفا در بخش نظرات مشکلاتتون رو ننویسید، در بخش پرسش و پاسخ سایت، مشکلاتتون رو مطرح کنید
موفق باشید
سلام خداقوت
لینک سورس وجود ندارد
سلام
اصلاح شد