vb小程序，实现文字的左移动，并且在其移除后从右边继续开始

timer1的代码换成下面的就好搜仿了

If

Label1.Left

>

Me.Width

Then

Label1.Left

=

0

-

Label1.Width

Else

Label1.Left

=

Label1.Left

+

100

End

If

Label1.Left

+

label1.width

=

0

你这个是把代码当方程式写了，这种代码扒漏运只能用来判断，而不能用来赋春梁值。

在H5中，当把页面向上滑动时，可以发起ajax请求动态加载数据。在小亩祥程序中可以么实现么?

目前圆局在文档中，只看到有向下拉实现动态加载数据的组件

可以bindscrolltoupper是滚橘耐让动到顶部/左边事件，bindscrolltolower滚动到底部/右边事件

利用"onPullDownRefresh"和"onReachBottom"方法

在js文件里直接写"onPullDownRefresh"和"onReachBottom"方法即可

private sub timer1_timer()

Dim a As Integer

Dim b As Integer

Dim c As Integer

a = Int(Rnd() * 255)

b = Int(Rnd() * 255)

c = Int(Rnd() * 255)

lblTitle.ForeColor = RGB(a, b, c)

end sub

---