注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

沉默蜂B4A安卓编程

国内资料最全的B4A资料库

 
 
 

日志

 
 

[代码]ScrollView属性  

2015-09-06 11:00:03|  分类: B.例程 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |


主题:例程管理ScrollView属性。 

子:setVerticalScrollBarEnabled 
描述:显示或隐藏了ScrollView的垂直滚动条。 
代码:
'displays or hides the VerticalScrollBar of the ScrollView
Sub setVerticalScrollBarEnabled(v As View, Enabled As Boolean)
    Dim jo = v As JavaObject
    jo.RunMethod("setVerticalScrollBarEnabled"Array As Object (Enabled))
End Sub
标签:setVerticalScrollBarEnabled, 

子:setVerticalFadingEdgeEnabled 
描述:允许垂直fadin边缘(ScrollView的阴影在顶部和底部)。 
代码:
'enables the VerticalFadingEdge of the SvrollView
'the VerticalFadingEdges are the 'shadows' on top and bottom of the ScrollView
Sub setVerticalFadingEdgeEnabled(v As View, Enabled As Boolean)
   Dim jo = v As JavaObject
   jo.RunMethod("setVerticalFadingEdgeEnabled"Array As Object (Enabled))
End Sub
标签:setVerticalFadingEdgeEnabled 

