رفتن به مطلب
  • 0

جابه جا شدن به صورت اسلاید بین اکتیویتی ها


MahdiHD

سوال

سلام

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

11 پاسخ به این سوال تاکنون داده شده است

ارسال های توصیه شده

سورس + آموزش برای اقا مهدی پ خ شد و مشکلشون کاملا حل شد لطفا تاپیک رو در حالت پاسخ داده شد قرار بده

با تشکر موفق باشید

لینک ارسال
به اشتراک گذاری در سایت های دیگر

#Region  Project Attributes
    #ApplicationLabel: StartViewPager
    #VersionCode: 1
    #VersionName: 2.20
    'SupportedOrientations possible values: unspecified, landscape or portrait.
    #SupportedOrientations: portrait
    #CanInstallToExternalStorage: True
    #IgnoreWarnings: 15
#End Region

#Region  Activity Attributes
    #FullScreen: True
    #IncludeTitle: False
    
    '########################################################################################################
    '#                                                                                    علی بلاقی                                                                                    #
    '#                                                                                Hitexroid i>N<C                                                                                #
    '#                                                                                    علی بلاقی                                                                                      #
    '########################################################################################################
#End Region

Sub Process_Globals
    
End Sub

Sub Globals
    Dim Start As StartViewPager
End Sub

Sub Activity_Create(FirstTime As Boolean)
    Start.Initialize(Activity,Me,"Start",7)
    Start.CircleColors(Array As Int(0xFF2CA5E0,0xFFE6C162,0xFF7EC455,0xFF8F73C3,0xFF58BCD5,0xFFD95848,0xFFEE9459))
    Start.ButtonSetting("Click To Start",0xFF2CA5E0,18,Colors.White,"iran.ttf")
    Start.IndicatorsColor(0xFFEE9459,0xFF2CA5E0)
    Start.Ripple = True
    Start.AddText_And_Pictures(Array As String("Telegram","Free","Secure","Powerful","Cloud-Based","Private","Fast"),Array As String("Telegram is the best messanger in the world","Telegram is free forever. No ads. No subcription fees.","Telegram keeps your messages safe from hacker attaks.","Telegram has no limits on the size of your media and chats.","Telegram lets you access your messages from multiple devices.","Telegram messages are heavily encrypted and can self-destruct.","Telegram is the fastest messanger in the world."),Array As String("1.png","2.png","3.png","4.png","5.png","6.png","7.png"))
    Start.Build
    
    
    '######################################################### ' تغییرات جدید

    For Each View In Start.GetAllViewsRecursive
        Dim Button As Button
        If View Is Button Then
            Button = View
            Button.SetBackgroundImage(LoadBitmap(File.DirAssets,"button.png"))
            'Button.Visible = False
            'Button.RemoveView
            'Button.Enabled = False
            'Button.Text = "TEST"
        End If
    Next
    '#########################################################
    
    
    Dim CheckBox As CheckBox : CheckBox.Initialize("CheckBox")
    CheckBox.Text = "Dont Show Again"
    CheckBox.TextColor = 0xFF2CA5E0
    CheckBox.Checked = True
    '######################################################### ' تغییرات جدید
    Start.Panel.AddView(CheckBox,29%x,72.5%y,80%x,15%y)
    '#########################################################
End Sub



    '######################################################### ' تغییرات جدید
Sub Start_PageChanged (Position As Int)
    Log(Position)
End Sub
    '#########################################################
Sub Activity_Resume
    
End Sub

Sub Activity_Pause (UserClosed As Boolean)
    
End Sub
Sub Start_Click
    ToastMessageShow("تیم برنامه نویسی سافت آذربایجان"& CRLF & CRLF & "             Hitexroid I>N<C",False)
End Sub

کل این صفحه رو انتخاب کن و تو بیسیک پست کن

لینک ارسال
به اشتراک گذاری در سایت های دیگر

سلام داداش

خسته نباشید

 

این سورس رو نگاه کن مطمئن هستم خودت میتونی درستش کنی

به جای کد اینکه اون چیز از سمت چپ میاد ، اسم اکتیویتی رو بزار

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

 

دانلود سورس

لینک ارسال
به اشتراک گذاری در سایت های دیگر

دوست عزیز،

تاپیک برای هشت ماه پیش هست ، چه دلیلی داره دوباره تاپیک رو بالا می یارید؟

برای مشکل خودتون تاپیک جداگانه بزنید ، تاپیک قفل شد.

لینک ارسال
به اشتراک گذاری در سایت های دیگر

الان دوازده ساعت گذشته است.دوستان راهی برای این موضو ندارند؟*فوری*

لینک ارسال
به اشتراک گذاری در سایت های دیگر

سلام

ممنون از سورس خوبتون.ولی این سورس برای یک کار دیگه اصلا طراحی شده است.برای اسلاید منو.ولی خوب می توان به صورتی که من گفتم تغییر داد ولی من نتوانستم.لطف می کنید این تغییرات را انجام دهید؟مطمئنا چون که سورس مال شما است به راحتی می توانید تغییرات را انجام دهید.در واقع من می خواهم با کشیدن دست از راست به چپ به صورت اسکرول به اکتیویتی بعدی برود بعد با کشیدن دست از چپ به راست به صورت اسکرول به اکتیویتی قبلی برود.اگر بقیه دوستان هم مثالی برای این کار داشتند ممنون می شوم که در همین تاپیک قرار دهند :gol: یک دنیا تشکر :gol:

لینک ارسال
به اشتراک گذاری در سایت های دیگر

دوستان الان حدود دوازده ساعت گذشته است.کسی راه حلی ندارد؟

لینک ارسال
به اشتراک گذاری در سایت های دیگر

داداش این سورس که من گذاشتم فقط ماله یک اکتیویتی است

 

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

 

اقای نیکروان اشنایی کامل دارند با این موضوع ...

لینک ارسال
به اشتراک گذاری در سایت های دیگر

بایگانی شده

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

مهمان
این موضوع برای عدم ارسال قفل گردیده است.
  • کاربران آنلاین در این صفحه   0 کاربر

    • هیچ کاربر عضوی،در حال مشاهده این صفحه نیست.
×
×
  • اضافه کردن...