B4J Tutorial [BANanoWebix] Lesson 24 ScrollView

Discussion in 'B4J Tutorials' started by Mashiane, Jul 2, 2019.

  1. Mashiane

    Mashiane Expert Licensed User

    Phew...

    Lesson 24 is about the scrollview. One can use this to host divs and other stuff that they might need to scroll.

    Lesson24_ScrollView.gif

    In this example we have created a scrollview with both X and Y scrolling active. To demonstrate this we set the width and height of the scrollview to be minimal and just added numerous rows to it as depicted below.

    Code:
    Sub Init(pgContainer As String)
        pg.Initialize(
    "", pgContainer).SetHeader("Lesson 24: ScrollView")
        
    '
        Dim sv As WixScrollView
        sv.Initialize(
    "sv").Setscroll("xy").Setheight(200).Setwidth(200).SetStyle("border""2px solid #ff0000")
        
    '
        Dim r1 As WixRow
        r1.Initialize(
    "r1").Setwidth(500).Setheight(26).SetTemplate("2001: A Space Odyssey")
        
    '
        Dim r2 As WixRow
        r2.Initialize(
    "r2").Setwidth(500).Setheight(26).Settemplate("Rambo: First Blood Part II")
        
    '
        Dim r3 As WixRow
        r3.Initialize(
    "r3").SetMap(CreateMap("width" : 500"height" : 26"template" : "Doctor Strangelove or: How I Learned To Stop Worrying And Love The Bomb"))
        
    '
        Dim r4 As WixRow
        r4.Initialize(
    "r4").SetMap(CreateMap("width" : 500"height" : 26"template" : "The Godfather"))
        
    '
        Dim r5 As WixRow
        r5.Initialize(
    "r5").SetMap(CreateMap("width" : 500"height" : 26"template" : "Thor: The Dark World"))
        
    '
        Dim r6 As WixRow
        r6.Initialize(
    "r6").SetMap(CreateMap("width" : 500"height" : 26"template" : "Guardians Of The Galaxy"))
        
    '
        Dim r7 As WixRow
        r7.Initialize(
    "r7").SetMap(CreateMap("width" : 500"height" : 26"template" : "Die Hard"))
        
    '
        Dim r8 As WixRow
        r8.Initialize(
    "r8").SetMap(CreateMap("width" : 500"height" : 26"template" : "Star Wars"))
        
    '
        Dim r9 As WixRow
        r9.Initialize(
    "r9").SetMap(CreateMap("width" : 500"height" : 26"template" : "Real Genius"))
        
    '
        sv.AddWixRows(Array(r1, r2, r3, r4, r5, r6, r7, r8, r9))
        
    '
        Dim pr1 As WixRow
        pr1.Initialize(
    "pr1").AddRows(sv.Item)
        
    '
        pg.AddRow(pr1)
        
    '
        pg.ui
    End Sub
    To disable scrolling / enable scrolling for any element, one just calls the .SetScroll(True/False) method.
     
    joulongleu likes this.
Loading...
  1. This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
    By continuing to use this site, you are consenting to our use of cookies.
    Dismiss Notice