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

[MahdiHD 1,748]

سلام

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

[sajad8888 819]

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

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

[alivoll 17]

#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

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

[کاربر ناشناس 2,148]

سلام داداش

خسته نباشید

 

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

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

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

 

دانلود سورس

[amirmahdi3744 5]

لطفا کتابخونش رو میزارید

[MahdiHD 1,748]

دوست عزیز،

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

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

[MahdiHD 1,748]

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

[MahdiHD 1,748]

سلام

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

[MahdiHD 1,748]

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

[کاربر ناشناس 2,148]

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

 

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

 

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

[amirmahdi3744 5]

دوستان بالاخره چی شد ؟؟؟؟کسی نیست مشکل رو حل کنه؟؟؟؟؟؟؟؟؟؟؟؟؟

[amirmahdi3744 5]

دوستان بالاخره چی شد ؟؟؟؟کسی نیست مشکل رو حل کنه؟؟؟؟؟؟؟؟؟؟؟؟؟