加入一個時間控制元件:timer1.
加入一個橫向的捲軸:hscroll1.把:min屬性設為2,max屬性設為100,smallchange設為1。
下面程式碼:
privatesubcommand1_click()
timer1.enabled=true
timer1.interval=10
endsub
privatesubform_load()
command1.caption="開始"
text1.backcolor=&h8000000f
text1.borderstyle=0
text1.text="測試區域"
timer1.enabled=false
privatesubhscroll1_change()
timer1.interval=10*hscroll1.value/10
privatesubhscroll1_scroll()
privatesubtimer1_timer()
text1.left=text1.left-50
iftext1.left<0then
text1.left=form1.width
endif
技術含量不高,供參考!
加入一個時間控制元件:timer1.
加入一個橫向的捲軸:hscroll1.把:min屬性設為2,max屬性設為100,smallchange設為1。
下面程式碼:
privatesubcommand1_click()
timer1.enabled=true
timer1.interval=10
endsub
privatesubform_load()
command1.caption="開始"
text1.backcolor=&h8000000f
text1.borderstyle=0
text1.text="測試區域"
timer1.enabled=false
endsub
privatesubhscroll1_change()
timer1.interval=10*hscroll1.value/10
endsub
privatesubhscroll1_scroll()
timer1.interval=10*hscroll1.value/10
endsub
privatesubtimer1_timer()
text1.left=text1.left-50
iftext1.left<0then
text1.left=form1.width
endif
endsub
技術含量不高,供參考!