B4J Tutorial [BANanoWebix] Lesson 24 ScrollView

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.

B4X:
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.
 
Top