子:getVerticalScrollbarPosition 
描述:ScrollView的垂直滚动条的位置。 
代码:
'Gets the vertical Scrollbar position of the ScrollView
'    SCROLLBAR_POSITION_DEFAULT    = 0  position defined by the operating system
'    SCROLLBAR_POSITION_LEFT        = 1
'    SCROLLBAR_POSITION_RIGHT        = 2
Sub getVerticalScrollbarPosition(v As ViewAs Int
    Dim jo = v As JavaObject
    Return jo.RunMethod("getVerticalScrollbarPosition"Null)
End Sub
标签:getVerticalScrollbarPosition,setVerticalScrollbarPosition 

子:setVerticalScrollbarPosition 
描述:设置ScrollView的垂直滚动条的位置。 
代码:
'Sets the vertical Scrollbar position of the ScrollView
'    SCROLLBAR_POSITION_DEFAULT    = 0  position defined by the operating system
'    SCROLLBAR_POSITION_LEFT        = 1
'    SCROLLBAR_POSITION_RIGHT        = 2
Sub setVerticalScrollbarPosition(v As View, Position As Int)
    Dim jo = v As JavaObject
    jo.RunMethod("setVerticalScrollbarPosition"Array As Object (Position))
End Sub
子:getScrollBarStyle 
描述:获取滚动条样式。 
代码:
'Gets the ScrollBar style
'    SCROLLBARS_INSIDE_OVERLAY    = 0  (0x00000000)
'    SCROLLBARS_INSIDE_INSET          = 16777216 (0x01000000)
'    SCROLLBARS_OUTSIDE_INSET        = 50331648 (0x03000000)
'    SCROLLBARS_OUTSIDE_OVERLAY  = 33554432 (0x02000000)
Sub getScrollBarStyle(v As ViewAs Int
    Dim jo = v As JavaObject
    Return jo.RunMethod("getScrollBarStyle"Null)
End Sub
标签:getScrollBarStyle,setScrollBarStyle 

子:setScrollBarStyle 
描述:设置滚动条的样式。 
代码:
'Sets the ScrollBar style
'    SCROLLBARS_INSIDE_OVERLAY    = 0 (0x00000000)
'    SCROLLBARS_INSIDE_INSET          = 16777216 (0x01000000)
'    SCROLLBARS_OUTSIDE_INSET        = 50331648 (0x03000000)
'    SCROLLBARS_OUTSIDE_OVERLAY  = 33554432 (0x02000000)
Sub setScrollBarStyle(v As View, Style As Int)
    Dim jo = v As JavaObject
    jo.RunMethod("setScrollBarStyle"Array As Object (Style))
End Sub
子:getOverScrollMode 
描述:获取OverScrollMode SvrollView的模式,一个小运动,当到达顶部或底部在滚动。 
代码:
'gets the OverScrollMode mode of the SvrollView
'    OVER_SCROLL_ALWAYS                        = 0
'    OVER_SCROLL_IF_CONTENT_SCROLLS = 1
'    OVER_SCROLL_NEVER                            = 2
Sub getOverScrollMode(v As ViewAs Int
    Dim jo = v As JavaObject
    Return jo.RunMethod("getOverScrollMode"Null)
End Sub
标签:getOverScrollMode,setOverScrollMode 

子:setOverScrollMod 
描述:设置OverScrollMode SvrollView的模式,一个小运动,当到达顶部或底部在滚动。 
代码:
'sets the OverScrollMode mode of the SvrollView
'    OVER_SCROLL_ALWAYS                        = 0
'    OVER_SCROLL_IF_CONTENT_SCROLLS = 1
'    OVER_SCROLL_NEVER                            = 2
Sub setOverScrollMode(v As View, Mode As Int)
    Dim jo = v As JavaObject
    jo.RunMethod("setOverScrollMode"Array As Object (Mode))
End Sub
子:getScrollBarDefaultDelayBeforeFade 
描述:获取ScrollBarDefaultDelayBeforeFade SvrollView的毫秒。 
DelayBeforeFade是时间滚动条消失了。 
代码:
'sets the ScrollBarDefaultDelayBeforeFade of the SvrollView in milliseconds
'DelayBeforeFade is the time before the ScrollBar disappears
Sub getScrollBarDefaultDelayBeforeFade(v As ViewAs Int
    Dim jo = v As JavaObject
    Return jo.RunMethod("getScrollBarDefaultDelayBeforeFade"Null)
End Sub
标签:getScrollBarDefaultDelayBeforeFade,setScrollBarDefaultDelayBeforeFade 

子:setScrollBarDefaultDelayBeforeFade 
描述:设置ScrollBarDefaultDelayBeforeFade SvrollView的毫秒。 
DelayBeforeFade是时间滚动条消失了。 
代码:
'sets the ScrollBarDefaultDelayBeforeFade of the SvrollView in milliseconds
'DelayBeforeFade is the time before the ScrollBar disappears
Sub setScrollBarDefaultDelayBeforeFade(v As View, Duration As Int)
    Dim jo = v As JavaObject
    jo.RunMethod("setScrollBarDefaultDelayBeforeFade"Array As Object (Duration))
End Sub
子:getScrollBarFadeDuration 
描述:获取ScrollBarFadeDuration SvrollView的毫秒。 
ScrollBarFadeDuration是衰落持续时间(时间缓慢消失)。 
代码:
'gets the ScrollBarFadeDuration of the SvrollView in milliseconds
'ScrollBarFadeDuration is the fading duration (slowly disappearing)
Sub getScrollBarFadeDuration(v As ViewAs Int
    Dim jo = v As JavaObject
    Return jo.RunMethod("getScrollBarFadeDuration"Null)
End Sub
标签:getScrollBarFadeDuration,setScrollBarFadeDuration 

子:setScrollBarFadeDuration 
描述:设置ScrollBarFadeDuration SvrollView的毫秒。 
ScrollBarFadeDuration是衰落持续时间(时间缓慢消失)。 
代码:
'sets the ScrollBarFadeDuration of the SvrollView in milliseconds
'ScrollBarFadeDuration is the fading duration (slowly disappearing)
Sub setScrollBarFadeDuration(v As View, FadeDuration As Int)
    Dim jo = v As JavaObject
    jo.RunMethod("setScrollBarFadeDuration"Array As Object (FadeDuration))
End Sub
子:getScrollBarSize 
描述:获取滚动条大小(以像素为单位),不幸的是,这似乎不工作,不影响我的设备。 
代码:
'Gets the ScrollBar size in pixels
'    unfortunately this seem not worfink, no effect on my devices
Sub getScrollBarSize(v As ViewAs Int
    Dim jo = v As JavaObject
    jo.RunMethod("getScrollBarSize"Null)
End Sub
标签:getScrollBarSize,setScrollBarSize 

子:setScrollBarSize 
描述:设置滚动条的大小(以像素为单位),不幸的是,这似乎不工作,不影响我的设备。 
代码:
'Sets the ScrollBar size in pixels
'    unfortunately this seem not worfink, no effect on my devices
Sub setScrollBarSize(v As View, Size As Int)
    Dim jo = v As JavaObject
    jo.RunMethod("setScrollBarSize"Array As Object (Size))
End Sub
子:getVerticalFadingEdgeLength 
描述:获取长度,在衰退边缘像素,(顶部和底部的阴影ScrollView)。 
代码:
'Gets the length, in pixels, of the fading edge (the shadows on top and bottom of the ScrollView
Sub getVerticalFadingEdgeLength(v As ViewAs Int
    Dim jo = v As JavaObject
    Return jo.RunMethod("getVerticalFadingEdgeLength"Null)
End Sub
标签:getVerticalFadingEdgeLength 

依赖性:JavaObject图书馆。 
文档: http://developer.android.com/reference/android/view/View.html 

标签:ScrollView,滚动条、setVerticalScrollBarEnabled 

上面的程序被设计为独立的例程。 
如果你想设置几个房地产同时你可以做到“简单”的方式直接在代码中没有单独调用每个例程: 
代码:
Dim jo = scvText As JavaObject
jo.RunMethod("setVerticalScrollbarPosition"Array As Object (1))   ' position left
jo.RunMethod("setVerticalFadingEdgeEnabled"Array As Object (True))
jo.RunMethod("setScrollBarDefaultDelayBeforeFade"Array As Object (2000))
jo.RunMethod("setScrollBarFadeDuration"Array As Object (2000))

绑了一个小型的测试项目(书面B4A版本3.80)。
 

附加文件:

  评论这张
 
阅读(259)| 评论(0)
推荐 转载

历史上的今天

在LOFTER的更多文章

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017